Verifying the use of Fault Analyzer with PL/I

This section is applicable only if you have PL/I installed at your site.

AMODE 31

Depending on your version of PL/I, there are two separate AMODE 31 IVP jobs available:
  • If using Enterprise PL/I, edit and submit the sample job IDIVPPLE in data set IDI.SIDISAM1.
  • If not using Enterprise PL/I, edit and submit the sample job IDIVPPLI in data set IDI.SIDISAM1.
Refer to the instructions in the sample jobs for more information.

Each job compiles and executes a PL/I program, which abends and terminates the job step 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 0C9 occurred in module IDISPLI1 program IDISPLI1 at offset
X'286'.

A program-interruption code 0009 (Fixed-Point-Divide Exception) is associated
with this abend and indicates that:

  The divisor was zero in a signed binary division.

The cause of the failure was program IDISPLI1 in module IDISPLI1.  The PL/I
source code that immediately preceded the failure was:

  List
  Stmt #
  ------
  000011       Array1(1) = Array1(2) / Divisor;

Data field values at time of abend:

  List
  Stmt #
  ------
  000009  ARRAY1(1) FIXED BIN(31,0) AUTO = X'00000001'
  000009  ARRAY1(2) FIXED BIN(31,0) AUTO = X'00000003'
  000009  DIVISOR   FIXED BIN(31,0) AUTO = X'00000000'
A complete sample report from running this IVP is provided as member IDISRP02 in the IDI.SIDIDOC11 data set.

AMODE 64

To verify Fault Analyzer with AMODE 64 Enterprise PL/I, edit and submit the sample job IDIVPPL6 in data set IDI.SIDISAM1. Refer to the instructions in the sample job for more information.