例
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. P2400.
000003 ENVIRONMENT DIVISION.
000004 INPUT-OUTPUT SECTION.
000005 FILE-CONTROL.
000006 SELECT REPFILE1 ASSIGN TO SYS001.
000007 DATA DIVISION.
000008 FILE SECTION.
000009 FD REPFILE1 REPORT REP1.
000010 WORKING-STORAGE SECTION.
000011 REPORT SECTION.
000012 RD REP1 PAGE 46
000013 HEADING 1
000014 FIRST DETAIL 7
000015 LAST DETAIL 44.
000016 01 TYPE PAGE HEADING.
000017 02 LINE 01 COLUMN 35
000018 PIC S9(6) SOURCE LINE-COUNTER OF REPFILE.
000019 PROCEDURE DIVISION.
000020 END PROGRAM P2400.
P2400.cob (19) : JMN2400I-S SOURCE句に修飾付きのPAGE-COUNTERまたはLINE-COUNTERを指定する場合,一意な報告書名で修飾しなければなりません.
詳細な説明
PAGE-COUNTER(ページカウンタ)またはLINE-COUNTER(行カウンタ)は,報告書作成機能で使用される特殊レジスタです.これらの特殊レジスタは,報告書ごとに生成されます.PAGE-COUNTERまたはLINE-COUNTERを修飾する場合は,報告書名(レベル指示語RDに続く名標)で修飾しなければなりません.