COBOL による Z Abend Investigator の使用の検証

このセクションは、ご使用のサイトに COBOL がインストール済みである場合のみ適用できます。

Z Abend Investigator を COBOL で検証するには、データ・セット HFZVPCOB のサンプル・ジョブ HFZ.SHFZSAM1 を編集し、実行依頼します。詳細については、サンプル・ジョブ内の説明を参照してください。

ジョブは COBOL プログラムをコンパイルし、実行します。このプログラムは戻りコード 3000 で異常終了します。

TER(UADUMP) LE オプションの結果として、Z Abend Investigator は MVS™ 変更オプション/抑止ダンプ出口 HFZXDCAP から呼び出されます。

Z Abend Investigator に書き込まれた HFZREPRT レポートの概要セクションには、以下が含まれます。

Z Abend Investigator の日本語フィーチャーでは、Language(JPN) オプションが有効である場合、これは日本語になっているはずです。

注:

ご使用のコンパイラーのバージョン、リリースまたは保守レベルが異なる場合、プログラムのオフセット情報が下記の例とは異なることがあります。

A system abend 0C7 occurred in module HFZSCBL1 program HFZSCBL1 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 HFZSCBL1 in module HFZSCBL1.  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

この IVP の実行により作成される完全なサンプル・レポートが、HFZ.SHFZDOC1 データ・セット内のメンバー HFZSRP01 として用意されています。