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.
