Re: creating a log spool file for backups

Nothing of value in the IFS we are not even using it at this point except 
for some testing with html junk but since we are nothing moving forward with 
it at this point, it does not matter.

I am assuming that I should run your suggestion first before processing the 
files correct?


On Mon, 1 Aug 2005 09:39:15 -0500, rob wrote
> DSPOBJD OBJ(ROB/QPGMSRC) OBJTYPE(*FILE) DETAIL(*FULL)
> on a file shows:
> Save/Restore information: 
>   Save date/time . . . . . . . . . . :   07/31/05  23:42:37
>   Restore date/time  . . . . . . . . :   05/22/04  12:34:20
>   Save command . . . . . . . . . . . :   SAVLIB 
>   Device type  . . . . . . . . . . . :   Tape 
>   Sequence number  . . . . . . . . . :   893 
>   Volumes  . . . . . . . . . . . . . :   SFRI12 
>   File label ID  . . . . . . . . . . :   ROB 
>   Save format  . . . . . . . . . . . :   Serial
> 
> Try this:
> DSPOBJD OBJ(*ALL/*ALL) OBJTYPE(*ALL) OUTPUT(*OUTFILE) 
> OUTFILE(MYLIB/DSKDTL)
> 
> Then this:
> SELECT ODLBNM, ODOBNM, ODOBTP, ODOBAT, ODSDAT, 
> case 
>   when substr(odsdat,5,2)='  ' then 
>        date('01/01/1801') 
>   when substr(odsdat,5,2)>'06' then 
>        date(substr(odsdat,1,2) concat '/' concat
>             substr(odsdat,3,2) concat '/' concat
>             '19' concat 
>             substr(odsdat,5,2)) 
>   else 
>        date(substr(odsdat,1,2) concat '/' concat
>             substr(odsdat,3,2) concat '/' concat
>             '20' concat 
>             substr(odsdat,5,2)) 
>   end as SavedDate 
> from qtemp/dskdtl 
> order by SavedDate
> 
> Anything of value in your IFS?
> WRKLNK '/*'
> 
> Rob Berendt
> -- 
> Group Dekko Services, LLC
> Dept 01.073
> PO Box 2000
> Dock 108
> 6928N 400E
> Kendallville, IN 46755
> http://www.dekko.com
> 
> "Douglas W. Palme" <dpalme@xxxxxxxxxxx> 
> Sent by: midrange-l-bounces@xxxxxxxxxxxx
> 08/01/2005 09:14 AM
> Please respond to
> Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
> 
> To
> "Mid Range List" <midrange-l@xxxxxxxxxxxx>
> cc
> 
> Subject
> creating a log spool file for backups
> 
> 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.
> 
> -- 
> 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.


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