拡張ファイル状態コード

ANSI'74 および ANSI'85 のファイル状態規則は、拡張ファイル状態コードによって拡張されます。拡張ファイル状態コードでは、ファイル状態の最初のバイトが「9」という文字になります。2 番目のバイトはバイナリ (COMP-X) の数字で、ランタイム システム エラー番号と同じになります。

拡張ファイル状態コードは、9/nnn のように記述されます。nnn は 2 番目のバイトのバイナリの数字です。

たとえば、ディスクにファイルを書き込んでいる際にディスク容量が足りなくなった場合、ANSI'74 ファイル状態は「30」になります。これは、以下のエラー メッセージに変換されます。

Permanent error - no other information is available

このエラー メッセージは非常に概略的です。「Permanent error (永続的エラー)」は、ディスクに障害がある、またはディスク ドライブのトレイが開いていることを示します。そのため、この COBOL システムでは概略的なファイル状態を返すのではなく、拡張ファイル状態コード 9/007 を返します。最初のバイトの文字「9」および 2 番目のバイトのバイナリ値 7 を組み合わせると、「ディスクがいっぱいです」という意味になります。

ANSI'74 または ANSI'85 のファイル状態コードを使用している場合、拡張ファイル状態コードがより具体的であれば、ランタイム システムは拡張ファイル状態コードを返します。

次のコード例は、標準のファイル状態を拡張ファイル状態として使用できるように再定義する方法を示します。この例では、入力ファイルが存在していないことを想定しています。そのため、OPEN INPUT 文を実行すると、9/013 (「ファイルが見つかりません」) というファイル状態が返されます。

     select in-file
         assign to "user.dat".
         file status is file-status.
        ...
 working-storage section.
 01 file-status.
     05 status-key-1             pic x.
     05 status-key-2             pic x.
     05 status-key-2-binary redefines status-key-2 
                                 pic 99 comp-x.
     ...
 procedure division.
     open input in-file
     if file-status not = "00"
         if status-key-1 = "9"
             if status-key-2-binary = 13
                 display "File not found"
        ...

拡張ファイル状態コードを表示するには、以下のようにして、ファイル状態データ項目の 2 番目のバイトを、最大値 255 を格納できる大きさの表示フィールドに移動する必要があります。

     select in-file
         assign to "user.dat"
         file status is file-status.
 ...
 working-storage section.
 01 ans74-file-status.
     05 status-key-1              pic x.
     05 status-key-2              pic x.
     05 status-key-2-binary redefines status-key-2 
                                  pic 99 comp-x.
 01 display-ext-status
     05 filler                    pic xx value "9/"
     05 display-key 2             pic 999
     ...
 procedure division.
     open input in-file
     if file-status not = "00"
         display "Error. File status =" with no advancing
         if status-key-1 = "9"
             move status-key-2-binary to display-key-2
             display display-ext-status
         else
             display file-status
         end-if
     end-if