表示ファイルの各命令(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.