例題
[P2499.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2499. 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 HEADING 2 000017 FIRST DETAIL 10 000018 LAST DETAIL 60. 000019 01 TYPE DE NEXT GROUP 65. 000020 02 LINE 10. 000021 03 COLUMN 10 PIC X(10) SOURCE WSO1. 000022 PROCEDURE DIVISION. 000023 END PROGRAM P2499.
P2499.cob 19: JMN2499I-S NEXT GROUP句の整数は表示範囲の下限を超えてはなりません.
詳細な説明
NEXT GROUP句は,報告集団の最後の行を表示した後に行う行送りを指示します.絶対的なNEXT GROUP句が指定されると,その位置から次の報告集団が表示されます.報告集団が表示される範囲外の縦位置を示す値は指定できません.