Hola Luis, Si sientes nostalgia aún puedes usar los indicadores U1 U8, pues todavía funcionan. No obstante, puedes llamar el RPG con un parámetro. El RPG pone una marca en dicho parámetro para informar al CL que han pulsado F3 y ya está.
PGM DCL VAR(&F3) TYPE(*CHAR) LEN(3) OTRAVEZ: CALL PGM(PROGRAMA) PARM(&F3) IF COND(&F3 <> 'F03') THEN(GOTO CMDLBL(OTRAVEZ)) ENDPGM Saludos, Xavier Estrems De: [email protected] [mailto:[email protected]] En nombre de Luis . Enviado el: dijous, 27 de febrer de 2014 10:11 Para: forum.help400 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.
