Automating the SAVSYS 1

[RedMage1967]

Does anyone out there know of a way to automate the system save? I do a SAVSYS (go save, opt 21) once a month. This month, my primary tape device is down. I'm back to using the 1/4" tape drive again. Was wondering if it was possible to automate the SAVSYS. Could one just write a CLP that does and ENDSYS, the the SAVSYS, the calls the start up program. Submit this program to a jobq that processes under the QCTL sub-system. Would that work?

RedMage1967
IBM Certifed - RPG IV Progammer

 

[iSeriesCodePoet]

I have seen this before, search in the midrange.com archives for this. I know I have seen it there.

http://archive.midrange.com/index.shtml

iSeriesCodePoet
IBM iSeries (AS/400) Programmer

See my progress to converting to linux.

http://koldark.hopto.org/linux/

The Programmer's Knowledge Base ->

http://koldark.hopto.org/twiki/bin/view/Programkb/WebHome

 

[pgmr]

I found a solution on iseriesnetwork.com forums.
I wrote a CL to do a RCLSTG and called it from the command line on the console. While the system is in a restricted state only an interactive job will run in QCTL from the console. A batch job will not run. In the CL :

CHGMSGQ MSGQ(QSYSOPR) DLVRY(*HOLD)
DLYJOB RSMTIME(230000)
ENDSBS SBS(*ALL) OPTION(*IMMED)
DLYJOB DLY(600)
RCLSTG
STRSBS SBS(QCTL)
ENDPGM

HTH,
PGMR