例題
[P2067.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2067. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT RLFILE1 ASSIGN TO SYS001 000007 ORGANIZATION IS RELATIVE. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD RLFILE1 000012 RECORD CONTAINS 0. 000013 01 RLF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2067.
P2067.cob 12: JMN2067I-S RECORD CONTAINS 0のファイルは，順ファイルでなければなりません．RECORD CONTAINS句は，無効になります．
