The MON-PRECALL hourly thrashing report - syncsort_scc_monitor - Latest

The MON-PRECALL Hourly Thrashing Report identifies the hours during the day that DFHSM recalls are occurring on the system. This report is useful in determining how many recalls are occurring during the production batch cycle.

The following JCL contains the DD statements, Mon-Snapshot control statements, and rules required to produce the report. This report extracts information from the DFHSM log file type FSR records.

 //JOBNAME JOB ... (RC=0 EXPECTED) <== CHANGE
      //STEP1 EXEC PGM=MONRUN
      //***************************************************
      //* THIS REPORT WILL SUMMARIZE BY EACH HOUR THE     *
      //* TOTAL NUMBER OF RECALLS FOR THE ENTIRE DAY.     *
      //*                                                *
      //* THIS STEP WILL RUN MONITOR IN BATCH MODE TO     *
      //* PRODUCE ONLY THE FSR TYPE 4 & 5 RECORDS     *
      //* WHICH ARE ONLY FOR RECALLS FROM L1 TO PRIMARY   *
      //* AND L2 TO PRIMARY FROM THE HSMLOG DATASET.      *
      //***************************************************
      //STEPLIB DD DISP=SHR,DSN=DTS.R71.LOADLIB <== CHANGE
      //SYSPRINT DD SYSOUT=*
      //SYSUDUMP DD SYSOUT=*
      //LOGY DD DISP=SHR,DSN=HSM.HSMLOGY1 <== CHANGE
      //REPORT DD SYSOUT=X
      //SYSOUT DD SYSOUT=*
      //TOOLMSG DD SYSOUT=*
      //DFSMSG DD SYSOUT=*
      //SYSUT1 DD SPACE=(CYL,(25,1)),UNIT=SYSALLDA
      //SYSUT2 DD SPACE=(CYL,(25,1)),UNIT=SYSALLDA
      //SYSUT3 DD SPACE=(CYL,(25,1)),UNIT=SYSALLDA
      //SYSUT4 DD SPACE=(CYL,(25,1)),UNIT=SYSALLDA
      //SYSIN DD * NAME(RULES)
      RULES(NOTRACE LIST PARMLIB())
      SUMMARY
      DDNAME(SYSOUT(SYSOUT REPORT)) SORT(FSR_REQ_DATE,SORTHR
      SUM(RECALLS)) HSMLOG(LOGY TYPE(FSR)) FORMAT(
      TITLE('HOURLY RECALL THRASHING REPORT')
      EXCLUDE(FSRTYPE,SORTHR,FSR_REQ_TIME) BREAK(FSR_REQ_DATE)
      TOTAL(RECALLS)
      EXTRA('BETWEEN(5)')
      )
      //*
      //RULES DD *
      DEFEQU RECALLS = &USRFLDN1
      * USE ONLY HH(2 BYTES)OF TIME FIELD SO SUM WILL COMBINE
      * ALL HOUR FIELDS INTO ONE RECORD. DEFEQU SORTHR = &FSR_REQ_TIME(1,2)
      DEFVAR NEWTIME '&SORTHR.:00:00' LITERAL DEFRULE FSR
      IF &HSMENV = FSR &FSRTYPE = (4,5)
      THEN
      SET RECALLS = 1 ISSUE WRITEREC(REC1)
      DEFREC REC1
      INIT(BLANKS) LENGTH(80)
      FIELD &FSR_REQ_DATE LEN(10) HEADER(DATE)
      FIELD &FSR_REQ_TIME LEN(8) HEADER(OTIME)
      FIELD &NEWTIME LEN(8) HEADER(TIME)
      FIELD &SORTHR LEN(2) HEADER(HOUR)
      FIELD &FSRTYPE LEN(2) HEADER(FSRTYPE)
      FIELD &RECALLS LEN(4) HEADER(RECALLS) BINARY
      //         

The following is a sample output of the report:

09/20/09 TOTAL RECALLS PER HOUR - 1 – DATE TIME RECALLS    

TOTAL RECALLS: 157