例題
[P2568.cob] 000001 IDENTIFICATION DIVISION. 000002 PROGRAM-ID. P2568. 000003 ENVIRONMENT DIVISION. 000004 INPUT-OUTPUT SECTION. 000005 FILE-CONTROL. 000006 SELECT SQFILE1 ASSIGN TO SYS001. 000007 SELECT REPFILE ASSIGN TO SYS002. 000008 I-O-CONTROL. 000009 DATA DIVISION. 000010 FILE SECTION. 000011 FD SQFILE1. 000012 01 SQF1REC PIC X(80). 000013 FD REPFILE 000014 REPORT IS REP1. 000015 WORKING-STORAGE SECTION. 000016 01 WFS1 PIC X(2). 000017 REPORT SECTION. 000018 RD REP1 PAGE 66. 000019 01 DE-REC TYPE DE. 000020 02 LINE PLUS 1. 000021 03 COLUMN 1 PIC X(80) SOURCE SQF1REC. 000022 PROCEDURE DIVISION. 000023 INITIATE REP1. 000024 SUPPRESS PRINTING 000025 GENERATE DE-REC. 000026 TERMINATE REP1. 000027 END PROGRAM P2568.
P2568.cob 24: JMN2568I-S SUPPRESS文は，USE BEFORE REPORTING手続き中以外には指定できません．
詳細な説明
SUPRESS文は，報告集団の表示を抑制します．SUPRESS文はUSE BEFORE REPORTING手続き中にだけ書けます．
USE BEFORE REPORTING手続きは，宣言部分のUSE BEFORE REPORTING文に続けて記述される手続きであり，指定した報告集団を作成表示する直前に，報告書作成管理システムによって実行されます．
