例題
[P2493.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2493. 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 RECORD VARYING IN SIZE 000011 DEPENDING ON LRECL 000012 REPORT IS REP1. 000013 WORKING-STORAGE SECTION. 000014 01 LCREL PIC 9(2). 000015 01 WITM PIC 9(2). 000016 REPORT SECTION. 000017 RD REP1 PAGE 66. 000018 01 TYPE DE. 000019 02 PIC 9(4) SOURCE WITM. 000020 PROCEDURE DIVISION. 000021 END PROGRAM P2493.
P2493.cob 10: JMN2493I-S 報告書ファィルにRECORD句を指定する場合，VARYING指定であってはなりません．
