CL program to Varyon/off devices!

The program varies on all the varied off devices.

PGM
DCL VAR(&STSCDE) TYPE(*DEC) LEN(5 0)
DCLF FILE(SUBBU/DSPDEVSTS)
DSPOBJD OBJ(QPADEV*) OBJTYPE(*DEVD) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/DSPDEVSTS)
OVRDBF FILE(DSPDEVSTS) TOFILE(QTEMP/DSPDEVSTS) +
MBR(*FIRST) SECURE(*YES)
NEXT: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
RTVCFGSTS CFGD(&ODOBNM) CFGTYPE(*DEV) STSCDE(&STSCDE)
IF COND(&STSCDE = 0) THEN(VRYCFG +
CFGOBJ(&ODOBNM) CFGTYPE(*DEV) +
STATUS(*ON) RANGE(*OBJ))
GOTO CMDLBL(NEXT)
ENDPGM: ENDPGM

ALternatively the program can be modified for varying on the Varied off devices.

PGM
DCL VAR(&STSCDE) TYPE(*DEC) LEN(5 0)
DCLF FILE(SUBBU/DSPDEVSTS)
DSPOBJD OBJ(QPADEV*) OBJTYPE(*DEVD) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/DSPDEVSTS)
OVRDBF FILE(DSPDEVSTS) TOFILE(QTEMP/DSPDEVSTS) +
MBR(*FIRST) SECURE(*YES)
NEXT: RCVF
MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(ENDPGM))
RTVCFGSTS CFGD(&ODOBNM) CFGTYPE(*DEV) STSCDE(&STSCDE)
IF COND(&STSCDE = 20) THEN(VRYCFG +
CFGOBJ(&ODOBNM) CFGTYPE(*DEV) +
STATUS(*OFF) RANGE(*OBJ))
GOTO CMDLBL(NEXT)
ENDPGM: ENDPGM

For any further clarification or doubts, I request the students to mail me on dean@iseriesuniversity.com

Thank you!

Subbu