例
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句が指定されたデータ名と同一報告書中の合計カウンタでなければなりません.