TelnetクライアントのIPアドレスの取得 
GETIP.CL
PGM PARM(&DEV)
DCL VAR(&DEV) TYPE(*CHAR) LEN(10)
DCL VAR(&RCVVAR) TYPE(*CHAR) LEN(1000)
DCL VAR(&RCVVARLEN) TYPE(*CHAR) LEN(4)
DCL VAR(&ERRCODE) TYPE(*CHAR) LEN(8) +
VALUE(X'00000000')
DCL VAR(&PC) TYPE(*CHAR) LEN(15)
IF COND(&DEV *EQ '*CURRENT') THEN(DO)
RTVJOBA JOB(&DEV)
ENDDO
CHGVAR VAR(%BIN(&RCVVARLEN)) VALUE(1000)
CALL PGM(QDCRDEVD) PARM(&RCVVAR &RCVVARLEN +
'DEVD0600' &DEV &ERRCODE)
CHGVAR VAR(&PC) VALUE(%SST(&RCVVAR 878 15))
SNDUSRMSG MSG('端末のＩＰアドレスは' *BCAT &PC) +
MSGTYPE(*INFO)
ENDPGM
実行方法
CALL GETIP 'PRIMULA'
実行結果
端末のＩＰアドレスは 192.168.1.64
このページへのコメント
oFWYUy Thank you ever so for you blog post.Really thank you! Really Great.