例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. C1231.
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 80 TO 10.
000010 01 IN-R PIC X(80).
000011 END PROGRAM C1231.
C1231.cob (9) : JMN1231I-S RECORD句のデータレコードの最小文字数は,最大文字数より小さくなければなりません.最小文字数を最大文字数とみなします.