SUSPEND IDENTICAL [SUPPRESS ]
[(rep)]
|
Dieses Dokument behandelt folgende Themen:
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
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.
(rep) |
Report-Spezifikation:
Mit der Notation
Es kann ein Wert von 0 bis 31 oder ein logischer Name, der mit
einem Falls nichts anderes angegeben wird, bezieht sich das Statement
|
---|
** 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***
** 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***