例題
[P2496.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2496. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 WITM PIC N(1). 000013 REPORT SECTION. 000014 RD REP1 PAGE 66. 000015 01 TYPE DE. 000016 02 LINE PLUS 1. 000017 03 COLUMN 140 PIC N(1) SOURCE WITM. 000018 PROCEDURE DIVISION. 000019 END PROGRAM P2496.
P2496.cob 17: JMN2496I-S COLUMN句の値が大きすぎます．報告書レコードの長さを拡張し，処理を続行します．
