Transfering (save/restore) job scheduler from one AS400 to another

265 pts.
Tags:
AS/400
AS/400 jobs
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

Answer Wiki

Thanks. We'll let you know when a new response is added.

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

Discuss This Question: 4  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • Zack
    Thank you Wiki. Zack
    265 pointsBadges:
    report
  • Zack
    Thank you Slack400. Zack
    265 pointsBadges:
    report
  • slack400
    No problemo! Glad to help
    2,705 pointsBadges:
    report
  • RobertoContreras

    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. 

    10 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following