例題
[P2433.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2433. 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 000010 REPORT IS REP1. 000011 WORKING-STORAGE SECTION. 000012 01 WSO1 PIC X(10). 000013 01 WSO2 PIC X(10). 000014 REPORT SECTION. 000015 RD REP1 PAGE 66. 000016 01 TYPE DE. 000017 02 LINE 12. 000018 03 COLUMN 10 PIC X(10) SOURCE WSO1. 000019 02 LINE 10. 000020 03 COLUMN 20 PIC X(10) SOURCE WSO2. 000021 PROCEDURE DIVISION. 000022 END PROGRAM P2433.
P2433.cob 19: JMN2433I-S LINE句の絶対値指定の整数は,昇順でなければなりません.
詳細な説明
LINE NUMBER句では報告集団の縦の位置を指定します.報告集団記述項を宣言順に参照したとき,それらに指定されているLINE NUMBER句の値(絶対値指定)は昇順になっているようにしてください.なおこれらの値は,連続している必要はありません.