Skip to main content

21 posts tagged with "System i"

View All Tags

IBM System i (AS400): Power-Off時の処理追加方法 - QEZPWROFFP

· 2 min read
Yu Sasaki
Yu Sasaki
Enterprise Security Manager / Advisor

System i においてスケジュールPower-Off時にアプリケーションの終結処理等を挿入したい場合、QSYS/QEZPWROFFPプログラムを修正する。修正方法は下記の通り。

ソースファイルの取得​

> RTVCLSRC PGM(QSYS/QEZPWROFFP) SRCFILE(QGPL/QCLSRC)

ここではQGPLに保管している。

ソースファイルの修正​

> STRSEU SRCFILE(QGPL/QCLSRC) SRCMBR(QEZPWROFFP)

 Columns . . . :    1  71            Edit                           QGPL/QCLSRC
 SEU==>                                                              QEZPWROFFP
 FMT **  ...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7
0018.00 /* User mod flag  . . . . . . . . . . . . . :   *NO               UM*/
0019.00 /*                                                                ED*/
0020.00 /********************************************************************/
0021.00      PGM
0022.00      DCL VAR(&COIBM) TYPE(*CHAR) LEN(128) VALUE('      5738-SS1 (C) -
0023.00 COPYRIGHT IBM CORP. 1980, 1991 ALL RIGHTS RESERVED. LICENSED -
0024.00 MATERIALS - PROPERTY OF IBM')
0025.00      QSYS/PWRDWNSYS OPTION(*IMMED)
0026.00      GOTO CMDLBL(PGM_END)
0027.00 COPYWRITE: +
0028.00      QSYS/CHGVAR VAR(&COIBM) VALUE(&COIBM)
0029.00 PGM_END:
0030.00      QSYS/ENDPGM
        ****************** End of data ****************************************
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F10=Cursor   F11=Toggle
 F16=Repeat find       F17=Repeat change          F24=More keys

上記の QSYS/PWRDWNSYS OPTION(*IMMED) 前に任意の処理を追加〜コンパイル〜配置することで、スケジュールPower-Off時に実行される。WebSphere MQ のキューマネージャの停止処理や各種ログのラップ処理を追加する等の活用に使える。詳細な仕様については下記のIBM Knowledge Centerをご参照。

参考サイト​

IBM System i (AS400): プログラムの実行有無の確認 - DSPOBJD

· One min read
Yu Sasaki
Yu Sasaki
Enterprise Security Manager / Advisor

System i において、対象プログラムが最後に何時実行されたのかを調べるにはDSPOBJDコマンドを用いて確認する。用途としては「実行結果はさておきPGMが実行されたかどうか」を確認したい際に使う。

コマンド実行例​

> DSPOBJD OBJ(XXXX/YYYYYYYYY) OBJTYPE(*PGM)

IBM System i (AS400): MQの通信ポート番号の設定先

· One min read
Yu Sasaki
Yu Sasaki
Enterprise Security Manager / Advisor

AS400上のWebSphere MQのチャネル通信ポート番号の設定先は下記のパスとなる。

 /QIBM/UserData/mqm/qmgrs//qm.ini

内容を確認するには下記のコマンドでディレクトリをブラウズし、

> WRKLNK OBJ('/QIBM/UserData/mqm/qmgrs/')

対象ファイルを5=Displayすれば良い。

                             Work with Object Links
 Directory  . . . . :   /QIBM/UserData/mqm/qmgrs/QMA
 Type options, press Enter.
   2=Edit   3=Copy   4=Remove   5=Display   7=Rename   8=Display attributes
   11=Change current directory ...
 Opt   Object link            Type     Attribute    Text
       listener               DIR
       master                 STMF
       namelist               DIR
       plugcomp               DIR
       procdef                DIR
  5    qm.ini                 STMF
       qmanager               DIR
       qmstatus.ini           STMF
       queues                 DIR
                                                                        More...
 Parameters or command
 ===>
 F3=Exit   F4=Prompt   F5=Refresh   F9=Retrieve   F12=Cancel   F17=Position to
 F22=Display entire field           F23=More options

参考サイト​

IBM System i (AS400): SNA通信における戻りコード82A6 (否定応答: negative-response)

· 2 min read
Yu Sasaki
Yu Sasaki
Enterprise Security Manager / Advisor

SNA関連のノウハウはTCP/IPが席巻している昨今Web上のドキュメントや情報も公式を含めてなかなか無い。下記のコードは最近偶々遭遇したエラーコードであり、備忘録として翻訳記録しておく。 引用元：IBM AS/400 Advanced Series APPC Programming Version 4のB-19 (123/301)を参照