例題
[C1557.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1557. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE 000007 ORGANIZATION IS INDEXED 000008 PASSWORD IS P1 000009 RECORD KEY IS IN-NO 000010 . 000011 DATA DIVISION. 000012 FILE SECTION. 000013 FD IN-F. 000014 01 IN-R. 000015 02 IN-NO PIC 9(4). 000016 02 IN-NAME PIC X(80). 000017 WORKING-STORAGE SECTION. 000018 01 P1 PIC X(6) VALUE "CMP123". 000019 END PROGRAM C1557.
C1557.cob 8: JMN1557I-S PASSWORD句は，RECORD KEY句またはALTERNATE RECORD KEY句に指定しなければなりません．
