Complete Magazine - PDF (5589K) - Toronto Users Group for Power ...

Here is the CLLE program code called DSPSYSLVLP that is compiled with CRTBNDCL:
14
PGM (&OUTPUT &SOLUTION &SHOWCMD)
DCLF SYSLVLDSP
DCL &SHOWCMD *CHAR 4
DCL &SOLUTION *CHAR 4
DCL &OUTPUT *CHAR 8
DCL &OUTQ *CHAR 10
DCL &OUTQLIB *CHAR 10
DCL &SYSLVL *CHAR 9
IF (&SHOWCMD = ‘*YES’) DSPCMD DSPSYSLVL
RTVOBJD QSYS/QCMD *PGM SYSLVL(&SYSLVL)
SELECT
WHEN (&OUTPUT = ‘*MSGLINE’) DO
ENDDO
SNDPGMMSG MSG(‘System Level is’ *BCAT +
WHEN (&OUTPUT = ‘*DISPLAY’) DO
ENDDO
&SYSLVL *BCAT +
‘according to’ *BCAT +
‘Russell Pangborn’’s New CLLE Command’) MSGTYPE(*COMP)
CHGVAR &SYSLVLV %SST(&SYSLVL 2 2)
CHGVAR &SYSLVLR %SST(&SYSLVL 5 2)
CHGVAR &SYSLVLM %SST(&SYSLVL 8 2)
SNDRCVF RCDFMT(RECORD1)
IF &IN04 SNDRCVF RCDFMT(COMMANDBY)
WHEN (&OUTPUT = ‘*PRINTER’) DO
RTVUSRPRF OUTQ(&OUTQ) OUTQLIB(&OUTQLIB)
CLROUTQ &OUTQLIB/&OUTQ
OVRPRTF FILE(QPRTOBJD) SPLFNAME(&SYSLVL)
DSPOBJD OBJ(QSYS/QCMD) OBJTYPE(*PGM) DETAIL(*FULL) OUTPUT(*PRINT)
WRKOUTQ &OUTQLIB/&OUTQ
ENDDO
ENDSELECT
SELECT
WHEN (&SOLUTION = ‘*YES’) DO
ENDDO
SNDPGMMSG MSG(‘I USED THE RTVOBJD COMMAND ‘ *BCAT +
ENDSELECT
ENDPGM
‘WITH THE SYSLVL PARAMETER’) MSGTYPE(*COMP)
TORONTO USERS GROUP for Power Systems – January 2010