Gracias a todos. Lo que no recordaba es que si le paso un parametro desde una CL luego en la CL puedo usar el parametro. vamos que devuelve el valor a la Cl
Un saludo. Luis To: [email protected] Subject: Re: Comunicar un RPG con su CL Date: Thu, 27 Feb 2014 10:50:29 +0100 From: [email protected] Hola Te refieres a sentencias como esta: CALL PGM(ARC022) IF COND(%SWITCH(X1XXXXXX)) THEN(GOTO CMDLBL(FINAL)) Este ejemplo equivale al U2 de dentro del rpg. Con estos indicadores no hace falta pasar parámetros, pero evidentemente tendrás que modificar el RPG para activar o desactivar el indicador. Ya que lo tendrás que modificar, yo haría un bucle DOWHILE o DOUNTIL dentro de la misma CL y le pasaría al RPG un parámetro tipo indicador. Lo activaría o desactivaría en el RPG(por ejemplo, para F3 activas el indicador y si me retorna activado, salgo del bucle. No sé, lo veo más 'limpio' que usar los indicadores U. Yo no los uso hace muchísimos años. Te quedaría algo así: DCL VAR(&F3) TYPE(*LGL) DOWHILE COND(*NOT &F3) call PGM(Programa) Parm(&F3) Enddo De: "Luis ." <[email protected]> Para: "forum.help400" <[email protected]> Fecha: 27/02/2014 10:15 Asunto: Comunicar un RPG con su CL Hola: La idea es llamar desde una cl a un rpg tantas veces como el usuario lo necesite. En la Cl el rpg debe estar en un bucle hasta que el usuario en el RPG le de a la opción de salir, Mdto3. Mi problema es que no recuerdo como hacer llegar esa informacion a la CL. podría ser por la LDA, pero no quiero usarla ya que hay varias aplicaciones, algunas compradas, que hace uso intensivo de ella, y no tengo claro que posiciones puedo usar para mi. Antes estaban los indicadore U, que los encendías o apagabas en el RPG y los podías ver en el procedimiento del 36. La verdad es que no recuerdo haberlos usado nunca en el 400 ¿alguna idea? Gracias Luis____________________________________________________ Ú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.
