----- Original Message -----
From: alex martinez
To: forum.help400
Sent: Wednesday, June 13, 2007 3:25 AM
Subject: Re: Call de RPGIV a FREE
Hola:
La palabra clave EXTPGM permite utilizar una constante o una variable de
caracteres.
Copio y pego desde el Manual de ILE-RPG
"....The EXTPGM keyword indicates the external name of the program whose
prototype is being defined. The name can be a character constant or a character
variable....."
El código sería algo así:
D PGM001 PR EXTPGM(NomPgm)
D NomPgm s 10
NomPgm = 'PGM001';
NomPgm ( Parm01: Parm02 : Parm03: Parm04);
Salu2
El día 13/06/07, Jaime Villa Torres <[EMAIL PROTECTED]> escribió:
Señores, un consejo.
Tengo un programa en RPGIV y realizo un o muchos llamados a programas que
contienen la misma lista de parametros.
Call 'PGM001' PLstOwn, de esta manera puedo llamar los pmg002 al
pgm999 con la misma lista de parametros.
al pasar esto a free, quedaría,...
D PGM001 PR EXTPGM('PGM001')
D Parm01 LIKE(Fld001)
D Parm02 LIKE(Fld002)
D Parm03 LIKE(Fld003)
D Parm04 LIKE(Fld004)
PGM001 ( Parm01: Parm02 : Parm03: Parm04);
entonces ustedes se pueden imaginar la cantidad de prototipos que hay que
definir, uno por cada programa llamado,
El consejo es como evitar ese problema, pero por favor que no sea en el
momento de llamado con /end-free y /free.
Gracias de antemano.
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
--
Mi blog sobre as400
http://www.ajut400.com
------------------------------------------------------------------------------
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
