Yo haría lo siguiente, en este caso:
Dcl-Ds DsReg LikeRec(REGISTROR);
Dcl-S Punt Pointer;
Dcl-S EJC Zoned(4:0) Dim(3) Based(Punt);
Chain Clave FICHERO DsReg;
Punt = %Addr(DsReg.EJC1);
En el momento que le asignas al puntero la dirección de memoria de la
variable EJC1, ya tienes cargado el array EJC con los 3 elementos del
registro.
Espero que te ayude.
---
https://paredes.info
[email protected]
El 30/12/2020 16:56, datil400 escribió:
Eso se puede hacer en la hoja D. No encuentro ahora un ejemplo, pero
si no recuerdo mal se hacía indicando los campos en una DS sin
calificar y sin su tipo y solapando sobre un array.
El mié., 30 dic. 2020 16:43, Alberto Martinez
<[email protected]> escribió:
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]> En
nombre de datil400
Enviado el: miércoles, 30 de diciembre de 2020 15:55
Para: forum.help400 <[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]> 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
[1] )
Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
Links:
------
[1] http://bit.ly/db68dd
____________________________________________________
�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.
