Buenas.
Lo he resuelto tal que así:
Dcl-ds Ejerc ;
Ejc1;
Ejc2;
Ejc3;
Ejc LIKE(Ejc1) Pos(1) dim(3);
End-ds;
Los campos EJC1… tienen el mismo nombre que en el fichero. Como si los campos
del fichero los agrupara en una DS. (He hecho una DS por cada grupo.) Pero
luego en el último donde defino el array no he podido poner OVERLAY. No sé por
qué razón no me deja, y he tenido que poner el POS(1)
Gracias a todos por las ideas!!
De: Forum.help400 <[email protected]> En nombre de
Alberto Martinez
Enviado el: miércoles, 30 de diciembre de 2020 16:44
Para: forum.help400 <[email protected]>
Asunto: ** Newsletter ** Hoja I en all Free
Si, es una posibilidad…pero igual lo sustituyen con una combinación de DS con
EXTNAME con algo más…no sé. Me extraña que después de este cambio a ALL FREE
se hayan quedado a medias.
Por cierto, explico para qué lo quiero, y así queda más claro:
Tengo un montón de programas viejos con un registro de fichero y varios campos
redenominados, que se hacen servir de array, del palo:
IREGISTROR
I EJC1 EJC(1)
I EJC2 EJC(2)
I EJC3 EJC(3)
Y luego, pues eso que se accede por
@i= %lookup (@aÑo:Ejc)
y se actualiza el fichero.
Seguro que los que estéis modernizando programas de cuando éramos jóvenes, os
habéis encontrado alguna situación de éstas.
Gracias.
De: Forum.help400
<[email protected]<mailto:[email protected]>>
En nombre de datil400
Enviado el: miércoles, 30 de diciembre de 2020 15:55
Para: forum.help400
<[email protected]<mailto:[email protected]>>
Asunto: ** Newsletter ** Re: Hoja I en all Free
Que yo sepa, no existe hoja I en formato totalmente libre.
El mié., 30 dic. 2020 11:52, Alberto Martinez
<[email protected]<mailto:[email protected]>> escribió:
Hola.
Alguien tiene un ejemplillo de definición de hoja I en All Free?
Ha desaparecido y se hace de otra manera?
Es que no encuentro nada ☹
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.
