例題
[C1322.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1322. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO SYS001 000007 ORGANIZATION IS SEQUENTIAL 000008 RECORD KEY IS KEY1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD INFILE. 000012 01 INREC. 000013 02 KEY1 PIC X(80). 000014 END PROGRAM C1322.
C1322.cob 8: JMN1322I-S 索引ファイル以外に，RECORD KEY句は指定できません．
