Buenos días Alex :
Muchísimas gracias, lo probaré sin dudarlo.
Saludos,
Javier
From: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] On Behalf Of Alex Martínez
Sent: martes, 14 de noviembre de 2017 11:25
To: forum.help400 <forum.help400@listas.combios.es>
Subject: Re: CRTBNDRPG vs CRTRPGMOD+CRTPGM (ILE RPG)
Te pongo un sencillo ejemplo de un módulo MOD1 llamado desde un programa PGM1
Compila MOD1 y PGM1 con CRTBNDRPG y luego creas el programa con
CRTPGM PGM(PGM1) MODULE(PGM1 MOD1)
MOD1:
h nomain
d media pr 10i 0
d 10i 0 dim(10) value
d 2p 0 value
p media b export
d pi 10i 0
d lista 10i 0 dim(10) value
d n 2p 0 value
d z s 10i 0
/free
z = %xfoot( lista ) ;
if n > 0 ;
return z / n ;
else ;
return *hival ;
endif ;
/end-free
p e
PGM1:
d media pr 10i 0
d 10i 0 dim(10) value
d 2p 0 value
d v s 10i 0 dim(10)
d n s 2p 0
d x s 10p 0
/free
v(1) = 14 ;
v(2) = 43 ;
v(3) = 76 ;
v(4) = 4 ;
v(5) = 87 ;
v(6) = 65 ;
n = 6 ;
x = media( v : n ) ;
dsply x ;
*inlr = *on ;
/end-free
El 14 de noviembre de 2017, 10:45, Javier Baca
<javier.b...@bcndepot.com<mailto:javier.b...@bcndepot.com>> escribió:
Buenos días :
Nos gustaría saber si lo de crear un módulo, o varios (con CRTRPGMOD) y luego
compilarlo todo con programa principal (con CRTPGM), se utiliza mucho.
Lo comentamos porque lo estamos mirando de implantar y no nos acaba de
funcionar por errores en compilación.
Sobre las ventajas, lo tenemos claro, es la reutilización de código.
Al margen de esto, por otro lado, también nos gustaría saber cómo funciona todo
esto.
¿Nos podríais explicar por favor “brevemente” cual es la estructura de programa
que llame a un procedimiento que está dentro un módulo?
Un saludo y muchas gracias,
Javier
____________________________________________________
Ú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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.