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をご参照。