Contesto a mi problema. He modificado el programa para que me reciba ocasionalmente el ultimo mensaje. De esta forma parece que se ha regularizado la cola de mensajes. He vuelto a modificar para que me reciba desde el principio y parece que por ahora va bien.
El problema debia esta que al limpiar la cola de mensajes se habia descontrolado Gracias El 10 de enero de 2011 10:21, Marti Riera <[email protected]> escribió: > Hola, > > Yo lo tengo asi: > > IF COND(&MSGID *EQ ' ') THEN(DO) > DLYJOB DLY(10) > GOTO LOOP > ENDDO > > Y no tengo ese problema (o no lo recuerdo) > > Saludos > > > Martí Riera > > > 2011/1/10 My Iseries <[email protected]> > >> Hola a todos, >> >> Tengo un CL que me esta monitorizando la cola de Mensajes QSYSMSG >> >> Hasta el viernes mes esta funcionando correctamente. Se me ocurrio limpiar >> la cola de mensajes y desde ese momento no hace mas que repetirme el >> CPF2410. Este mensaje esdta monitorizado pero no hay forma de salir de ahi. >> >> Se os ocurre algo >> >> Adjunto la secuencia de instrucciones >> >> IF COND(&MSGMRK *EQ ' ') THEN(CHGVAR + >> VAR(&MSGMRK) VALUE('*TOP')) >> >> LOOP: >> CHGVAR VAR(&MSGID) VALUE(' ') >> RCVMSG MSGQ(QSYS/QSYSMSG) MSGTYPE(*NEXT) + >> MSGKEY(&MSGMRK) RMV(*NO) KEYVAR(&MSGMRK) + >> MSG(&MSG) SECLVL(&SECLVL) MSGDTA(&DATMSG) + >> MSGDTALEN(&DATMSGL) MSGID(&MSGID) SEV(&SEV) >> MONMSG MSGID(CPF2410) EXEC(DO) >> GOTO CMDLBL(LOOP) >> ENDDO >> >> >> IF COND(&MSGMRK *EQ ' ') THEN(DO) >> GOTO CMDLBL(ENDPGM) >> >> ____________________________________________________ >> Ú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. >
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
