//SMFSAVW JOB (9999,CSOPER,10,10), // 'CORNERSTONE', // CLASS=I, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=, // TIME=1440, // USER= //* //* //* //* LIB: CORNERST.ZOS140.OPER.LIB(SMFSAVW) //* GDE: CORNERSTONE OPERATOR REFERENCE //* DOC: THIS JOB REQUESTS THE OPERATOR TO SIGN OUT AND MOUNT //* A STANDARD LABEL SCRATCH TAPE, COPIES IPOSAV.SMFDUMPW //* TO THIS TAPE AS A GENERATION DATA SET, EMPTIES //* IPOSAV.SMFDUMPW, DUMPS THE SMF DATA SETS TO THE WEEKLY //* SMF DATA SET IPOSAV.SMFDUMPW, ADDS THE IPOSAV.SMFDUMPW //* DATA SET TO THE TAPE GENERATION DATA SET AND AGAIN //* EMPTIES THE IPOSAV.SMFDUMPW DATA SET. THE JOB WILL //* INFORM THE OPERATOR OF ANY FAILURES WHICH MAY OCCUR. //* THIS JOB IS ALSO INVOKED AUTOMATICALLY BY EXECUTION OF //* THE MEMBER 'CSWEEKLY' //* //* //* WARNING: DD NAMED DUMPOUT MUST HAVE A DISP OF MOD. //* //* RETURN CODES, SMFDUMP PROGRAM: //* 04 NO DATASET TO BE DUMPED //* 08 IFASMFDP HAD NON-ZERO RETURN CODE //* 12 UNABLE TO SWITCH SMF RECORDING //* 16 DUMPOUT DD MISSING //* //* RETURN CODES, IFASMFDP PROGRAM: //* 04 ERRORS DETECTED BUT DUMP SUCCESSFUL //* 08 ERROR DETECTED DUMP UNSUCCESSFUL //* //* STEP1 SIGN OUT TAPES //* STEP2 COPIES SMFDUMPW TO BACKUP.SMFDUMP(+1) (TAPE) //* STEP3 WTO TO INFORM OPERATOR OF FAILURE //* STEP4 UNCATLGS BACKUP.SMFDUMP(+1) IF STEP3 FAILS //* STEP5 EMPTIES IPOSAV.SMFDUMPW //* STEP6 COPIES SMF DATA SETS TO IPOSAV.SMFDUMPW //* STEP7 MODS SMFSAVW TO BACKUP.SMFDUMP(+1) (TAPE) //* STEP8 WTO TO INFORM OF FAILURE //* STEP9 EMPTIES IPOSAV.SMFDUMPW //* //* WARNING: IF THIS JOB FAILS AFTER STEP4, THE CATALOG //* WILL REFLECT AN UPDATED GDG ON TAPE DATA SET //* BACKUP.SMFDUMP. ANY SUBSEQUENT RESTART JCL REQUIRING //* THIS TAPE SHOULD REFER TO 'BACKUP.SMFDUMP(0)'. //* IF A FAILURE OCCURS IN STEP5, EXPOSURE EXISTS FOR //* DUPLICATE DATA TO BE SUBSEQUENTLY PLACED ON DATA //* SET 'BACKUP.SMFDUMP' DUE TO THE USE OF THE 'MOD' //* DISPOSTION. //* //DMPSMF1 EXEC IPOWTO,MSG='SIGN OUT 1 STD LBL TAPE/NEXT STEP', // REGION=768K //SYSIN DD * DSN=BACKUP.SMFDUMP(+1) --- DUMP OF ONE WEEKS SMFDUMP THE DATASET RETPD IS 365 THE INTERNAL AND EXTERNAL TAPE LABELS SHOULD MATCH. USE THE STANDARD LABEL TAPE NUMBER IN REPLY TO THE TAPE MOUNT REQUEST. /* //DMPSMF2 EXEC PGM=IFASMFDP,REGION=768K,COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD1 DD DSN=IPOSAV.SMFDUMPW, // DISP=SHR //OUTDD1 DD DSN=BACKUP.SMFDUMP(+1), // DISP=(,CATLG,DELETE), // LABEL=RETPD=365,UNIT=3590-1, // DCB=(IPOSAV.SMFDUMPW) //SYSIN DD * INDD(INDD1,OPTIONS(ALL)) OUTDD(OUTDD1,TYPE(000:255)) /* //DMPSMF3 EXEC IPOWTO,COND=((5,GE,DMPSMF2),EVEN),REGION=768K //SYSIN DD * -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- /* //DMPSMF4 EXEC PGM=IEFBR14,COND=(5,GE,DMPSMF2),REGION=768K //SYSUT2 DD DSN=BACKUP.SMFDUMP(+1), // DISP=(OLD,DELETE) /* //DMPSMF5 EXEC PGM=IEBGENER,REGION=768K,COND=(4,LT) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=NULLFILE,DCB=IPOSAV.SMFDUMPW //SYSUT2 DD DSN=IPOSAV.SMFDUMPW, // DISP=OLD /* //DMPSMF6 EXEC PGM=SMFDUMP,REGION=768K,COND=(4,LT) //DUMPOUT DD DSN=IPOSAV.SMFDUMPW, // DISP=(MOD,PASS) //SYSPRINT DD SYSOUT=* //SYSABEND DD SYSOUT=* //SYSIN DD DUMMY /* //DMPSMF7 EXEC PGM=IFASMFDP,REGION=768K,COND=(4,LT) //SYSPRINT DD SYSOUT=* //INDD1 DD DSN=IPOSAV.SMFDUMPW, // DISP=SHR //OUTDD1 DD DSN=BACKUP.SMFDUMP(+1), // DISP=(MOD,KEEP), // LABEL=RETPD=365,UNIT=3490, // DCB=(IPOSAV.SMFDUMPW) //SYSIN DD * INDD(INDD1,OPTIONS(ALL)) OUTDD(OUTDD1,TYPE(000:255)) /* //DMPSMF8 EXEC IPOWTO,COND=((5,GE,DMPSMF6),EVEN),REGION=768K //SYSIN DD * -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- ************************************************************* IF FAILURE OCCURRED AFTER STEP4, CARE MUST BE EXERCISED ON A RESTART DUE TO CATALOG UPDATE OF DATA SET 'BACKUP.SMFDUMP' ************************************************************* -- SMFSAVW HAS FAILED -- CALL YOUR CORNERSTONE ADMINISTRATOR -- /* //DMPSMF9 EXEC PGM=IEBGENER,REGION=768K,COND=(4,LT) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT1 DD DSN=NULLFILE,DCB=IPOSAV.SMFDUMPW //SYSUT2 DD DSN=IPOSAV.SMFDUMPW, // DISP=OLD //*