Re: Complete Save via CL Command?

["Arlene M Soderlund" <Arlene_M_Soderlund/NFCNA.COM@xxxxxxxxx>]

I was told (when I first started dealing with the AS/400 and still barely knew
how to spell it) that there is a way to run a complete system save using a CL
command through a job scheduled entry.  Is anyone familiar with this?  If so,
would you be willing to share that CL command?  I want to implement such on 3 of
my AS/400's since I am an hr and a half from office and don't care to drive in
each weekend.

DCL        VAR(&Tape) TYPE(*CHAR) LEN(10)
DCL        VAR(&DEVPC1) TYPE(*CHAR) LEN(25)
DCL        VAR(&LIBPC) TYPE(*CHAR) LEN(10) +
             VALUE('/QSYS.LIB/')
DCL        VAR(&DEVD) TYPE(*CHAR) LEN(5) +
             VALUE('.DEVD')


       IF         COND(&LDEV1 *NE '          ') THEN(+
             CHGVAR     VAR(&DEVPC1) VALUE(&LIBPC *CAT &LDEV1 +
                        *TCAT &DEVD))



SAVSECDTA  DEV(&Tape) ENDOPT(*LEAVE)
SAVCFG     DEV(&Tape) ENDOPT(*LEAVE)
SAVDLO     DLO(*ALL) DEV(&tape) ENDOPT(*LEAVE)

SAVLIB LIB(*NONSYS) DEV(&Tape) ENDOPT(*LEAVE)

SAV        DEV(&DEVPC1) +
             OBJ(('*' *INCLUDE) ('/QSYS.LIB' *OMIT) +
             ('/QDLS' *OMIT)) ENDOPT(*LEAVE ) UPDHST(*YES)




You can also schedule the 21 save, read the directions

Type

Go Save

21. Entire system








+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---