Sample programs for COBOL


Two types of sample COBOL programs exist: transaction and file analysis.

The transaction programs create reports that list performance statistics by the transactions recorded in a CICS region:

  • Performance Analysis reports contain CICS performance statistics that are summarized with control breaks by
    • Transaction ID
    • Program name
    • Terminal ID
    • Node name
    • User ID
  • Rogues Report lists transactions with the longest response times.
  • Abended Transaction Report lists all transactions that abended in a CICS region.

The file analysis program has control breaks based on the file name field of transaction records. This program creates the File Analysis for All Files report, which lists wait time for CICS files by CICS region.

The following table lists the sample COBOL programs and their associated reports. The table also includes a reference to a section in this topic that shows an example of the COBOL report.

Sample report

Sample library member

Description

Reference

Performance Analysis for All Transactions

CMRCB11N

Produces a report that evaluates task performance by transaction ID

Performance Analysis for All Programs

CMRCB12N

Produces a report with control breaks based on the T6EPGNM field

It is useful for evaluating task performance when a Fourth Generation Language (4GL) is used.

Performance Analysis by Terminal

CMRCB13N

Produces a report that evaluates task performance by terminal ID

Performance Analysis by Netname

CMRCB14N

Produces a report that evaluates task performance by VTAM symbolic node name

Performance Analysis for All Users

CMRCB15N

Produces a report that evaluates task performance by user ID

File Analysis for All Files

CMRCB21N

Produces a report that evaluates file performance by file name

Rogues Report

CMRCB23N

Produces a report that lists the 100 tasks that have the longest response times

Abended Transaction Report

CMRCB25N

Produces a report that lists all transactions that suffered an abend



 

Tip: For faster searching, add an asterisk to the end of your partial query. Example: cert*