Buenos días
Una consulta sobre el cambio a All Free
En hoja C teníamos la entrada *entry de parámetros
Si recibíamos una DS con OCCURS, se ponía el nombre en el *entry y se la
definía en la hoja D con el OCCURS y listos.
En all-free, me encuentro que si la recibo como parámetro de entrada, aunque
haga un LIKEDS, no me deja compilar porque me dice que no está soportada para
el OCCURS:
Ej:
DCL-DS @R_asic EXTNAME('FICHERO') occurs(99); //Defino la DS
End-ds;
DCL-PI CPYLIBISII; //Param. De entrada
@R_entry LIKEDS(@R_asic);
@totalregs LIKE(@i);
END-PI ;
%occur(@R_entry)=@i; //Esto es lo que me da error al compliar:
1 El parámetro para %OCCUR no es válido.
Alguna pista de cómo se hace ahora?
El único ejemplo que he encontrado de Skott Klement, que trabaja con Based y
%ADDR
Pero tampoco me funciona algo parecido.
Hay alguna manera más ‘normal’?.
Gracias!
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.
