Page History
...
The RUNJSM program calls the CL program RUNJSMEXT when the following life cycle events occur:
ENTRY | Before the Java environment starts. |
REBOOT | When the Java environment reboots. |
EXIT | When the Java environment ends. |
The source code for this exit program is stored in QCLSRC in the JSM library.
...
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