4.7.9 RUNJSMEXT
STRJSMコマンドはRUNJSMプログラムを発行します。
RUNJSMプログラムはCLプログラムRUNJSMEXTを呼び出します(RUNJSMEXTがライブラリ・リストにある場合)。
以下のライフ・サイクル・イベントが発生すると、RUNJSMプログラムはCLプログラムRUNJSMEXTを呼び出します。
ENTRY |
Java環境の開始前 |
REBOOT |
Java環境の再起動時 |
EXIT |
Java環境の終了時 |
この終了プログラムのソース・コードは、JSMライブラリのQCLSRCに保管されます。
PGM PARM(&EVENT &INSTANCE &VERSION &JOB)
DCL VAR(&EVENT) TYPE(*CHAR) LEN(10)
DCL VAR(&INSTANCE) TYPE(*CHAR) LEN(30)
DCL VAR(&VERSION) TYPE(*CHAR) LEN(8)
DCL VAR(&JOB) TYPE(*CHAR) LEN(10)
IF COND(&EVENT *EQ 'ENTRY') THEN(DO)
/* CHGJOB CCSID(37) FOR NATIVE JDBC DRIVER */
GOTO END
ENDDO
IF COND(&EVENT *EQ 'REBOOT') THEN(DO)
GOTO END
ENDDO
IF COND(&EVENT *EQ 'EXIT') THEN(DO)
GOTO END
ENDDO
END: ENDPGM