Buenas.
Ya me imaginaba que tenían que haberlo hecho más sencillo que antes, y ya veo
que sí. El problema es que no hay ejemplos en la nube de cómo sustituir en all
free la hoja I
Era tan fácil como esto:
DCL-DS Registre EXTNAME('FICHERO') occurs(999);
Asbas like(Asbas1) Pos(252) dim(4) inz;
Aspor like(Aspor1) Pos(280) dim(4) inz;
Asimv like(Asimv1) Pos(296) dim(4) inz;
End-ds Registre;
Definir el registro y añadir de más a más los campos que se ‘solapan’ con su
posición exacta, o sea, teniendo en cuenta los packed. Y ya está creada la
array!
Saludos!!!
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
