NetCOBOL for .NET V8.0 メッセージ集

2.3.347 JMN2568I-S

SUPPRESS文は，USE BEFORE REPORTING手続き中以外には指定できません．

例

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