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(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