例題
[C1267.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1267. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IDX-F ASSIGN TO IDXFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS MAINKEY 000009 ALTERNATE RECORD KEY IS KEY1 000010 ALTERNATE RECORD KEY IS KEY2 ： 000133 ALTERNATE RECORD KEY IS KEY125 000134 ALTERNATE RECORD KEY IS KEY126. 000135 DATA DIVISION. 000136 FILE SECTION. 000137 FD IDX-F. 000138 01 IDX-R PIC X(130). 000139 01 MAINKEY PIC X. 000140 01 KEY1 PIC X. 000141 01 KEY2 PIC X. ： 000264 01 KEY125 PIC X. 000265 01 KEY126 PIC X. 000270 END PROGRAM C1267.
C1267.cob 134: JMN1267I-S ALTERNATE RECORD KEYの個数は，125個以下でなければなりません．
