例題
[C1161.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. C1161. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT MSGFILE ASSIGN TO INFILE. 000007 I-O-CONTROL. 000008 RERUN ON INFILE 0 RECORDS OF MSGFILE. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD MSGFILE. 000012 01 INFDAT. 000013 02 INFNUM PIC S9(8) BINARY. 000014 02 INFMSG PIC X(50). 000015 END PROGRAM C1161.
C1161.cob 8: JMN1161I-S RERUN句のRECORD指定の整数の値は1から2147483647の範囲になければなりません．
