COBOL による Fault Analyzer の使用の検証
このセクションは、ご使用のサイトに COBOL がインストール済みである場合のみ適用できます。
Fault Analyzer を COBOL で検証するには、データ・セット IDIVPCOB のサンプル・ジョブ IDI.SIDISAM1 を編集し、実行依頼します。詳細については、サンプル・ジョブ内の説明を参照してください。
ジョブは COBOL プログラムをコンパイルし、実行します。このプログラムは戻りコード 3000 で異常終了します。
TER(UADUMP) LE オプションの結果として、Fault Analyzer は MVS™ 変更オプション/抑止ダンプ出口 IDIXDCAP から呼び出されます。
Fault Analyzer に書き込まれた IDIREPRT レポートの概要セクションには、以下が含まれます。
Fault Analyzer の日本語フィーチャーでは、Language(JPN) オプションが有効である場合、 これは日本語になっているはずです。
注: ご使用のコンパイラーのバージョン、リリースまたは保守レベルが異なる場合、プログラムのオフセット情報が下記の例とは異なることがあります。
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