例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1313.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT IN-F ASSIGN I-SYS000
000007 ORGANIZATION INDEXED
000008 ACCESS MODE IS RANDOM
000009 RECORD KEY IS IN-R
000010 TRACK-AREA IS 8
000011 .
000012 DATA DIVISION.
000013 FILE SECTION.
000014 FD IN-F.
000015 01 IN-R PIC X(80).
000016 END PROGRAM C1313.
C1313.cob (10) : JMN1313I-S TRACK-AREA句は，乱呼出しのインデックスつき編成ファイル以外に指定できません．