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.

IDIVPCOB has a declaration for a large character array, XDUMPELEM, that will cause data to be written to an associated XDUMP data set, if configured. This test can be used to verify correct configuration of XDUMP data sets.

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.

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