例題
[C1313.cob] 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句は，乱呼出しのインデックスつき編成ファイル以外に指定できません．
