次の例は、値をレベル 88 項目に移動させる MOVE ステートメントをコーディングして、 スイッチをオフにする方法を示しています。
例えば、以下のコードのように、SWITCH-OFF という名前のデータ項目を使用して、オン/オフ・スイッチをオフに設定できます。これにより、スイッチをリセットして、ファイルの終わりに達していないことを示します。
01 Switches
05 Transaction-EOF-Switch Pic X Value space.
88 Transaction-EOF Value “y”.
01 SWITCH-OFF Pic X Value “n”.
. . .
Procedure Division.
. . .
Move SWITCH-OFF to Transaction-EOF-Switch