Re: Call de RPGIV a FREE-Muchas gracias Alex

Wed, 13 Jun 2007 06:17:23 -0700 

  ----- 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&amp;#225;s de NEWS/400.
    &amp;#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&amp;#225;s de NEWS/400.
  &amp;#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&amp;#225;s de NEWS/400.
&amp;#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

Responder a