ILE-RPG TELNET端末のIPアドレスを取得 
出口点(QIBM_QTG_DEVINIT)を利用してTELNET端末のIPアドレスを取得します。
TNTLOG.pf
SIZE(*NOMAX)でコンパイルしてください。QGPLくらいにおいておくとラク。
ソース
A R TNTR
A TNTDEV 10A TEXT('DEVD')
A TNTIP 15A TEXT('IP')
A TNTTS Z TEXT('TIMESTAMP')
GETTNTLOG.rpgle
適当なライブラリにおいてください。QGPLくらいが無難
ソース
H DFTACTGRP(*NO) ACTGRP(*CALLER) DATEDIT(*YMD/) DATFMT(*YMD/)
FTNTLOG O E K DISK
D*変数
D TodayStamp S z Inz(*Sys)
D*IP情報の構造体
D DS
D R#CNND 1 74
D R#IPB 9 12B 0
D R#IP1 9 9U 0
D R#IP2 10 10U 0
D R#IP3 11 11U 0
D R#IP4 12 12U 0
D* RECIEVED DEVD
D DS
D R#DEVD 1 40
D R#DEV 1 10
C* パラメータエリア
C *ENTRY PLIST
C PARM P#USRD 44 ユーザー記述
C PARM P#DEVD 40 装置記述情報
C PARM P#CNND 74 接続記述情報
C PARM P#ENV 1 環境OPT
C PARM P#ENVL 4 0 環境OPT LEN
C PARM P#ALWC 1 接続の許可
C PARM P#ALWS 1 自動サインオ
C*
C EXSR SRINIT 初期化
C EXSR SRMAIN メイン
C SETON LR
C RETURN
C*-----------------------------------------------------
C* 初期化ルーチン
C SRINIT BEGSR
C*自動サインオンの許可
C MOVE '1' P#ALWC
C ENDSR
C*-----------------------------------------------------
C* メインルーチン
C SRMAIN BEGSR
C* IP情報を加工
C MOVEL P#CNND R#CNND
C EVAL TNTIP = %CHAR(R#IP1) + '.' + %CHAR(R#IP2)
C + '.' + %CHAR(R#IP3) + '.' +
C %CHAR(R#IP4)
C*
C MOVEL P#DEVD R#DEVD
C EVAL TNTDEV = R#DEV DEVD
C EVAL TNTTS = TodayStamp DEV TYPE
C*
C WRITE TNTR
C*
C ENDSR
使い方
ADDEXITPGM EXITPNT(QIBM_QTG_DEVINIT) FORMAT(INIT0100) PGMNBR(*LOW) PGM(QGPL/GETTNTLOG)
WRKREGINFコマンドで正しく登録されているか確認してください。
動作確認
RUNQRY () TNTLOG
PRIMULA 192.168.1.100 2010-01-18-14.22.06.842000
NEIRNE 192.168.1.101 2010-01-18-15.01.11.626000
LISIANTHUS 192.168.1.103 2010-01-18-15.02.48.448000
192.168.1.104 2010-01-18-15.11.49.440000
ASA 192.168.1.104 2010-01-18-15.24.20.499000
KAEDE 192.168.1.105 2010-01-18-15.33.18.920000
KIKYOU 192.168.1.106 2010-01-18-15.41.42.560000
192.168.1.107 2010-01-18-15.45.41.778000
MOMIJI 192.168.1.108 2010-01-18-15.57.33.022000
このページへのコメント
u36db6 Major thankies for the post.Really looking forward to read more. Fantastic.
nzda1Y Really appreciate you sharing this blog article.Much thanks again. Want more.