例
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句は,直接編成ファイル以外に指定できません.