例題
[C1308.cob] 000001 @OPTIONS FLAGSW(GSS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. C1308. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT INFILE ASSIGN TO DB1-RDB-SYS1 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 C1308.
C1308.cob 7: JMN1308I-S RDBファイルの場合，ORGANIZATION句にはINDEXEDを指定しなければなりません．INDEXEDが指定されたものとみなします．
