例題
[C1314.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1314. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000 000007 ACCESS MODE IS SEQUENTIAL 000008 TRACK-LIMIT IS 1 000009 . 000010 DATA DIVISION. 000011 FILE SECTION. 000012 FD IN-F. 000013 01 IN-R PIC X(80). 000014 END PROGRAM C1314.
C1314.cob 8: JMN1314I-S TRACK-LIMIT句は,直接編成ファイル以外に指定できません.