SUSPEND IDENTICAL SUPPRESS

#### Search Results

Search

# SUSPEND IDENTICAL SUPPRESS

`SUSPEND IDENTICAL` [`SUPPRESS`] [(rep)]

Dieses Dokument behandelt folgende Themen:

- Funktion

- Syntax-Beschreibung

- Beispiele

Eine Erläuterung der in dem Syntax-Diagramm verwendeten Symbole entnehmen Sie dem Abschnitt Syntax-Symbole.

Verwandte Statements: `AT END OF PAGE` | `AT TOP OF PAGE` | `CLOSE PRINTER` | `DEFINE PRINTER`| `DISPLAY` | `EJECT` | `FORMAT` | `NEWPAGE` | `PRINT` | `SKIP` | `WRITE` | `WRITE TITLE` | `WRITE TRAILER`

Gehört zur Funktionsgruppe: Erstellen von Ausgabe-Reports

## Funktion

Mit dem Statement `SUSPEND IDENTICAL SUPPRESS` können Sie den Session-Parameter `IS=ON` (Unterdrückung identischer Feldwerte bei der Ausgabe) für einzelne Datensätze außer Kraft setzen.

Vgl. Session-Parameter `IS` in der Parameter-Referenz.

## Syntax-Beschreibung

Syntax-Element | Beschreibung
--- | ---
`(rep)` | Report-Spezifikation: Mit der Notation `(rep)` kann ein bestimmter anderer Report angegeben werden, auf den sich das `SUSPEND IDENTICAL SUPPRESS`-Statement beziehen soll. Es kann ein Wert von 0 bis 31 oder ein logischer Name, der mit einem `DEFINE PRINTER`-Statement zugewiesen wurde, angegeben werden. Falls nichts anderes angegeben wird, bezieht sich das Statement `SUSPEND IDENTICAL SUPPRESS` auf den ersten Report (Report 0). Informationen darüber, wie Sie das Format eines mit Natural erstellten Ausgabe-Reports steuern, finden Sie im Abschnitt Steuerung der Ausgabe von Daten im Leitfaden zur Programmierung.

## Beispiele

- Beispiel 1 — Programm mit SUSPEND IDENTICAL SUPPRESS

- Beispiel 2 — Programm ohne SUSPEND IDENTICAL SUPPRESS

### Beispiel 1 — Programm mit SUSPEND IDENTICAL SUPPRESS

    ** Example 'SISEX1': SUSPEND IDENTICAL SUPPRESS
    ************************************************************************
    DEFINE DATA LOCAL
    1 EMPLOY-VIEW VIEW OF EMPLOYEES
      2 PERSONNEL-ID
      2 FIRST-NAME
      2 NAME
      2 CITY
    1 VEH-VIEW VIEW OF VEHICLES
      2 PERSONNEL-ID
      2 MAKE
    END-DEFINE
    *
    LIMIT 15
    *
    RD. READ EMPLOY-VIEW BY NAME STARTING FROM 'JONES'
      /*
      SUSPEND IDENTICAL SUPPRESS
      /*
      FD. FIND VEH-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (RD.)
        IF NO RECORDS FOUND
          MOVE '***NO CAR***' TO MAKE
        END-NOREC
        DISPLAY NOTITLE
                NAME (RD.) (IS=ON)
                FIRST-NAME (RD.) (IS=ON)
                MAKE (FD.)
      END-FIND
      /*
    END-READ
    END

Ausgabe des Programms `SISEX1`:

            NAME              FIRST-NAME              MAKE
    -------------------- -------------------- --------------------

    JONES                VIRGINIA             CHRYSLER
    JONES                MARSHA               CHRYSLER
                                              CHRYSLER
    JONES                ROBERT               GENERAL MOTORS
    JONES                LILLY                FORD
                                              MG
    JONES                EDWARD               GENERAL MOTORS
    JONES                MARTHA               GENERAL MOTORS
    JONES                LAUREL               GENERAL MOTORS
    JONES                KEVIN                DATSUN
    JONES                GREGORY              FORD
    JONES                EDWARD               ***NO CAR***
    JOPER                MANFRED              ***NO CAR***
    JOUSSELIN            DANIEL               RENAULT
    JUBE                 GABRIEL              ***NO CAR***
    JUNG                 ERNST                ***NO CAR***
    JUNKIN               JEREMY               ***NO CAR***

### Beispiel 2 — Programm ohne SUSPEND IDENTICAL SUPPRESS

    ** Example 'SISEX2': SUSPEND IDENTICAL SUPPRESS (compare with SISEX1)
    ************************************************************************
    DEFINE DATA LOCAL
    1 EMPLOY-VIEW VIEW OF EMPLOYEES
      2 PERSONNEL-ID
      2 FIRST-NAME
      2 NAME
      2 CITY
    1 VEH-VIEW VIEW OF VEHICLES
      2 PERSONNEL-ID
      2 MAKE
    END-DEFINE
    *
    LIMIT 15
    RD. READ EMPLOY-VIEW BY NAME STARTING FROM 'JONES'
      /*
      /* SUSPEND IDENTICAL SUPPRESS    /* statement removed
      /*
      FD. FIND VEH-VIEW WITH PERSONNEL-ID = PERSONNEL-ID (RD.)
        IF NO RECORDS FOUND
          MOVE '***NO CAR***' TO MAKE
        END-NOREC
        DISPLAY NOTITLE
                NAME (RD.) (IS=ON)
                FIRST-NAME (RD.) (IS=ON)
                MAKE (FD.)
      END-FIND
      /*
    END-READ
    END

Ausgabe des Programms `SISEX2`:

            NAME              FIRST-NAME              MAKE
    -------------------- -------------------- --------------------

    JONES                VIRGINIA             CHRYSLER
                         MARSHA               CHRYSLER
                                              CHRYSLER
                         ROBERT               GENERAL MOTORS
                         LILLY                FORD
                                              MG
                         EDWARD               GENERAL MOTORS
                         MARTHA               GENERAL MOTORS
                         LAUREL               GENERAL MOTORS
                         KEVIN                DATSUN
                         GREGORY              FORD
                         EDWARD               ***NO CAR***
    JOPER                MANFRED              ***NO CAR***
    JOUSSELIN            DANIEL               RENAULT
    JUBE                 GABRIEL              ***NO CAR***
    JUNG                 ERNST                ***NO CAR***
    JUNKIN               JEREMY               ***NO CAR***

### On this page

- Funktion
- Syntax-Beschreibung
- Beispiele