例題
[P2350.cob] 000001 @OPTIONS FLAGSW(GSS) 000002 IDENTIFICATION DIVISION. 000003 PROGRAM-ID. P2350. 000004 ENVIRONMENT DIVISION. 000005 INPUT-OUTPUT SECTION. 000006 FILE-CONTROL. 000007 SELECT SQFILE1 ASSIGN TO SYS001. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1 000012 BLOCK CONTAINS 20. 000013 01 SQF1REC. 000014 02 PIC X(80). 000015 WORKING-STORAGE SECTION. 000016 PROCEDURE DIVISION. 000017 END PROGRAM P2350.
P2350.cob 11: JMN2350I-S ブロック長は，レコード長以上でなければなりません．BLOCK CONTAINS句は，無効になります．
詳細な説明
このコンパイラでは，BLOCK CONTAINS句は注釈とみなされます．実行時には意味を持ちませんが，句の解析は行われます．
