例題
[C1228.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1228. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO ABC. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F BLOCK CONTAINS 10 TO 1. 000010 01 IN-R PIC X(80). 000011 END PROGRAM C1228.
C1228.cob 9: JMN1228I-S BLOCK CONTAINS句のブロックの最小の大きさは最大の大きさより小さくなければなりません．最小の大きさを最大の大きさとみなします．
C1228.cob 9: JMN2772I-I このシステムでは，'BLOCK CONTAINS'は注釈扱いです．
