例題
[P2473.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2473. 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 CONTROL WITM1. 000018 01 TYPE CF WITM1. 000019 02 PIC S9(4) SUM WITM1 RESET FINAL. 000020 PROCEDURE DIVISION. 000021 END PROGRAM P2473.
P2473.cob 19: JMN2473I-S RESET句にFINALを指定する場合，その報告書のCONTROL句にFINALを指定しなければなりません．
