例題
[P2249.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2249. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 BLOCK CONTAINS 410 RECORDS. 000012 01 SQF1REC. 000013 02 PIC X(80). 000014 WORKING-STORAGE SECTION. 000015 PROCEDURE DIVISION. 000016 END PROGRAM P2249.
P2249.cob 10: JMN2249I-S RECORDS指定のBLOCK CONTAINS句を指定したファイルまたはBLOCK CONTAINS句を省略したファイルのブロック長は，32760バイト以下でなければなりません．ブロック長を32760バイトとみなします．
