例題
[P2472.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2472. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 I-O-CONTROL. 000008 DATA DIVISION. 000009 FILE SECTION. 000010 FD SQFILE1 000011 REPORT IS REP1. 000012 WORKING-STORAGE SECTION. 000013 01 WITM1 PIC 9(2). 000014 01 WITM2 PIC 9(2). 000015 REPORT SECTION. 000016 RD REP1 PAGE 66. 000017 01 TYPE CF WITM1. 000018 02 PIC S9(4) SUM WITM1 RESET WITM2. 000019 PROCEDURE DIVISION. 000020 END PROGRAM P2472.
P2472.cob 18: JMN2472I-S RESET句は,CONTROL句のない報告書に指定できません.
詳細な説明
RESETに指定するデータ名は,報告書のCONTROL句に書いたデータ名の1つでなければなりません.RESET指定にFINALを書く場合には,この報告書のCONTROL句にもFINALを書いておかなければなりません.