Extracting and printing the dictionary records

A possible user error that results in CICS PA producing large numbers of messages or incomplete reports can be caused by inconsistencies between the dictionary records and its corresponding performance data records. This typically occurs when you create the dictionary records using the dictionary utility program, DFHMNDUP.

Figure 1 shows a sample job that can be used to extract the dictionary records from the SMF input file(s) and then use the CICS® supplied monitoring sample program DFH$MOLS to print only the dictionary records.
Figure 1. Sample job to extract and print the Dictionary records
//DICTPRNT JOB (Job Accounting)
//DICTCOPY EXEC PGM=SORT,REGION=0M
//SORTIN   DD  DSN=smf110.data.set.name,DISP=SHR
//SORTOUT  DD  DSN=&&TEMP,DISP=(NEW,PASS),UNIT=SYSDA,SPACE=(TRK,(5,2))
//DFSMSG   DD  SYSOUT=A
//SYSOUT   DD  SYSOUT=A
//SORTDIAG DD  SYSOUT=A
//SYSIN    DD  *
 OPTION COPY,VLSHRT
 RECORD TYPE=V
 INCLUDE COND=(6,1,FI,EQ,110,AND,
              23,2,BI,EQ,X'0001',AND,67,2,BI,EQ,X'0001')
 END
/*
//MOLSPRNT EXEC PGM=DFH$MOLS,REGION=0M,COND=(5,LT,DICTCOPY)
//STEPLIB  DD  DSN=CICSTS23.CICS.SDHFLOAD,DISP=SHR
//INPUT    DD  DSN=&&TEMP,DISP=(OLD,DELETE)
//SYSOUT   DD  SYSOUT=A
//SYSPRINT DD  SYSOUT=A,DCB=BLKSIZE=133
//SYSABEND DD  SYSOUT=A,DCB=BLKSIZE=133
//SYSUDUMP DD  SYSOUT=A,DCB=BLKSIZE=133
//SYSIN    DD  *
* Print the dictionary records only
PRINT DIC
* Disable the date/time sequence checking
TIMEOFF
/*
//
In this example, the DFH$MOLS program will abend with the following message:
IEF450I DICTPRNT MOLSPRNT - ABEND=S000 U0107 REASON=00000000
and the following message is printed at the end of the dictionary report produced by DFH$MOLS:
NO MONITORING RECORDS WERE SELECTED FOR PROCESSING; REPORT IS TERMINATED

For more information on the dictionary utility program DFHMNDUP and the monitoring sample program DFH$MOLS, see the CICS Operations and Utilities Guide.


Information Information

Feedback


Timestamp icon Last updated: Friday, 8 February 2013


http://pic.dhe.ibm.com/infocenter/cicsts/v5r1/topic//cpaug83.htm