SMF audit report using DFSORT symbols

Figure 1 shows a version of the same sample job that was shown in Figure 1. However, this example uses the DFSORT symbols found in the EDGSMFSY symbol mapping that is described in DFSORT symbols for use with DFSMSrmm.

Figure 1. Sample ICETOOL JCL for processing SMF records using symbols

//STEP1  EXEC  PGM=ICETOOL
//SYMNAMES DD DISP=SHR,DSN=SYS1.MACLIB(EDGSMFSY)   SYMBOLS
//TOOLMSG  DD SYSOUT=*   ICETOOL MESSAGES
//DFSMSG   DD SYSOUT=*   DFSORT  MESSAGES
//RAWSMF   DD DSN=ACCT.SJFEMVSA.D921102.T230004,DISP=SHR
//RMMV     DD DSN=&&TEMPV,REFDD=*.RAWSMF,SPACE=(TRK,(75,30)) 
//VREPT DD SYSOUT=*
//TOOLIN   DD *          CONTROL STATEMENTS
* FIND THE RMM SMF AUDIT 'VOLUME' RECORDS
  COPY FROM(RAWSMF) TO(RMMV) USING(SMFV)
* DISPLAY VARIOUS FIELDS FROM THE SMF HEADER AND VOLUME SECTION
  DISPLAY FROM(RMMV) LIST(VREPT) -
     TITLE('DFSMSrmm - SMF Audit Records') DATE TIME PAGE -
     BLANK -
*    SMF HEADER FIELDS
     HEADER('TIME') ON(SMFADTME,HEX) -
     HEADER('DATE') ON(SMFADDTE) -
     HEADER('SYS')  ON(SMFADSID) -
     HEADER('USER') ON(SMFADUID) -
     HEADER('ACT')  ON(SMFADACT) -
*    VOLUME SECTION FIELDS
     HEADER('VOLUME')   ON(MVVOLSER)  -
     HEADER('CREATE')   ON(MVCRDATE)  -
     HEADER('LASTCH')   ON(MVLCDATE)  -
     HEADER('LASTUSER') ON(MVLCUID) -
     HEADER('LASTSYS')  ON(MVLCSID) -
     HEADER('LASTUSCH') ON(MVUCDATE)
//SMFVCNTL DD *
* The X'FC' is the SMF record number specified to RMM SMFAUD
* The X'FC' is record number 252 - Change it to your record number
  INCLUDE COND=(SMFADRTY,EQ,X'FC',
                AND,MVTYPE,EQ,MVTYPEID)
  OPTION VLSHRT
/*