利用 System API QSYS/QDCRDEVD (去QSYSINC/H下面去找那个API的参数) 取得 与工作站ID 对应的 IP address. PGM1:(已经测试) PGM DCL VAR(&DEVICENAME) TYPE(*CHAR) LEN(10) DCL VAR(&IPADDRESS) TYPE(*CHAR) LEN(15) DCL VAR(&RECEIVER) TYPE(*CHAR) LEN(892) DCL VAR(&RCVRLENGTH) TYPE(*CHAR) LEN(4) DCL VAR(&FORMATNAME) TYPE(*CHAR) LEN(8) + VALUE('DEVD0600') /* THE FORMAT FOR + DISPLAY DEVICES */ DCL VAR(&ERRORCODE) TYPE(*CHAR) LEN(4) + VALUE(X'00000000') /* USE NORMAL ERROR + HANDLING */ DCL VAR(&OUTMSG) TYPE(*CHAR) LEN(512) RTVJOBA JOB(&DEVICENAME) CHGVAR VAR(%BIN(&RCVRLENGTH)) VALUE(892) CALL PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH + &FORMATNAME &DEVICENAME &ERRORCODE) MONMSG MSGID(CPF0000) CHGVAR VAR(&IPADDRESS) VALUE(%SST(&RECEIVER 878 15)) CHGVAR VAR(&OUTMSG) VALUE(&DEVICENAME *BCAT ' IP +