Gracias otra vez, por tu ayuda
Saludos Arturo From: [email protected] To: [email protected] Subject: RE: Llamada desde un pgm o módulo FREE RPG a otro módulo Date: Thu, 13 Feb 2014 09:44:53 +0000 Efectivamente. Es un módulo externo. Ten en cuenta que, al compilar, tiene que tener acceso a él. Para ello o bien compilas el que le llama como módulo y luego utilizas el mandato CRTPGM para enlazarlos o bien incorporas el módulo a un directorio de enlace. Si optas por esta última opción, puedes definirlo en la especificación H con BNDDIR o lo puedes incluir al compilar en el parámetro BNDDIR del CRTBNDRPG. Saludos. Juan Carlos. De: Arturo Reyes [mailto:[email protected]] Enviado el: jueves, 13 de febrero de 2014 10:21 Para: [email protected] Asunto: RE: Llamada desde un pgm o módulo FREE RPG a otro módulo Gracias Juan Carlos, imagino que @FRMDIGDT es un módulo. Saludos Arturo From: [email protected] To: [email protected] Subject: RE: Llamada desde un pgm o módulo FREE RPG a otro módulo Date: Thu, 13 Feb 2014 07:59:32 +0000 Tienes que definir en las especificaciones D el prototipo de llamada al módulo y la variable de retorno: d @FrmDigDT pr 128a extproc('@FRMDIGDT') d 9p 0 d 2p 0 d Firma s 128a inz(*blank) Después, en el cálculo, simplemente: Firma=@FrmDigDT(CIN:Ejercicio); Saludos. Juan Carlos. De: Arturo Reyes [mailto:[email protected]] Enviado el: jueves, 13 de febrero de 2014 8:23 Para: [email protected] Asunto: Llamada desde un pgm o módulo FREE RPG a otro módulo 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. De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal, le informamos que los datos que nos facilite podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas del Grupo Everest dedicadas a actividades de impresión, encuadernación, edición, publicación, distribución y venta de libros y otra clase de publicaciones. Sus datos se presumen veraces mientras no nos comunique lo contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y "COMERCIAL LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el correo electrónico y las comunicaciones por medio de Internet no permiten asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así como tampoco su integridad o su correcta recepción, por lo que EDITORIAL EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad alguna por tales circunstancias. Si no consintiese en la utilización del correo electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, de manera exclusiva, a su destinatario y contiene información confidencial y sujeta al secreto profesional, cuya divulgación no está permitida por la ley. En caso de haber recibido este mensaje por error, le rogamos que, de forma inmediata, nos lo comunique mediante correo electrónico remitido a nuestra atención o a través del teléfono 902123400 y proceda a su eliminación, así como a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la distribución, copia o utilización de este mensaje, o de cualquier documento adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la ley. El uso y contenido de los correos electrónicos remitidos con direcciones bajo el dominio de "everest .es" serán exclusivamente de ámbito profesional. Las opiniones de índole política, moral o religiosa que pueden ser vertidas en los correos electrónicos remitidos con direcciones bajo aquel dominio, serán responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad a la empresa. ____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L. De acuerdo con la Ley orgánica 15/1999, de 13 de diciembre, de Protección de Datos de Carácter Personal, le informamos que los datos que nos facilite podrían ser incluidos en los ficheros de *GRUPO EVEREST con fines comerciales, contractuales y publicitarios y, a tal efecto, serán cedidos a otras empresas del Grupo Everest dedicadas a actividades de impresión, encuadernación, edición, publicación, distribución y venta de libros y otra clase de publicaciones. Sus datos se presumen veraces mientras no nos comunique lo contrario. Podrá ejercitar sus derechos de acceso, rectificación, cancelación y oposición en la siguiente dirección, carretera León - A Coruña, km.5, s/n, código postal 24010 (León). GRUPO EVEREST está integrado por EDITORIAL EVEREST, S.A, EVEREST DE EDICIONES Y DISTRIBUCIÓN, S.L., LA BOUTIQUE DEL LIBRO Y DEL OCIO, S.L., GRUPO EVERHOUSE, S.L., EDITORIAL EVEREST ANDALUCÍA, S.L., EDICIONES GAVIOTA, S.L., EDICIONES CADÍ, S.L., EDITORIAL EVERGRÁFICAS, S.L., GRUPO EVEREST DE COMUNICACIÓN, S.L., EDITORIAL EVEREST GALICIA, S.L., AIZKORRI ARGITALETXEA, S.L. EDITORIAL EVEREST MEXICANA, S.A. de C.V. y "COMERCIAL LUJOAN, S.A. de C.V. Le informamos, como destinatario de este mensaje, que el correo electrónico y las comunicaciones por medio de Internet no permiten asegurar ni garantizar la confidencialidad de los mensajes transmitidos, así como tampoco su integridad o su correcta recepción, por lo que EDITORIAL EVEREST, S.A. y el resto de empresas del Grupo Everest no asume responsabilidad alguna por tales circunstancias. Si no consintiese en la utilización del correo electrónico o de las comunicaciones vía Internet le rogamos nos lo comunique y lo ponga en nuestro conocimiento de manera inmediata. Este mensaje va dirigido, de manera exclusiva, a su destinatario y contiene información confidencial y sujeta al secreto profesional, cuya divulgación no está permitida por la ley. En caso de haber recibido este mensaje por error, le rogamos que, de forma inmediata, nos lo comunique mediante correo electrónico remitido a nuestra atención o a través del teléfono 902123400 y proceda a su eliminación, así como a la de cualquier documento adjunto al mismo. Asimismo, le comunicamos que la distribución, copia o utilización de este mensaje, o de cualquier documento adjunto al mismo, cualquiera que fuera su finalidad, están prohibidas por la ley. El uso y contenido de los correos electrónicos remitidos con direcciones bajo el dominio de "everest .es" serán exclusivamente de ámbito profesional. Las opiniones de índole política, moral o religiosa que pueden ser vertidas en los correos electrónicos remitidos con direcciones bajo aquel dominio, serán responsabilidad exclusiva de su autor, exonerando de cualquier responsabilidad a la empresa. ____________________________________________________ �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.
