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

RUNJSM プログラムは CL プログラム RUNJSMEXT を呼び出します (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(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
  • No labels