/* Prüfen ob PC verfügbar, ansonst Warten... */
PING RMTSYS(*INTNETADR) INTNETADR('X.X.X.X') MSGMODE(*QUIET *ESCAPE)
MONMSG MSGID(TCP3210) EXEC(DO)
DLYJOB DLY(3600)
...