MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » April 2014

Re: Unattended backup



fixed

Not Me (but then you just said "To each his own!)

I prefer to code it so that it can be submitted either to a console monitor job or as a batch job in QCTL. I rarely see the servers I am working on these days!

- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 4/3/2014 9:05 AM, Charles Wilt wrote:
*This message was transferred with a trial version of CommuniGate(r) Pro*
No need to understand every line...just the general flow.

And realize that the key points are DLYJOB, ENDSBS and STRSBS. Those are
easy enough to find. Looking around after finding ENDSBS and you'll see
ENDTCPSVR, ENDHOSTSVR, and ENDTCP..

Each to his own...but I like having my SAVESYSTEM come up with the save
menu option 21 screen so I can change the time or the device or any of teh
other IBM provided options.

Charles


On Thu, Apr 3, 2014 at 8:39 AM, DrFranken <midrange@xxxxxxxxxxxx> wrote:

Fair enough but QMNSAVE isn't easy to read either! I leave you with: :-)

QSYS/CHGVAR VAR(&DEVPATH) VALUE(&PATH1 *BCAT &PATH2 *BCAT &PATH3-
*BCAT &PATH4)
IF COND(&PROMPT *EQ 'N') THEN(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE('*SYSTEM/SAV OBJ((''/*'') -
(''/QSYS.LIB'' *OMIT) (''/QDLS'' *OMIT)) CLEAR(' *CAT &CLEAR *CAT-
') DEV(' *CAT &DEVPATH *CAT ') UPDHST(*YES) -
ASPDEV(*SYSBAS) ENDOPT(*LEAVE) ')
ENDDO
ELSE CMD(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE('? *NLVLIBL/SAV ??OBJ((''/*'') -
(''/QSYS.LIB'' *OMIT) (''/QDLS'' *OMIT)) ??CLEAR(' *CAT -
&CLEAR *CAT ') ?*DEV(' *CAT &DEVPATH *CAT ') ??UPDHST(*YES) -
??ASPDEV(*SYSBAS) ??ENDOPT(*LEAVE) ')
ENDDO
IF COND((&OPTDEV *EQ 'Y') *AND (&PROMPT *EQ 'Y')) THEN(DO)
QSYS/CHGVAR VAR(&SAVCMD) VALUE(&SAVCMD *BCAT 'OPTFILE(''*'')')
ENDDO
QSYS/CALL PGM(QSYS/QCMDEXC) PARM(&SAVCMD 1009)


- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com

On 4/3/2014 8:33 AM, Charles Wilt wrote:
Hey Doc...I think you're confusing QMNSRBND and QMNSAVE..

QMNSAVE calls QMNSRBND, QMNSRBND basically just the save entire system
job
stream.

Charles


On Thu, Apr 3, 2014 at 8:14 AM, DrFranken <midrange@xxxxxxxxxxxx> wrote:

WRT QMNSRBND: YES that's the program but retrieving it will get you
vastly more code than needed for a Save 21. It contains all the options
for the save and restore menu with LOTS of conditioning and because
you're getting the source from RTVCLSRC (note the program is DBCS) you
get no comments, no indenting, and no spaces and still it's 460 lines
long.

As a simpler way to see the important bits of what happens in a SAVE 21
simply GO SAVE put 21 on the command line and hit HELP. The important
commands are right there and can be copied to a source member. You must
add the DEV parm to those commands and of course any delays, MONMSG,
etc.

Not saying you can't learn from the QMNSRBND program but ferreting out
which parts of that are needed for the SAVE 21 isn't 'Intuitively
obvious to the most casual observer' :-)

- Larry "DrFranken" Bolhuis

www.frankeni.com
www.iDevCloud.com
www.iInTheCloud.com







Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact