RE: SAVLIB *ALLUSR & QUSRSYS

WOW what a great idea and an excellent implementation of how to backup
Qusrsys.

Thank You very much.

Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
CrossCheck, Inc.         http://www.cross-check.com
6119 State Farm Drive    Phone: 707 586-0551 x 1102
Rohnert Park CA  94928 Fax: 707 586-1884

If consistency is the hobgoblin of little minds, only geniuses work here.
Karen Herbelin - Readers Digest 3/2000

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