Gracias Fernando, esto si que xuta. Ya estoy en ello. Saludos
Josep Sánchez ----- Original Message ----- From: "Fernando Martínez" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, April 20, 2006 1:43 PM Subject: Re: Hacer que un mensaje de sistema provoque error monitorizable en CL | Hola | | Prueba de esta otra forma: | | PING RMTSYS(&IP) | BUCLE: RCVMSG RMV(*NO) KEYVAR(&KEYVAR) MSG(&MSG) MSGID(&KEY) | IF COND(&KEY = 'TCP3204') THEN(GOTO CMDLBL(BUCLE)) | IF COND((&KEY = 'TCP3206') *AND + | (%SST(&MSG 1 2) = 'No')) THEN(DO) | Goto CMDLBL(ENDPGM) | ENDDO | IF COND(&KEY = 'TCP3210') THEN(Do) | CallPrc Prc(TRSrvRst) Parm(&IP) | Goto CMDLBL(ENDPGM) | EndDo | GOTO CMDLBL(BUCLE) | | Un saludo | | Fernando Martinez | | | | __________________________________________________ | Forum.HELP400 es un servicio más de NEWS/400. | © Publicaciones Help400, S.L. - Todos los derechos reservados | http://www.help400.es | _____________________________________________________ | | Para darte de baja visita la siguente URL: | http://coyote.combios.es/mailman/listinfo/forum.help400 | | __________________________________________________ Forum.HELP400 es un servicio más de NEWS/400. © Publicaciones Help400, S.L. - Todos los derechos reservados http://www.help400.es _____________________________________________________ Para darte de baja visita la siguente URL: http://coyote.combios.es/mailman/listinfo/forum.help400
