ページの先頭行へ戻る
NetCOBOL V11.0 入門ガイド
FUJITSU Software

3.2.4 エラー処理

表示ファイルの各命令(OPEN文、WRITE文、READ文、CLOSE文)の実行結果は、FILE STATUS句に指定したデータ名に通知されます。FILE STATUS句に指定したデータ名のうち2桁のデータ名の領域には、成功時は「00」、「04」が通知され、不成功時は「90」、「99」、「9E」のいずれかが通知されます。また、4桁のデータ名の領域には、詳細結果として上記の4種類のエラーにMeFtの通知コードが付加されたものが通知されます。例えば、MeFtの通知コードが「22」であった場合、FILE STATUS句に指定した4桁のデータ領域には「9022」が通知されます。

入出力文の後に、このデータ名の内容をチェックする文を記述することによって、プログラムで入出力文の結果に応じた処理手続きを実行することができます。

FILE STATUS句の使用例を次に示します。

SELECT  ディスプレイファイル ASSIGN TO  GS-DSPFILE
   :
  FILE  STATUS         IS  DSP-STATUS1 DSP-STATUS2.
   :
WORKING-STORAGE SECTION.
01  DSP-STATUS1       PIC X(02).
01  DSP-STATUS2       PIC X(04).
   :
PROCEDURE DIVISION.
OPEN ディスプレイファイル.
   :
WRITE 住所録入力画面.
IF DSP-STATUS2 NOT = "0000" THEN
    CLOSE ディスプレイファイル
END-IF.