例題
[C1477.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1477. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN INFILE 000007 ORGANIZATION IS INDEXED 000008 RECORD KEY IS K1 PASSWORD IS P1. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD IN-F. 000012 01 IN-R PIC X(80). 000013 WORKING-STORAGE SECTION. 000014 01 K1 PIC X(4). 000015 01 P1 PIC X(4). 000016 END PROGRAM C1477.
C1477.cob 8: JMN2158I-S RECORD KEY句のデータ名は，当該するファイルのレコード中に定義されていなければなりません．
C1477.cob 8: JMN1477I-I このシステムでは，'PASSWORD'は注釈扱いです．
