Yo lo haría así:
Definiría un puntero:
Dcl-S PtrArr Pointer;
Un array, basado en ese puntero:
Dcl-S Arr Char(2) Dim(10) Based(PtrArr);
Una vez que tienes los datos en la DS:
PtrArr = %Addr(Registre.Campo);
Y ya tienes los datos en el array.
Todo ello suponiendo que los campos que quieres en el array sean
consecutivos en el registro. Si no, la cosa se complicaría bastante más.
---
https://paredes.info
[email protected]
El 19/03/2021 10:11, Alberto Martinez escribió:
Buenos días compañeros.
Hace un tiempo hice una consulta sobre la creación
(En Free) de un array referente a varios campos de un fichero. Lo que
era la hoja I.
Tipo
IREMPRESA
I EJC1 EJC(1)
I EJC2 EJC(2)
Y se resolvía con algo así;
Dcl-ds Ejerc ;
Ejc1;
Ejc2;
Ejc LIKE(Ejc1) Pos(1) dim(2);
End-ds;
Pues bien, necesito hacer una cosa parecida en un registro definido
tal que así:
DCL-DS Registre ext EXTNAME('FICHERO') occurs(999);
Y no tengo manera humana de conseguirlo.
Alguien me puede dar una idea?
Gracias!!
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________
nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 Publicaciones Help400, S.L.
