Re: Automate a full system save in a CL

Furthermore if you have job scheduled entries for after the save finishes,
they have to be set correctly to run if the time is past when they would
ordinarily run.

Better yet, get the advanced job scheduler and set up dependent jobs to run
once the backup finishes, Or just get BRMS and forget all the other
foolishness and let BRMS do it for you.

The cost of either of those LPPs is low enough that a couple days of
programmer time to build/test/implement a home developed solution is about
the same cost, if you're honest about how much the developer costs/hour.

--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On Tue, Nov 2, 2021 at 11:35 AM Rob Berendt <rob@xxxxxxxxx> wrote:

Not a whole lot of scheduled jobs work after you go past this line...

ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(120)

Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1
Group Dekko
Dept 1600
Mail to: 7310 Innovation Blvd, Suite 104
Ft. Wayne, IN 46818
Ship to: 7310 Innovation Blvd, Dock 9C
Ft. Wayne, IN 46818
http://www.dekko.com


-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
mlazarus
Sent: Tuesday, November 2, 2021 12:16 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Automate a full system save in a CL

CAUTION: This email originated from outside of the organization. Do not
click links or open attachments unless you recognize the sender and know
the content is safe.


I would recommend putting any service or subsystem that you're ending
into a scheduled job that would automatically restart critical servers
or subsystems, just in case an unexpected error occurs.

On 11/2/2021 11:44 AM, Gmail wrote:

PGM
ENDHOSTSVR SERVER(*ALL)
ENDTCPSVR SERVER(*ALL)
MONMSG MSGID(TCP1A77)
DLYJOB DLY(300)
ENDTCP OPTION(*IMMED)
MONMSG MSGID(TCP1A13 TCP1A70 TCP1A72 TCP1A77)
ENDSBS SBS(*ALL) OPTION(*IMMED) BCHTIMLMT(120)
MONMSG MSGID(CPF0000)
DLYJOB DLY(180)
VRYCFG CFGOBJ(TAP01) CFGTYPE(*DEV) STATUS(*ON)
MONMSG MSGID(CPF26B6 CPF26B7 CPF262F CPF2640 +
CPF2659) EXEC(GOTO CMDLBL(RESTART))
SAVSYS DEV(TAP01) ENDOPT(*LEAVE) CLEAR(*ALL) +
DTACPR(*DEV)
SAVLIB LIB(*NONSYS) DEV(TAP01) ENDOPT(*LEAVE) +
CLEAR(*ALL) ACCPTH(*YES) SPLFDTA(*ALL)
SAVDLO DLO(*ALL) DEV(TAP01) ENDOPT(*LEAVE)
SAV DEV('/qsys.lib/tap01.devd') OBJ(('/*') +
('/qsys.lib' *OMIT) ('/qdls' *OMIT)) +
ENDOPT(*UNLOAD) UPDHST(*YES) CLEAR(*ALL)

RESTART: STRSBS SBSD(QCTL)

ENDPGM


Il 01/11/2021 22:13, Danner, Duane ha scritto:

Looking for an example of automating a full system save thru a CL if
possible.


Thanks

Duane Danner
Avery Weigh-Tronix

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com