例題
[P2418.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2418. 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 CTLD PIC 9(2). 000014 REPORT SECTION. 000015 RD REP1 PAGE 66 000016 CONTROL CTLD. 000017 01 DE-1 TYPE DE. 000018 02 LINE PLUS 1. 000019 03 COLUMN 10 000020 PIC S9(4) SOURCE TARGET. 000021 01 TYPE CF CTLD. 000022 02 LINE PLUS 1. 000023 03 TARGET COLUMN 5 PIC X(10) VALUE SPACE. 000024 03 SC1 COLUMN 20 PIC S9(4) SUM CTLD. 000025 PROCEDURE DIVISION. 000026 END PROGRAM P2418.
P2418.cob 20: JMN2418I-S SOURCE句の一意名が報告書節に定義されている場合,その一意名は,PAGE-COUNTER,LINE-COUNTERまたはそのSOURCE句が指定されたデータ名と同一報告書中の合計カウンタでなければなりません.