例題
[C1232.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1232. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT IN-F ASSIGN TO SYS006. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD IN-F RECORD CONTAINS RECCNT. 000010 01 IN-R PIC X(80). 000011 WORKING-STORAGE SECTION. 000012 01 RECCNT PIC S9(4) BINARY. 000013 END PROGRAM C1232.
C1232.cob 9: JMN1232I-S RECORD CONTAINS句には，整数を指定しなければなりません．
