例題
[C1507.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1507. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F REPORT RPT-F. 000010 WORKING-STORAGE SECTION. 000011 01 A1 PIC X. 000012 01 A2 PIC X. 000013 01 A PIC 9. 000014 REPORT SECTION. 000015 RD RPT-F PAGE LIMIT 1000 CONTROL IS A1 A2 A. 000016 01 HEAD01 TYPE IS RH. 000017 01 CONH01 TYPE IS CONTROL HEADING A1. 000018 01 CONF01 TYPE IS CONTROL FOOTING A2. 000019 01 FOOT01 TYPE IS RF. 000020 END PROGRAM C1507.
C1507.cob 15: JMN1507I-S PAGE LIMIT句で指定される整数は，999を超えてはなりません．999とみなします．
