例題
[P2403.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2403. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT REPFILE ASSIGN TO SYS001. 000007 DATA DIVISION. 000008 FILE SECTION. 000009 FD REPFILE 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 PIC N(6) SOURCE LABEL1. 000018 PROCEDURE DIVISION. 000019 LABEL1. 000020 END PROGRAM P2403.
P2403.cob 17: JMN2403I-S SOURCE句の一意名は，データ名，PAGE-COUNTERまたはLINE-COUNTERでなければなりません．
詳細な説明
SOURCE句は，印字項目に転記される値の送出し側データ項目を指定する句です．同句には，データ項目あるいは，ページカウンタ/行カウンタを示す特殊レジスタを指定できます．
報告書作成管理システムが報告集団の印字行を作成するときに，SOURCE句で指定された項目を送出し側とする暗黙のMOVE文を実行します．
