//FLTRSMF JOB 'DEXTER',
// NOTIFY=&SYSUID,MSGLEVEL=(1,1),MSGCLASS=H,
// TIME=120,REGION=4M
//*
//*------------------------------------------------------------------*
//* FILTER A SPECIFIC SMF RECORD TO A SEPARATE DATA SET *
//*------------------------------------------------------------------*
//* Description:
//*
//* Sample JCL job to show how an SMF dump job can be used
//* to save a particular event record type/subtype to a
//* data set created for that event while also doing a typical
//* dump of all SMF records. In this case the particular SMF
//* record is for the ICSF Master Key Change event.
//*
//* Instructions:
//* - Update the JCL Job Card to fit your enviornmenment
//* - For Job Step 1
//* - Update the DUMPIN DSN with your input dump data set
//* - Update the OUTDD1 DSN with your typical SMF dump data set
//* - Update the OUTDD2 DSN with a different data set for storing the
//* SMF record you want to filter
//* - Update the DISP for OUTDD1 and OUTDD2
//* - Update the OUTDD TYPE for OUTDD2 with the SMF subtype to filter
//* - For Job Step 2
//* - Update the SORTIN DSN to use the OUTDD2 DSN
//* - Update the SORTOUT DSN with a data set for the sorted output
//* - For Job Step 3
//* - Update the SYSPROC DSN to reference the location of CSFSMFR
//* (typically SYS1.SAMPLIB)
//* - Update the INDD DSN to use the SORTOUT DSN
//*
//*------------------------------------------------------------------*
//* STEP 1: UNLOAD SMF 82 RECORDS FROM VSAM TO FLAT FILES *
//*------------------------------------------------------------------*
//UNLOAD EXEC PGM=IFASMFDP
//DUMPIN DD DISP=SHR,DSN=SYS1.SDSF04.MANB
//OUTDD1 DD DISP=(OLD,PASS),DSN=CSFTEST.ALLSMF.REPOUT
//OUTDD2 DD DISP=(MOD,PASS),DSN=CSFTEST.ICSFSMF.REPOUT
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
INDD(DUMPIN,OPTIONS(DUMP))
OUTDD(OUTDD1,TYPE(0:255))
OUTDD(OUTDD2,TYPE(82(49)))
/*
//*
//*------------------------------------------------------------------*
//* STEP 2: SORT THE FILTERED SMF RECORDS BY DATE AND TIME *
//*------------------------------------------------------------------*
//COPYSORT EXEC PGM=SORT,REGION=6000K
//STEPLIB DD DISP=SHR,DSN=SYS1.SORTLPA
// DD DISP=SHR,DSN=SYS1.SICELINK
//SYSOUT DD SYSOUT=*
//SORTWK01 DD UNIT=3390,SPACE=(CYL,10),VOL=SER=ISFUS8
//SORTIN DD DISP=(OLD,KEEP),DSN=CSFTEST.ICSFSMF.REPOUT
//SORTOUT DD DISP=(OLD,KEEP),DSN=CSFTEST.SMFRAW.VB.DS
//SYSIN DD *
SORT FIELDS=(11,4,A,7,4,A),FORMAT=BI,SIZE=E4000
//*
//*------------------------------------------------------------------*
//* STEP 3: FORMAT THE FILTERED SMF RECORDS *
//*------------------------------------------------------------------*
//FORMAT EXEC PGM=IKJEFT01,REGION=5128K,DYNAMNBR=100
//SYSPROC DD DISP=SHR,DSN=CSFPP.HCR77D1.SAMPLIB
//SYSTSPRT DD SYSOUT=*
//INDD DD DISP=(OLD,KEEP),DSN=CSFTEST.SMFRAW.VB.DS
//OUTDD DD SYSOUT=*
//SYSTSIN DD *
%CSFSMFR