例題
[C1227.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1227. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT INFILE ASSIGN TO IN-F. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD INFILE BLOCK CONTAINS 32761. 000010 01 INREC PIC X(80). 000011 END PROGRAM C1227.
C1227.cob 9: JMN1227I-S BLOCK CONTAINS句に指定された整数が32760を越えています．32760とみなします．
