レコード領域のセットアップ例

次の例は、FCD にレコード領域へのポインターを設定する方法を示しています。

 01 RECORD-AREA   PIC X(85).
...
     SET FCD-RECORD-ADDRESS TO ADDRESS OF RECORD-AREA
   ...