今、5250エミュレータでTCP/IP接続しているPCクライアントの
IPアドレスを調べる方法を紹介する。
C言語によるTCP/IP通信プログラムであれば getpeername() 関数などで
簡単に取得できるのだが 5250エミュレータの中で簡単に
クライアントの IPアドレスを知る方法はないだろうか ?

API : QDCRDEVD を使えば簡単に知ることができる。

【サンプルCLP : TESTCLTIP】

0001.00              PGM                                                    
0002.00 /*---------------------------------------------------------*/       
0003.00 /*    TESTCLT:     クライアント・チエック                  */       
0004.00 /*---------------------------------------------------------*/       
0005.00              DCL        VAR(&MSG) TYPE(*CHAR) LEN(132)              
0006.00              DCL        VAR(&MSGID) TYPE(*CHAR) LEN(7)              
0007.00              DCL        VAR(&MSGF) TYPE(*CHAR) LEN(10)              
0008.00              DCL        VAR(&MSGFLIB) TYPE(*CHAR) LEN(10)           
0009.00              DCL        VAR(&MSGDTA) TYPE(*CHAR) LEN(132)           
0010.00              DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)               
0011.00              DCL        VAR(&DEVINFO) TYPE(*CHAR) LEN(1121)         
0012.00              DCL        VAR(&VARLEN) TYPE(*DEC) LEN(4 0) VALUE(1121)
0013.00              DCL        VAR(&DEVNAM) TYPE(*CHAR) LEN(10)            
0014.00              DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +         
0015.00                           VALUE(X'000074') /* 2 進数  */            
0016.00              DCL        VAR(&NULL4) TYPE(*CHAR) LEN(4) +            
0017.00                           VALUE(X'00000000')                        
0018.00              DCL        VAR(&IPADDR) TYPE(*CHAR) LEN(15)            
0019.00              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(ERROR))     
0020.00                                                                     
0021.00              RTVJOBA    JOB(&DEVNAM) TYPE(&TYPE)                       
0022.00              CALL       PGM(QDCRDEVD) PARM(&DEVINFO &VARLEN +          
0023.00                           'DEVD0600' &DEVNAM &APIERR)                  
0024.00              IF         COND(%SST(&APIERR 5 4) *NE &NULL4) THEN(DO)    
0025.00              SNDPGMMSG  +                                              
0026.00                           MSG('API: QUHDSPH の実行で次のエラーが発生 + 
0027.00                            しました。 ') MSGTYPE(*DIAG)                
0028.00              GOTO       APIERR                                         
0029.00              ENDDO                                                     
0030.00              CHGVAR     VAR(&IPADDR) VALUE(%SST(&DEVINFO 877 15))      
0031.00              SNDPGMMSG  MSG(' このクライアントは ' *TCAT &IPADDR +     
0032.00                           *TCAT ' です。 ') MSGTYPE(*DIAG)             
0033.00              RETURN                                                    
0034.00                                                                        
0035.00                                                                        
0036.00  APIERR:                                                               
0037.00              CHGVAR     VAR(&MSGID) VALUE(%SST(&APIERR 9 7))           
0038.00              CHGVAR     VAR(&MSGDTA) VALUE(%SST(&APIERR 17 100))       
0039.00              CHGVAR     VAR(&MSGF) VALUE('QCPFMSG   ')                 
0040.00              CHGVAR     VAR(&MSGFLIB) VALUE('QSYS      ')              
0041.00              GOTO       SNDMSG                                         
0042.00  ERROR:      RCVMSG     MSGTYPE(*LAST) RMV(*NO) MSG(&MSG)      
0043.00  SNDMSG:                                                       
0044.00              IF         COND(&TYPE *EQ '0') THEN(DO)           
0045.00              SNDPGMMSG  MSG(&MSG) TOMSGQ(*SYSOPR) MSGTYPE(*COMP
0046.00              ENDDO                                             
0047.00              ELSE       CMD(DO)                                
0048.00              SNDPGMMSG  MSG(&MSG) TOMSGQ(*TOPGMQ) MSGTYPE(*DIAG
0049.00              ENDDO                                             
0050.00              ENDPGM                                            

【解説】