例
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句に指定しなければなりません．