SUSPEND IDENTICAL [SUPPRESS ]
[(rep)]
|
This document covers the following topics:
For an explanation of the symbols used in the syntax diagram, see Syntax Symbols.
Related Statements: AT END OF
PAGE
| AT TOP OF
PAGE
| CLOSE
PRINTER
| DEFINE
PRINTER
|
DISPLAY
|
EJECT
|
FORMAT
|
NEWPAGE
|
PRINT
|
SKIP
|
WRITE
|
WRITE TITLE
|
WRITE TRAILER
Belongs to Function Group: Creation of Output Reports
The SUSPEND IDENTICAL SUPPRESS
statement is used to
suspend the Natural session parameter setting
IS=ON
(which
suppresses the output of identical field values) for the processing of one
record.
See also session parameter IS
in the
Parameter Reference.
Syntax Element | Description |
---|---|
(rep) |
Report Specification:
The notation
A value in the range If For information on how to control the format of an output report created with Natural, see Report Format and Control in the Programming Guide. |
** 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
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
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***