|
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.