Hola. Yo lo hago así : PGM DCLF FILE(PANTALLA) SNDRCVF RCDFMT(REGPANT) IF COND(&OPCION *EQ '02' ) THEN(DO) sentencias ENDDO IF COND(&OPCION *EQ '02' ) THEN(DO) sentencias ENDDO ENDPGM
Espero te sirva. Un saludo a ti a todos los del foro. Javier > > Asuntos del día: > > 3. consulta CL (informatic) > > > ---------------------------------------------------------------------- > > > Message: 3 > Date: Mon, 20 Dec 2010 13:45:51 +0100 > From: informatic <[email protected]> > Subject: consulta CL > To: [email protected] > Message-ID: <[email protected]> > Content-Type: text/plain; charset=ISO-8859-1; format=flowed > > Hola a todos: > > ¿ Es posible extraer con un CL , el menú y la opción de menú que ha > ejecutado este CL ? > > Gracias y Saludos. > > > > ------------------------------ > > __________________________________________________ > Forum.HELP400 es un servicio m&amp;#225;s de ServerNEWS. > &amp;#169; Publicaciones Help400, S.L. - Todos los derechos reservados > http://www.help400.es > _____________________________________________________ > > Para darte de baja visita la siguente URL: > http://listas.combios.es/mailman/listinfo/forum.help400 > > Fin de Resumen de Forum.help400, Vol 50, Envío 25 > *************************************************
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
