Re: Save-while-active of QUSRSYS versus Management Central

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

rob@dekko.com on 02/14/2001 08:38:13 AM

Please respond to MIDRANGE-L@midrange.com

To:
cc:    (bcc: Arlene M Soderlund/NFCNA.COM)
Subject:  Save-while-active of QUSRSYS versus Management Central




Ron


Here's what I did to stop worrying about the data problem, I created a Zusrsys
library, I then copied all the Physical files to that library.   I then run this
program every night before backup.  Since I can copy if an object is in use I
get the data and in a restore situation I can copy this back to the IBM files.
I back up both libraries nightly also.

Call   Program   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





Arlene







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