SUSPEND IDENTICAL SUPPRESS

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


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

** 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***