Home > IT Answers > AS/400 > Transfering (save/restore) job scheduler from one AS400 to another
Zack
250 pts.
 Transfering (save/restore) job scheduler from one AS400 to another
AS/400, AS/400 job scheduler, JOB SCHEDULER, SAVSYS
Other than a SAVSYS, which I believe saves the native job scheduler which can subsequently be restored, is there a way to simply save and then restore (on a different AS400) all the entries on the job scheduler on their own?

Software/Hardware used:
AS400
ASKED: February 21, 2011  8:13 AM
UPDATED: March 13, 2011  8:48 AM
RELATED QUESTIONS
Answer Wiki:
Example: SAVOBJ OBJ(QDFTJOBSCD) LIB(QUSRSYS) DEV(*SAVF) OBJTYPE(*JOBSCD) SAVF(YOURLIB/YOURSAVF) CLEAR(*ALL) Send the SAVF over to the other machine and restore: RSTOBJ OBJ(QDFTJOBSCD) SAVLIB(QUSRSYS) DEV(*SAVF) OBJTYPE(*JOBSCD) SAVF(YOURLIB/YOURSAVF) Here's what I use for the IBM Advanced Job Scheduler: I schedule this once a week and use FTP to transport the save file from system A to System B. *************** PGM 1 - SAVE: *************** 0019.00 CLR_SAVF: CLRSAVF FILE(IJS/QIJS) 0020.00 WAIT: DLYJOB DLY(1) 0021.00 SAVE_LIB: SAVLIB LIB(QIJS) DEV(*SAVF) SAVF(IJS/QIJS) + 0022.00 SAVACT(*LIB) SAVACTWAIT(5) ACCPTH(*YES) 0023.00 MONMSG MSGID(CPF0000) 0024.00 0025.00 /* END_JS: ENDJS DTALIB(*ALL) */ 0026.00 CLRSAVF: CLRSAVF FILE(IJS/QUSRIJS) 0027.00 0028.00 SAVE_OBJ: SAVOBJ OBJ(*ALL) LIB(QUSRIJS) DEV(*SAVF) SAVF(IJS/QUSRIJS) + 0029.00 SAVACT(*LIB) SAVACTWAIT(5) ACCPTH(*YES) 0030.00 MONMSG MSGID(CPF0000) 0031.00 /*STR_JS: STRJS DTALIB(*ALL) */ 0032.00 SND_MSG: SNDMSG MSG('Backup of Advanced JobScheduler + 0033.00 Completed verify Target system weekly.') + 0034.00 TOUSR(*SYSOPR) 0035.00 0036.00 0037.00 ENDPGM ********************************************************************************************* **************** PGM2 RESTORE: **************** 0019.00 /*BACKUP EXISTING QUSRIJS LIBRARY AND LICENSE KEY DATA */ 0020.00 CLRSAVF: CLRSAVF FILE(IJS/QUSRIJS2) 0021.00 0022.00 SAVE_LIB: SAVLIB LIB(QUSRIJS) DEV(*SAVF) SAVF(IJS/QUSRIJS2) + 0023.00 SAVACT(*LIB) SAVACTWAIT(5) ACCPTH(*YES) 0024.00 MONMSG MSGID(CPF0000) 0024.01 SAV_LICKEY: DSPLICKEY SERIAL(*LOCAL) OUTPUT(*LICKEYFILE) + 0024.02 LICKEYFILE(QGPL/KEYS) 0024.03 0024.04 /*END JS, RESTORE QUSRIJS & LICKEYS */ 0024.05 0025.00 END_JS: ENDJS DTALIB(*ALL) 0025.02 MONMSG MSGID(CPF0000) 0026.00 WAIT: DLYJOB DLY(30) 0027.00 CLRLIB: CLRLIB LIB(QUSRIJS) 0027.01 MONMSG MSGID(CPF0000) 0027.02 WAIT2: DLYJOB DLY(5) 0028.00 RST_LIB: RSTOBJ OBJ(*ALL) SAVLIB(QUSRIJS) DEV(*SAVF) SAVF(IJS/QUSRIJS) 0029.00 MONMSG MSGID(CPF0000) 0030.00 0030.01 RST_LICKEY: ADDLICKEY LICKEYINP(*LICKEYFILE) SERIAL(*LOCAL) + 0030.02 LICKEYFILE(QGPL/KEYS) 0031.00 /*STR_JS: STRJS DTALIB(*ALL) */ 0032.00 SND_MSG: SNDMSG MSG('RESTORE of Advanced JobScheduler + 0033.00 Completed verify Target system.') + 0034.00 TOUSR(*SYSOPR) 0035.00 0036.00 0037.00 ENDPGM
Last Wiki Answer Submitted:  February 22, 2011  6:30 pm  by  slack400   2,680 pts.
All Answer Wiki Contributors:  slack400   2,680 pts. , Oldwood   15 pts.
To see all answers submitted to the Answer Wiki: View Answer History.


RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

 

Thank you Wiki.
Zack

Zack
 250 pts.
 

Thank you Slack400.
Zack

Zack
 250 pts.
 

No problemo! Glad to help

slack400
 2,680 pts.
 

If you want to have a good visual overview of all  as400 SAVE and RESTORE commands and menu
options, there is a neat Infographic at http://www.teknodatips.com.ar/as400/228-as400-iseries-save-restore.html

Although it’s in Spanish, the infographic  has little or no text, so it doesn’t matter
too much. 

RobertoContreras
 10 pts.