例題
[C1225.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1225. 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 WCNT. 000010 01 INREC PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 WCNT PIC S9(4) BINARY. 000013 END PROGRAM C1225.
C1225.cob 9: JMN1225I-S BLOCK CONTAINS句の構文に誤りがあります．
