|
midrange.com
Douglas,
Just a couple of suggestions.
A. To track the sequence of events beyond a joblog.
1. Create a message queue for the backup process.
2. Write a message to this message queue for each statement
processed.
B. To determine what was saved use SAVLIB OUTPUT(*OUTFILE). You can
report the
contents of the file in any manner you choose.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas W. Palme
Sent: Monday, August 01, 2005 7:15 AM
To: Mid Range List
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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 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.
