Ist schon uralt, aber vielleicht paßt das ja schon so für Dich.
ich garantiere auch für nix, aber zumindest hat's damals so gereicht/funktioniert.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
Bookmarks