Re: creating a log spool file for backups -- MIDRANGE-L

Someone else mentioned using the OUTPUT(*OUTFILE) parameter on you SAV*commands. I think this will put a lot of what you want in an output file -DSPFFD QASAVOBJ to see the kind of information you can get. Once done, runsome queries, then throw it away - or archive it, too.


HTH
Vern

At 09:14 AM 8/1/2005, you wrote:

We have a CL program that operates our backups, but we have not been logging
the details of what is backed up, whether or not it is successful, etc.

Here is a snippet of the program, if anyone has any suggestions on how to
add in some logging I would be most appreciative.

0007.00 PGM
0008.00
0009.00 /* SET PROGRAM VARIABLES
0010.00 DCL &SYSDATE *CHAR 6
0011.00 RTVSYSVAL QDATE &SYSDATE
0012.00
0013.00 /* ADD LIBRARY TO LIST
0014.00 ADDLIBLE LIB(DPALMES)
0015.00 MONMSG MSGID(CPF2103)
 MONMSG MSGID(CPF2103)

 /* INITIALIZE THE TAPE
 INZTAP DEV(TAP01) NEWVOL(&SYSDATE) VOL(*MOUNTED) CHECK(*NO) DENSITY(*DE
        ENDOPT(*REWIND) CLEAR(*NO)

 /* SEND FIRST BREAK MESSAGE ANNOUNCING BACKUP IN 15 MINUTES
 SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 15 MINUTES')
           TOMSGQ(*ALLWS)
           DLYJOB DLY(300)

 /* SEND SECOND BREAK MESSAGE ANNOUNCING BACKUP IN 10 MINUTES
 SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 10 MINUTES')
           TOMSGQ(*ALLWS)
           DLYJOB DLY(300)

/* SEND THIRD BREAK MESSAGE ANNOUNCING BACKUP IN 5 MINUTES
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 5 MINUTES')
          TOMSGQ(*ALLWS)
          DLYJOB DLY(180)

/* SEND FOURTH BREAK MESSAGE ANNOUNCING BACKUP IN 3 MINUTES
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 3 MINUTES')
          TOMSGQ(*ALLWS)
          DLYJOB DLY(120)

/* SEND FINAL BREAK MESSAGE ANNOUNCING BACKUP IN 1 MINUTE
SNDBRKMSG MSG('SYSTEM GOING DOWN FOR NIGHTLY PROCESSING IN 1 MINUTE') +
          TOMSGQ(*ALLWS)
          DLYJOB DLY(60)

/* ADD IN VARY OFF COMMANDS HERE AT A LATER TIME TO VARY OFF VIRTUAL DE
ENDSBS SBS(QINTER) OPTION(*IMMED)
/* START THE BACKUP PROCESS

 /* BACKUP DIRECTORIES
              SAVLIB     LIB(DPALMES) DEV(TAP01) SEQNBR(1) +
                           ENDOPT(*LEAVE)
              SAVLIB     LIB(ATGI) DEV(TAP01) SEQNBR(2) +
                           ENDOPT(*LEAVE)
              SAVLIB     LIB(ATFTLIB) DEV(TAP01) SEQNBR(3) +
                           ENDOPT(*LEAVE)
             SAVLIB      LIB(ATLRLIB) DEV(TAP01) SEQNBR(4) +
                          ENDOPT(*LEAVE)
             SAVLIB      LIB(ILMODTA) DEV(TAP01) SEQNBR(5) +
                          ENDOPT(*LEAVE)
             SAVLIB      LIB(ILMOLIB) DEV(TAP01) SEQNBR(6) +
                          ENDOPT(*LEAVE)
             SAVLIB      LIB(ILMOS) DEV(TAP01) SEQNBR(7) +
                          ENDOPT(*LEAVE)
             SAVLIB      LIB(QGPL) DEV(TAP01) SEQNBR(8) +
                          ENDOPT(*UNLOAD)

 /* RESTART INTERACTIVE SUBSYSTEM
 STRSBS SBSD(QINTER)

 ENDPGM


If you bought, it was hauled by a truck - somewhere, sometime.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.