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
