Gracias Sergio, pero no entiendo en tu ejemplo por qué no coinciden los
parámetros, el parámetro recibe 2 parámetros:
0273.00 dcl-pi TLPERMISO1;
0274.00 p_nReg char(4);
0275.00 p_Nomb char(60);
0276.00 end-pi;
Pero en la definición prototipo, pones muchos más:
0278.00 dcl-pr ProgramP extpgm('RPER014');
0279.00 p_nReg char(4);
0280.00 p_NPer char(6);
0281.00 p_Cate char(3);
0282.00 p_FTra char(8);
0283.00 p_FPer char(8);
0284.00 p_FAct char(8);
0285.00 p_HAct char(6);
0286.00 p_Usua char(10);
0287.00 end-pr;
Saludos,
Javier.
________________________________
De: [email protected]
<[email protected]> en nombre de Sergio Martinez Roig
<[email protected]>
Enviado: viernes, 16 de agosto de 2019 19:49
Para: forum.help400 <[email protected]>
Asunto: RE: Sintaxis de *entry plist en formato libre rpg
Hola Javier,
Este es un ejemplo, el programa se llama TLPERMISO1 y recibe 2 parámetros, lo
siguiente es la manera de declarar un programa externo al que se le pasan
parámetros.
0273.00 dcl-pi TLPERMISO1;
0274.00 p_nReg char(4);
0275.00 p_Nomb char(60);
0276.00 end-pi;
0277.00
0278.00 dcl-pr ProgramP extpgm('RPER014');
0279.00 p_nReg char(4);
0280.00 p_NPer char(6);
0281.00 p_Cate char(3);
0282.00 p_FTra char(8);
0283.00 p_FPer char(8);
0284.00 p_FAct char(8);
0285.00 p_HAct char(6);
0286.00 p_Usua char(10);
0287.00 end-pr;
Un saludo
Sergio Martinez Roig
Estibarna, CPE
De: [email protected]
[mailto:[email protected]] En nombre de Javier B.
Enviado el: viernes, 16 de agosto de 2019 19:03
Para: 'forum.help400'
Asunto: Sintaxis de *entry plist en formato libre rpg
Buenas tardes :
¿Alguien podría decirme por favor cual es la sintaxis de *entry plist con el
formato libre de ile rpg?
Cuando digo "formato libre", no me refiero a los programas que contienen
/FREE../END-FREE, me refiero al formato libre completo, es decir, al fuente que
empieza por **FREE.
En el ile rpg se ponía así:
c *entry plist
c parm parametro1
c parm parametro2
Un saludo y muchas gracias,
Javier
[https://ipmcdn.avast.com/images/icons/icon-envelope-tick-round-orange-animated-no-repeat-v1.gif]<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Libre de virus.
www.avast.com<https://www.avast.com/sig-email?utm_medium=email&utm_source=link&utm_campaign=sig-email&utm_content=webmail>
Este mensaje contiene información confidencial dirigida al destinatario del
mismo. Las opiniones expresadas pertenecen al autor y no necesariamente a
ESTIBARNA. Si Ud. recibe este mensaje por error, se ruega informe
inmediatamente al remitente del mismo. Queda prohibido el uso, divulgación,
copia o distribución a terceros de la información incluida en este mensaje.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
