The DFH0STXR sample program

The DFH0STXR sample program produces an event type of statistics report that highlights each event in a single print line and provides a convenient way to analyze CICS® statistics records.

The types of event are exception, warning, and information. These events are predefined in the DFH0STXR sample program but can be customized (see Using the DFHSTUP extract statistics reporting function for guidance). To help with customization, events and the statistics fields queried for each event are documented in the prolog.

Exception: A CICS limit condition has been exceeded (for example MXT, or file strings).
Warning: A peak condition has met or exceeded a user-defined threshold percentage.
Information: A peak value has been reached for a key CICS system parameter.

The existing statistics utility program record selection capabilities, such as applid, date and time, apply automatically to the DFH0STXR reports, in addition to any other statistics reports that might be created at the same time. However, the COLLECTION TYPE and UPPERCASE control parameters are ignored.

You have the option in the design of the user program to write the statistics data to a data set to be used as input to a database, such as Db2®, or to a reporting tool such as CICS Performance Analyzer (CICS PA) for further analysis.

Where is the program supplied

The source code for DFH0STXR is supplied in the CICSTSnn.CICS.SDFHSAMP library. It is also supplied in compiled form in the CICSTSnn.CICS.SDFHLOAD library. CICSTSnn reflects the CICS release. For example, it is CICSTS64 for CICS TS beta. See Installing application programs for guidance on installing application programs.

As well as the DFH0STXR sample, two skeleton exits are provided; an assembler extract exit called DFH£STXA, and a COBOL extract exit called DFH0STXC. These show the format and structure of the interface between DFHSTUP and the extract exit. The source for these skeletons is in SDFHSAMP, and the compiled programs in SDFHLOAD. Extract exits must be written using a Language Environment® enabled assembler or a CICS Language Environment supported high level language.

Sample output

Figure 1 contains sample output from the DFHSTUP statistics utility program including output from the extract exit. Other statistics reports have been suppressed, as reported in message DFHST0233I.

Figure 1. Sample output from DFHSTUP using the DFH0STXR sample extract program

CICS *.*.* Statistics Utility Program                                    Report Date 08/30/20**   Report Time 15:51:18   Page     4
Report Abstract
___________________________________________________________________________________________________________________________________
REPORT ABSTRACT
_______________
  Total SMF records read . . . . . . . . . . . :                   1315
  Total SMF/CICS records read. . . . . . . . . :                   1313
  Total SMF/CICS/Statistics records read . . . :                   1313
  Total SMF/CICS/Statistics records processed. :                     35
  Applid: IYK2Z2G1  Jobname: CI13JTD5
  ___________________________________
  Number of Statistics Intervals processed . . :                      0
  Number of EOD records processed. . . . . . . :                      0
  Number of INT records processed. . . . . . . :                      0
  Number of REQ records processed. . . . . . . :                   2456
  Number of RRT records processed. . . . . . . :                      0
  Number of USS records processed. . . . . . . :                     15
  Date/Time of first SMF record processed. . . : 08/30/20** at 15:40:25     CICS Start Date/Time. . : 08/30/20** at 15:40:23
  Date/Time of last SMF record processed . . . : 08/30/20** at 15:42:43
DFHST0233 I DFHSTUP report suppressed. Report options requested only an EXTRACT userprogram to be invoked.
CICS *.*.* Statistics Utility Program                                    Report Date 08/30/20**   Report Time 15:51:18   Page     5
Report Abstract
___________________________________________________________________________________________________________________________________
CICS *.*.* Statistics Exception Event Reporter                      Report Date: 08/30/20**   Report Time: 15:51:18      Page      1
____________________________________________________________________________________________________________________________________
EXCEPTION
WARN
INFO
CICS *.*.* Statistics Exception Event Reporter                      Report Date: 08/30/20**   Report Time: 15:51:18      Page      2
____________________________________________________________________________________________________________________________________
        Record     Record  Stats           Event
Type     Date       Time    Type  Applid    id    Event Description
____________________________________________________________________________________________________________________________________
  I   08/30/20**  15:42:43  REQ  IYK2Z2G1  XM001  MXT Limit =  30. Current Tasks =   1. Peak Tasks =   6.
  I   08/30/20**  15:42:43  REQ  IYK2Z2G1  SM001  DSA Limit =      4,096K. Allocated =      2,048K. Peak =      2,048K.
  I   08/30/20**  15:42:43  REQ  IYK2Z2G1  SM002  EDSA Limit =    204,800K. Allocated =     22,528K. Peak =     22,528K.
  I   08/30/20**  15:42:43  REQ  IYK2Z2G1  TS001  DFHTEMP CIs =        507. Peak Used =          2. Peak TSMain =          0K.
  W   08/30/20**  15:42:43  REQ  IYK2Z2G1  LD001  Program Load to Use Ratio for Program 'IBMRLIB1' = 100%. Location = 'RDSA    '.
  W   08/30/20**  15:42:43  REQ  IYK2Z2G1  LD001  Program Load to Use Ratio for Program 'IBMRSAP ' = 100%. Location = 'RDSA    '.
  W   08/30/20**  15:42:43  REQ  IYK2Z2G1  LD001  Program Load to Use Ratio for Program 'IGZCPAC ' = 100%. Location = 'ERDSA   '.
  W   08/30/20**  15:42:43  REQ  IYK2Z2G1  LD001  Program Load to Use Ratio for Program 'IGZCPCC ' = 100%. Location = 'ERDSA   '.
  I   08/30/20**  15:42:43  REQ  IYK2Z2G1  D2001  DB2 Conn 'RCTJT   '. TCB Limit =    12. Peak TCBs =     1. TCB Readyq HWM =   0.
CICS *.*.* Statistics Exception Event Reporter                      Report Date: 08/30/20**   Report Time: 15:51:18      Page      3
____________________________________________________________________________________________________________________________________
                                    Statistics Exception Event Report Totals for Applid IYK2Z2G1
                                    ____________________________________________________________
Statistics Records Processed . . . . . . . . . . :       2,471
Statistics Exception Events Reported . . . . . . :           0
Statistics Warning Events Reported . . . . . . . :           4
Statistics Information Events Reported . . . . . :           5
                                                    __________
Total Events Reported  . . . . . . . . . . . . . :           9
____________________________________________________________________________________________________________________________________
Total Statistics Records Processed .................:      2,471
Statistics Event Report Processing Complete.

Note: The date and time do not indicate when an event occurs. The statistics record might be written out some time after the actual event has occurred.