//SLGSAVT JOB (9999,CSOPER,10,10), // 'CORNERSTONE', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=, // TIME=1440, // USER= //* //* //* //* LIB: CORNERST.ZOS140.OPER.LIB(SLGSAVT) //* GDE: CORNERSTONE OPERATOR REFERENCE //* DOC: THIS JOB IS INVOKED BY THE OPERATOR TO: //* DUMP THE WEEKLY SYSLOG DATA SET IPOSAV.SYSLOGW //* TO THE CURRENT SYSLOG ARCHIVE TAPE, ACCORDING TO THE //* CATALOG(BACKUP.SYSLOG), WITH A 'MOD' DISPOSITION. //* IT IS DESIGNED FOR USE WHEN THE WEEKLY DATA SET //* IS NOT ADEQUATE TO STORE THE DATA LOAD FOR ENTIRE WEEK //* IT IS ALSO INVOKED AUTMOATICALLY IF MEMBERS 'SLGSAVD' //* OR 'SLGSTR' ABEND. //* //* WARNING: IF JOB FAILS IN STEPS 2 OR 3, CARE MUST //* BE EXERCISED IF A RESTART PRIOR TO //* STEP3 IS ATTEMPTED. DUPLICATE DATA MAY //* BE PLACED ON TAPE DUE TO THE USE OF THE //* 'MOD' DISPOSTION IN STEP2. //* //* STEP1 -- WARNS OPERATOR TO EXPECT UNEXPIRED FILE MESSAGE //* STEP2 -- MODS SYSLOGW TO BACKUP.SYSLOG(0) (TAPE) //* STEP3 -- EMPTIES IPOSAV.SYSLOGW //* STEP4 -- REINVOKES JOB SLGSAVD //* STEP5 -- WTO TO INFORM OF FAILURE //* //SYSLOG1 EXEC IPOWTO,REGION=512K //SYSIN DD * ---- THIS STEP ADDS SYSLOG DATA TO PREVIOUS SYSLOG TAPE(S), ---- DSN=BACKUP.SYSLOG(0). ---- PUT RING IN THE TAPE(S) REQUESTED. ---- EXPECT MSG IEC507D FOR UNEXPIRED FILE. (REPLY: R XX,U) /* //SYSLOG2 EXEC PGM=IEBGENER,REGION=512K,COND=(0,LT) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=IPOSAV.SYSLOGW,DISP=SHR //SYSUT2 DD DSN=BACKUP.SYSLOG(0),DISP=MOD, // LABEL=RETPD=365,UNIT=VTS1, // DCB=(IPOSAV.SYSLOGW) //* //SYSLOG3 EXEC PGM=IEBGENER,REGION=512K,COND=(0,LT) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=NULLFILE,DCB=IPOSAV.SYSLOGW //SYSUT2 DD DSN=IPOSAV.SYSLOGW,DISP=OLD //* //SYSLOG4 EXEC JOB,N=SLGSAVD,REGION=512K,COND=(0,LT) //SYSIN DD * /* //SYSLOG5 EXEC IPOWTO,REGION=512K,COND=((0,EQ,SYSLOG2),EVEN) //SYSIN DD * ---- SLGSAVT HAS FAILED --- CALL THE CORNERSTONE ADMINISTRATOR ---- SLGSAVT HAS FAILED --- CALL THE CORNERSTONE ADMINISTRATOR ---- SLGSAVT HAS FAILED --- CALL THE CORNERSTONE ADMINISTRATOR ---- SLGSAVT HAS FAILED --- CALL THE CORNERSTONE ADMINISTRATOR /* //*