4 7 9 RUNJSMEXT

LANSA Integrator

4.7.9 RUNJSMEXT

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.
Studio Reboot.

EXIT

When the Java environment ends.
Studio Shutdown or ending of the QJVACMDSRV job.

 

 

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