例題
[C1321.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1321. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN SYS000-DA-S1-I-NAME 000007 ACCESS MODE IS RANDOM 000008 RECORD KEY IS IN-R 000009 TRACK-AREA IS 32 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R PIC X(80). 000015 END PROGRAM C1321.
C1321.cob 6: JMN1321I-S 乱呼出しのインデックスつき編成ファイルにはNOMINAL KEY句を指定しなければなりません．
