Verifying the use of Fault Analyzer with COBOL

This section is applicable only if you have COBOL installed at your site.

To verify Fault Analyzer with COBOL, edit and submit the sample job IDIVPCOB in data set IDI.SIDISAM1. Refer to the instructions in the sample job for more information.

The job compiles and executes a COBOL program, which abends with a return code of 3000.

As a result of the TER(UADUMP) LE option, Fault Analyzer is invoked via the MVS change options/suppress dump exit IDIXDCAP.

The synopsis section of the Fault Analyzer report that is written to IDIREPRT should contain the following:

For the Japanese feature of Fault Analyzer, this section should be in Japanese if the Language(JPN) option is in effect.

Note: Due to differences in version, release or maintenance level of the compiler used, program offset information might differ from the sample below.
A system abend 0C7 occurred in module IDISCBL1 program IDISCBL1 at offset
X'3D4'.

A program interruption code 0007 (Data Exception) is associated with this abend
and indicates that:

  A decimal digit or sign was invalid.

The cause of the failure was program IDISCBL1 in module IDISCBL1.  The COBOL
source code that immediately preceded the failure was:

  Source
  Line #
  ------
  000029        CLEAR SECTION.
  000030        START001.
  000031            DIVIDE NUMBERX BY ERROR-COUNT GIVING BAD-RESULT.

The COBOL source code for data fields involved in the failure:

  Source
  Line #
  ------
  000011        01  NUMBERX PIC 999999 COMP-3.
  000013            05  ERROR-COUNT PIC 999999 COMP-3.
  000016        01  BAD-RESULT PIC 99 COMP-3.

Data field values at time of abend:

  BAD-RESULT  = X'0000' *** Invalid numeric data ***    
  ERROR-COUNT = X'C1C2C3C4' *** Invalid numeric data ***
  NUMBERX       = 986888
A complete sample report from running this IVP is provided as member IDISRP01 in the IDI.SIDIDOC1 data set.