この例では、ファイル状態を表示するために、ファイル状態の 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.