Ist schon uralt, aber vielleicht paßt das ja schon so für Dich.
Code:
             PGM        PARM(&RMTSYS &OK)

             DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)
             DCL        VAR(&OK) TYPE(*CHAR) LEN(1) VALUE('0')
             DCL        VAR(&RMTSYS) TYPE(*CHAR) LEN(15)

             PING       RMTSYS(&RMTSYS) MSGMODE(*VERBOSE)

             RCVMSG     MSGTYPE(*LAST) MSGID(&MSGID)
             IF         COND(&MSGID = 'TCP3210') THEN(CHGVAR +
                          VAR(&OK) VALUE('1'))
             ELSE       CMD(CHGVAR VAR(&OK) VALUE('0'))

             ENDPGM
ich garantiere auch für nix, aber zumindest hat's damals so gereicht/funktioniert.