700 PGM
800 DCL VAR(&WORKSTN) TYPE(*CHAR) LEN(10)
900 DCL VAR(&ACTSTAT) TYPE(*CHAR) LEN(10)
1000 DCL VAR(&USERID) TYPE(*CHAR) LEN(10)
1100 DCL VAR(&YESNO) TYPE(*CHAR) LEN(10) VALUE(X)
1200 DCL VAR(&RETURNCD) TYPE(*CHAR) LEN(2)
1300 DCL VAR(&FAXRETCD) TYPE(*CHAR) LEN(2) VALUE(’00′)
1400 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*NOTIFY)
1500 RTVJOBA JOB(&WORKSTN) USER(&USERID)
1600 /* – – – – – – – – – – */
1700 /* PLACE CL HERE TO SHUT DOWN VARIOUS JOBS AND PROCEDURES… */
1800 /* – – – – – – – – – – */
1900 DLYJOB DLY(15)
2000 RESTRT:
2100 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK)
2200 SNDUSRMSG MSG(‘WARNING WARNING. ALL SYBSYSTEMS WILL BE +
2300 ENDED AT THIS POINT. IF ANY ONE IS ON +
2400 THE SYSTEM, THEY WILL BE KICKED OFF’) +
2500 MSGTYPE(*INFO) TOMSGQ(*)
2600 SNDUSRMSG MSG(‘Type Y to continue with backup, N to +
2700 abort.’) MSGTYPE(*INQ) TOMSGQ(*) +
2800 MSGRPY(&YESNO)
2900 IF COND(&YESNO *EQ ‘N’) THEN(GOTO CMDLBL(ENDALL))
3000 IF COND(&YESNO *EQ ‘Y’) THEN(GOTO CMDLBL(DOITTO))
3100 GOTO CMDLBL(RESTRT)
3200 /*- – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - */
3300 DOITTO:
3400 ENDSBS SBS(*ALL) OPTION(*IMMED) ENDSBSOPT(*NOJOBLOG)
3500 DLYJOB DLY(30)
3600 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*NOTIFY)
3700 /* – – – – – – – – – – */
3800 INZTAP
3900 /* – – – – – – – – – – */
4000 SAVSYS
4100 SAVLIB
4200 SAV
4300 SAVDLO
4400 DLYJOB DLY(15)
4500 /*- – - – RESTART ALL SUBSYSTEMS- SEE QSTRUP FOR LIST – - – - – - – - – */
4600 STRSBS SBSD(QCTL)
4700 CHGMSGQ MSGQ(QSYSOPR) DLVRY(*BREAK)
4800 ENDPGM

concerning your question “Isn’t it possible to wrap the commands issued via GO SAVE option 21 in a CLP and run it via job scheduled entry, assuming proper authority, etc.? “, here is the solution we use.

On the system console (running in QCTL subsystem), we initiate a interactifve job (BKPALLUSR) that is waiting for a specific message coming from the nightjobs process. This specific message is initiated by nightprocess on full backup day (saturday), and notify the console that all the night processes are finished and that machine is ready to be set up in restricted mode.

Console job get the info, end all subsystems, wait for completion, and launch a CL issuing all the save included in “GO SAVE option 21″.

When backup is finished, machine is IPLed wih PWRDWNSYS restart(* yes).

It work ok since a lot of years.

You can reach me at wpoulin@rev.state.nh.us.

Thanks,
Bill

I would be willing to share this code with you if you are interested.
Thanks,
Bill

Gordon