例
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文に続けて記述される手続きであり，指定した報告集団を作成表示する直前に，報告書作成管理システムによって実行されます．