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.
