MONMSG sólo captura los mensajes de excepción (o escape), es decir, cuando falla la ejecución del mandato anterior al MONMSG. En mi caso, quiero eleminar una serie de mensajes de terminación de una serie de mandatos para no dejar rastro en las anotaciones de su ejecución. Javier
________________________________ De: [email protected] [mailto:[email protected]] En nombre de Marti Riera Enviado el: lunes, 22 de noviembre de 2010 16:19 Para: forum.help400 Asunto: Re: Eliminar mensajes de terminación de las anotaciones de trabajo Hola Javier, Una pregunta porque no utilizas MONMSG? En principio deberias saber porque causas te puede fallar para usarlo, peor seria mas sencillo, no?. Aunque yo tambien uso RCVMSG despues de ejecutar un comando en el QSH para saber si ha terminado correctamente, o no. Saludos Martí Riera 2010/11/22 Javier Mora <[email protected]> Después de darle muchas vueltas a este tema, me respondo a mi mismo: DLTF FILE(QTEMP/FIC) RCVMSG MSGTYPE(*LAST) Resulta que sólo los mensajes de excepción se reciben en secuencia LIFO, por eso al utilizar RCVMSG MSGTYPE(*EXCP) se recibe y elmina el último mensaje de escape emitido. Con el resto de mensajes se utiliza una secuencia tipo FIFO, asi, con RCVMSG MSGTYPE(*COMP) estaba eliminando el primer mensaje de terminación. Con MSGTYPE(*LAST) no me aseguro que el mensaje recibido sea de terminación, pero me sobra al utilizarlo después de mandatos, que si terminan bien, dejan un mensaje de terminación en las anotaciones. Javier Mora ________________________________ De: [email protected] [mailto:[email protected]] En nombre de Javier Mora Enviado el: miércoles, 17 de noviembre de 2010 19:01 Para: forum.help400 Asunto: Eliminar mensajes de terminación de las anotaciones de trabajo Hola a t...@s: Me gustaría eliminar de las anotaciones de trabajo ciertos mensajes de terminación (*COMP) que no quiero que aparezcan. Utilizo el mandato RCVMSG pero no lo consigo. El siguiente código es un pequeño ejemplo de prueba: pgm CRTPF FILE(QTEMP/FIC) RCDLEN(10) DLTF FILE(QTEMP/FIC) RCVMSG MSGTYPE(*COMP) endpgm El mensaje CPC2191 de terminación que ha sido emitido por el mandato DLTF no se elimina. Por más vueltas que le doy no lo consigo. Esta misma técnica la utilizo para eliminar mensajes de excepción o escape. ¿No se pueden eliminar los mensajes de terminación? ¿Qué estoy haciendo mal? ¿Alguien me puede ayudar? Un saludo a t...@s y gracias por vuestros comentarios. Javier Mora ____________________________________________________ Ú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.
