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.
