Hola,
nosotros lo hacemos de esta manera:

definición :
d RESER15         PR                  EXTPGM('RESER15')
d cli15                          6  0 
d ov15                           7  0 
d ar15                           6  0 
  * definicion campos 
 d cli15           s              6  0 
 d ov15            s              7  0 
 d ar15            s              6  0 

y en cálculo 

  cli15 = cl;
 ov15 = ord;
 ar15 = ar; 
 callp RESER15 (cli15 : ov15 : ar15);

espero que te sirva

 




De:     Arturo Reyes <[email protected]>
Para:   "[email protected]" 
<[email protected]>, 
Fecha:  13/02/2014 08:27
Asunto: Llamada desde un pgm o módulo FREE RPG a otro módulo
Enviado por:    [email protected]



Buenos días amigos foreros,
 
Solicito  vuestas ayuda para codificar la llamada a un módulo (ile rpg o 
free rpg) dentro de un programa free rpg o  módulo free rpg, pasando 
parámetros, etc.
 
Gracias a todos, saludos cordiales.
 
Arturo
____________________________________________________ �nete a Recursos 
AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � 
Publicaciones Help400, S.L.[anexo ATT00001 eliminado por Elvira Jurado 
Leiva/GSORIA] ____________________________________________________
Ú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.

Responder a