Page History
...
STRJSM コマンドは RUNJSM プログラムを送信します。
この RUNJSM プログラムは、RUNJSMEXT がライブラリ・リストにあると、CL プログラム RUNJSMEXT を呼び出します。
以下のライフ・サイクル・イベントが発生すると、RUNJSM プログラムは CL プログラム RUNJSMEXT を呼び出します。
ENTRY | Java環境の開始前 |
REBOOT | Java環境のリブート時 Studioがリブートします。 |
EXIT | Java環境の終了時 Studioの停止またはQJVACMDSRVジョブの最後 |
この終了プログラムのソース・コードは、JSMライブラリのQCLSRCに保管されます。
PGM PARM(&EVENT &INSTANCE &VERSION &JOB) DCL VAR(&EVENT) TYPE(*CHAR) LEN(10)DCL VAR(&INSTANCE) TYPE(*CHAR) LEN(50)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 ENDENDDO IF COND(&EVENT *EQ 'REBOOT') THEN(DO) GOTO ENDENDDO IF COND(&EVENT *EQ 'EXIT') THEN(DO) GOTO ENDENDDO END: ENDPGM |