- 论坛徽章:
- 0
|
找到啦
利用 System API QDCRDEVD 取得 与工作站ID 对应的 IP address.
使用此示范程序时需输入工作站名称作为参数, 如: CALL RTVDEVIPC PARM('QPADEV0001').
CL示范程序如下: (请充分测试后再使用!!)
****************************************************
PGM (&DEVICENAME)
DCL &DEVICENAME *CHAR 10
DCL &IPADDRESS *CHAR 15
DCL &RECEIVER *CHAR 892
DCL &RCVRLENGTH *CHAR 4
DCL &FORMATNAME *CHAR 8 'DEVD0600' /* THE FORMAT FOR DISPLAY DEVICES */
DCL &ERRORCODE *CHAR 4 X'00000000' /* USE NORMAL ERROR HANDLING */
CHGVAR %BIN(&RCVRLENGTH) 892
CALL PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH +
&FORMATNAME &DEVICENAME &ERRORCODE)
CHGVAR &IPADDRESS %SST(&RECEIVER 878 15)
SNDPGMMSG MSG(&DEVICENAME *BCAT ' IP address is ' +
*cat &ipaddress ) MSGTYPE(*COMP)
ENDPGM
************************************************** |
|