Page History
...
ENTRY | Java環境の開始前 |
REBOOT | Java環境のリブート時 Studioがリブートします。 |
EXIT | Java環境の終了時 Java環境の終了時 |
この終了プログラムのソース・コードは、JSMライブラリのQCLSRCに保管されます。
| Code Block |
|---|
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 END |
...
ENDDO |
...
...
IF COND(&EVENT *EQ 'REBOOT') THEN(DO) |
...
GOTO END |
...
ENDDO |
...
...
IF COND(&EVENT *EQ 'EXIT') THEN(DO) |
...
GOTO END |
...
ENDDO |
...
...
END: ENDPGM |
...