如何知道一個工作站的連接IP？

go2show

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

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

passthru

我以前曾經(jīng)多次在我們qq群內(nèi)回答過這類提問，為此，我用QAPI寫了rpgle代碼放在我的blog中，請參考：
http://blog.chinaunix.net/uid-20328593-id-1965939.html，文《Retrieve IP with RPGLE 》。

go2show

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

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


    十分感謝，我已經(jīng)使用另一位大大的代碼。

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