2.1.1.1 終了プログラム(IBM i)

LANSA Integrator

2.1.1.1 終了プログラム(IBM i)


STRJSMコマンドはRUNJSMプログラムを発行します。

RUNJSMプログラムはCLプログラムRUNJSMEXTを呼び出します(RUNJSMEXTがライブラリ・リストにある場合)。

以下のライフ・サイクル・イベントが発生すると、RUNJSMプログラムはCLプログラムRUNJSMEXTを呼び出します。

ENTRY

Java環境の開始前

REBOOT

Java環境のリブート時
スタジオが再起動します。

EXIT

Java環境の終了時
スタジオの停止またはQJVACMDSRVジョブの最後

この終了プログラムのソース・コードは、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)

   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