ファイル ステータス コードの表示例

この例では、ファイル状態を表示するために、ファイル状態の 2 番目のバイトの値を取り出す 1 つの方法を示します。2 つの状態バイトを、最大 4 桁の小数桁を格納できる 1 つのデータ項目 (2 バイト長) として再定義することで切り捨てを回避している点に注意してください。

 select fd-name
     assign "user.dat"
     status is fd-name-stat.
  ...
 data division.
 file section.
 fd fd-name.
 01 fd-rec    pic x(80)
  ...
 working-storage section.
 01 fd-name-stat.
     03 sk1     pic x.
     03 sk2     pic x.
     03 stat-bin redefines sk2 pic 9(2) comp-x.
 01 disply-stat.
     03 sk1-displ   pic x.
     03 filler    pic x(3).
     03 sk2-displpic  pic zz9.
  ...
 procedure division.
 start-test.
     open input fd-name
     move sk1 to sk1-displ
     if sk1 not= 9
         move sk2 to sk2-displpic
     else
         move stat-bin to sk2-displpic
     end-if
     display disply-stat
     close fd-name
     stop run.