//SMFSAV JOB (), // 'CORNERSTONE', // CLASS=I, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=, // TIME=1440 //* /*JCTRL*/ //* //* /*JCTRL*/ //* LIB: CORNERST.ZOS140.OPER.LIB //* DOC: THIS JOB DUMPS THE SMF DATA SETS TO A WEEKLY //* ACCUMULATION DISK DATA SET NAMED IPOSAV.SMFDUMPW. //* JOB SMFSAVT WILL BE INVOKED IF THE DUMP STEP ABENDS. //* //* WARNING: DD NAMED DUMPOUT MUST HAVE A DISP OF MOD. //* //* RETURN CODES, SMFDUMP PROGRAM (USED IN STEP1) ARE: //* 04 NO DATASET TO BE DUMPED //* 08 IFASMFDP HAD NON-ZERO RETURN CODE //* 12 UNABLE TO SWITCH SMF RECORDING //* 16 DUMPOUT DD MISSING //* //* STEP1 -- COPIES SMF DATA SETS --- IPOSAV.SMFDUMPW //* STEP2 -- WTO TO INFORM OF ABEND //* STEP3 -- INVOKES JOB SMFSAVT IF STEP1 ABENDS. //* STEP4 -- WTO TO INFORM OF FAILURE //* //DMPSMF1 EXEC PGM=SMFDUMP,REGION=768K //DUMPOUT DD DSN=IPOSAV.SMFDUMPW, // DISP=(MOD,KEEP) //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //* //DMPSMF2 EXEC IPOWTO,COND=ONLY,REGION=768K //SYSIN DD * ---- ---- ---- SMFSAV HAS FAILED ---- ---- SMFSAV HAS FAILED ---- ---- ---- ---- IF SMFSAVT IS TO BE STARTED REPLY C TO THIS ---- ---- MESSAGE. ELSE CANCEL THIS JOB AND NOTIFY ---- ---- SYSTEMS PROGRAMMING. ---- ---- ---- /* //* //DMPSMF3 EXEC JOB,N=SMFSAVT,COND=ONLY,REGION=768K //* //DMPSMF4 EXEC IPOWTO,COND=((0,EQ,DMPSMF1),EVEN),REGION=768K //SYSIN DD * ---- SMFSAV HAS FAILED --- NOTIFY SYSTEMS PROGRAMMING ---- ---- SMFSAV HAS FAILED --- NOTIFY SYSTEMS PROGRAMMING ---- ---- SMFSAV HAS FAILED --- NOTIFY SYSTEMS PROGRAMMING ---- ---- SMFSAV HAS FAILED --- NOTIFY SYSTEMS PROGRAMMING ---- /*