例題
[P2292.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2292. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001 000007 RESERVE 10 AREAS. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1 . 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 PROCEDURE DIVISION. 000016 PERFORM WITH NO LIMIT 000017 WRITE SQF1REC 000018 AT END-OF-PAGE 000019 DISPLAY "END OF PAGE" 000020 EXIT PERFORM 000021 END-WRITE 000022 END-PERFORM 000023 END PROGRAM P2292.
P2292.cob 11: JMN2292I-S END-OF-PAGE指定のWRITE文で参照されるファイルの入出力領域の個数は，1個でなければなりません．RESERVE句を無効とし，入出力領域の個数を1個とみなします．
詳細な説明
RESERVE AREA句に1以外の値が指定されています．
RESERVE AREA句はこのシステムでは注釈扱いです．(実行時には意味を持ちませんが，翻訳時には句の解析は行われます)
