如何知道一个工作站的连接IP？

go2show

Opt  Subsystem/Job  User        Type  CPU %  Function             Status
       TTTT                 AAAAAA      INT      .0   PGM-UCZAAP       DSPW

如上，我怎么才能知道TTTT这个工作站的IP？

passthru

我以前曾经多次在我们qq群内回答过这类提问，为此，我用QAPI写了rpgle代码放在我的blog中，请参考：
http://blog.chinaunix.net/uid-20328593-id-1965939.html，文《Retrieve IP with RPGLE 》。

go2show

[ 本帖最后由 go2show 于 2014-02-11 09:58 编辑 ]

[b]回复 [url=forum.php?mod=redirect&goto=findpost&pid=&ptid=4124147]2#[/url] [color=Olive]passthru[/color] [/b]


    十分感谢，我已经使用另一位大大的代码。

PGM        PARM(&DEVICENAME)                           
                                                        
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 */                                
CHGVAR     VAR(%BIN(&RCVRLENGTH)) VALUE(892)            
CALL       PGM(QDCRDEVD) PARM(&RECEIVER &RCVRLENGTH +   
             &FORMATNAME &DEVICENAME &ERRORCODE)        
CHGVAR     VAR(&IPADDRESS) VALUE(%SST(&RECEIVER 878 15))
SNDPGMMSG  MSG(&DEVICENAME *BCAT ' IP ADDRESS IS ' *CAT +
             &IPADDRESS) MSGTYPE(*COMP)                  
ENDPGM                                                   

以上为CLP