//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
//*