Re: SAVLIB *ALLUSR & QUSRSYS

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

>How important is it to ensure that a daily backup of QUSRSYS is completed
normally? What are the consequences in ignoring the error messages posted
to the job log which state that some objects in QUSRSYS were not backed up?

Gerald...    Qusrsys should be backup at least weekly

Qusrsys has the Directory files and other things need for TCPIP.
Since most the objects that do not backup are PF's, here is a little CL I wrote
to copy things in Qusrsys to a new Library Zusrsys, I backup ZUSRSYS nightly.

I submit it to run just before the backup, with a scheduled job.

CALL PGM(DCCOPYPFC) PARM(QUSRSYS ZUSRSYS)


 PGM        PARM(&FRMLIB &TOLIB)

 DCL        VAR(&FRMLIB) TYPE(*CHAR) LEN(10)
 DCL        VAR(&TOLIB) TYPE(*CHAR) LEN(10)
 DCL        VAR(&TYPE) TYPE(*CHAR) LEN(1)
 DCL        VAR(&MSGDAT) TYPE(*CHAR) LEN(20)
 DCL        VAR(&SYS) TYPE(*CHAR) LEN(10) VALUE(QSYS)

 DCLF       FILE(QGPL/DCCOPYPF)

 RTVJOBA    TYPE(&TYPE)
 IF         COND(&TYPE *EQ '1') THEN(DO)
 CHKOBJ     OBJ(QSYS/&FRMLIB) OBJTYPE(*LIB) AUT(*USE)
 MONMSG     MSGID(CPF9801) EXEC(DO)
 CHGVAR     VAR(&MSGDAT) VALUE(&FRMLIB *CAT &SYS)
 SNDPGMMSG  MSGID(CPF9801) MSGF(QCPFMSG) +
              MSGDTA(&MSGDAT)
    GOTO       CMDLBL(END)
              ENDDO


             SBMJOB     CMD(CALL PGM(DCCOPYPFC) PARM(&FRMLIB +
                          &TOLIB)) JOB(&FRMLIB) JOBD(QBATCH) +
                          JOBQ(QBATCH1) LOG(*JOBD *JOBD *MSG) +
                          HOLD(*YES)
             GOTO       CMDLBL(END)
              ENDDO


             DSPOBJD    OBJ(&FRMLIB/*ALL) OBJTYPE(*FILE) +
                          OUTPUT(*OUTFILE) OUTFILE(QGPL/DCCOPYPF)

 READ:       RCVF
             MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(END))

             IF         COND(&ODOBAT *EQ 'PF        ') THEN(DO)
             CPYF       FROMFILE(&FRMLIB/&ODOBNM) +
                          TOFILE(&TOLIB/&ODOBNM) TOMBR(*FROMMBR) +
                          MBROPT(*REPLACE) CRTFILE(*YES)
             MONMSG     MSGID(CPF0000)
             ENDDO

             GOTO       CMDLBL(READ)

END:   ENDPGM




+---
| 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
+---