½Ð¸ýÅÀ(QIBM_QTG_DEVINIT)¤òÍøÍѤ·¤ÆTELNETüËö¤ÎIP¥¢¥É¥ì¥¹¤ò¼èÆÀ¤·¤Þ¤¹¡£
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.