例
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句は注釈とみなされます．実行時には意味を持ちませんが，句の解析は行われます．