Re: Unattended backup

[Charles Wilt <charles.wilt@xxxxxxxxx>]

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