Source for CL startup program

Here you can check the detailed source information for the CL Startup program.

Note: By using the code examples, you agree to the terms of the Code license and disclaimer information.
Table 1. Source information for CL startup program
Object Command CL program source
QSTRUP CRTCLPGM 
PGM
DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('+
5761-SS1 (C) COPYRIGHT IBM CORP 1980, 2016. +
LICENSED MATERIAL - PROGRAM PROPERTY OF IBM')

QSYS/STRSBS SBSD(QSERVER)
MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QUSRWRK)
MONMSG MSGID(CPF0000)

QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT)
MONMSG MSGID(CPF0000)

QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE)
MONMSG MSGID(CPF0000)

QSYS/STRCLNUP
MONMSG MSGID(CPF0000)

QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD)
IF ((&CTLSBSD *NE 'QCTL QSYS ') +
*AND (&CTLSBSD *NE 'QCTL QGPL ')) GOTO DONE

QSYS/STRSBS SBSD(QINTER)
MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QBATCH)
MONMSG MSGID(CPF0000)

QSYS/STRSBS SBSD(QCMN)
MONMSG MSGID(CPF0000)

DONE:

QSYS/STRSBS SBSD(QSPL)
MONMSG MSGID(CPF0000)

QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS)
IF (&STRWTRS = '0') GOTO NOWTRS

CALL PGM(QSYS/QWCSWTRS)
MONMSG MSGID(CPF0000)

NOWTRS:

RETURN
CHGVAR VAR(&CPYR) VALUE(&CPYR)
ENDPGM