Exit Program (IBM i)
The STRJSM command submits the RUNJSM program.
The RUNJSM program will call the CL program RUNJSMEXT if it is found in the library list.
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