The MON-PRECALL Daily Thrashing Report totals the number of DFHSM recalls that occur for each day during the month. This report is useful in determining which days of the month have the highest recall totals.
Typically, month-end or month-beginning production batch cycles will show higher numbers of recall activity.
The MON-PRECALL Daily Thrashing Report totals the number of
DFHSM recalls that occur for each day during the month. This report is
useful in determining which days of the month have the highest recall totals.
Note: A sample JCL member is included in
DTS.R71.SLyyddd.SAMPLIB(MONRDTRS). 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.
Note: The following JCL is a sample. Update the job name and dataset
names as needed for your environment.
//JOBNAME JOB ... (RC=0 EXPECTED) <== CHANGE
//STEP1 EXEC PGM=MONRUN
//***************************************************
//* THIS REPORT WILL SUMMARIZE BY DAY 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,SORTDAY
SUM(RECALLS)) HSMLOG(LOGY TYPE(FSR)) FORMAT(
TITLE('DAILY RECALL THRASHING REPORT') EXCLUDE(FSRTYPE,SORTDAY,FSR_REQ_TIME,NEWDAY)
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 SORTDAY = &FSR_REQ_DATE(4,2)
DEFVAR NEWDAY '&SORTDAY' 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(TIME)
FIELD &NEWDAY LEN(10) HEADER(NDATE)
FIELD &SORTDAY LEN(2) HEADER(DAY)
FIELD &FSRTYPE LEN(2) HEADER(FSRTYPE)
FIELD &RECALLS LEN(4) HEADER(RECALLS) BINARY
//
- Use only HH (2 bytes) of the time field so the sum will combine all hour fields into one
record.
DEFEQU SORTDAY = &FSR_REQ_DATE(4,2)
| DAILY RECALL 07:45:10 |
THRASHING REPORT - 1 - |
09/29/10 |
| DATE | RECALLS | |
|
02/05/2010 |
3 |
|
| 02/08/2010 | 43 | |
| 02/09/2010 | 205 | |
| 02/10/2010 | 117 | |
| 02/11/2010 | 82 | |
| RECALLS | 450 |