Skip to main content

36 posts tagged with "IBM"

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)を参照

IBM System i (AS400): TELNETセッションの無操作時間超過による5250エミュレータのタイムアウト事象の対処法

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

事象​

IBM System i (AS400)に5250エミュレータ (かつtelnetプロトコル)でログインの上、一定時間無操作状態の後、セッション断となる場合。

対処法​

以下の設定値を確認する。(1〜3はIBM i上、4はルータ上の設定。)

  1. WRKSYSVALでシステム値のQINACTITV。
  2. CHGTCPAでTCP keep aliveパラメータであるTCPKEEPALV。
  3. CHGTELNAでtelnetセッションkeep alive timeoutパラメータであるTIMMRKTIMO。
  4. 通信経路間のルータのSPIタイムアウト値。

IBM System i (AS400): シェル (qsh) からCLコマンドを実行する

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

IBM i(AS400)上のシェルスクリプト内でCLコマンドを実行することができるので、物によってはCLPでプログラムを組むより簡単にできることがある。当記事は「引数で与えられたファイル内の端末デバイス一覧を用いてデバイスを一括で作成するシェル」を通じてシェル内でのCLコマンドの使用方法を紹介する。

IBM System i (AS400): ジョブの操作 - SBMJOB, WRKJOB, WRKUSRJOB, WRKSBS

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

下記の順序でsubmitting jobとそのjobの操作の動作確認をする。

  1. job queueに2つのjobをsubmitする
  2. システム上の全てのjob queueを表示する
  3. job queueのjobを表示する
  4. jobをholdする
  5. jobを別のjob queueに移動させる
  6. jobを終了する
  7. 指定ユーザー名のjobを検索する
  8. jobをリリースし完了したかどうかを確認する