RE: Using SQL to check for duplicate records

["Booth Martin" <Booth@xxxxxxxxxxxx>]

something like this maybe? 

     FTest01P   IP   E           K DISK    INFDS(DB3) BLOCK(*NO)            
  
     FQPrint    O    F  132        Printer                                  
  
      *  ..................................................                 
  
      * Get the record Number, to know which record to update/process:      
  
     D DB3             DS                                                   
  
     D DB3RRN                397    400B 0                                  
  
                                                                            
  
     D SavedRRN                             Like(DB3RRN)                    
  
     
**--------------------------------------------------------------------*  
     ITest01Rec                                                             
  
     I                                          States        L1            
  
     
**====================================================================*  
      ** M A I N   C A L C U L A T I O N S                                 
*  
     
**====================================================================*  
                                                                            
  
     C                   If        *INL1                                    
  
     C                   eval      SavedRRN = DB3RRN                        
  
     C                   else                                               
  
     C                   except    printline                                
  
     C                   endif                                              
  
      *-----------------------------------------------*                     
  
     OQPrint    E            printline   1                                  
  
     O                       States              20                         
  
     O                       SavedRRN           + 2       
     O                       DB3RRN             + 2       
      *-----------------------------------------------*   
 
---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------
 
-------Original Message-------
 
From: Midrange Systems Technical Discussion
Date: 1/7/2004 9:07:59 AM
To: Midrange Systems Technical Discussion
Subject: RE: Using SQL to check for duplicate records
 
Sample code?
 
Rob Berendt
--
"All creatures will make merry... under pain of death."
-Ming the Merciless (Flash Gordon)
 
 
 
 
"Booth Martin" <Booth@xxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
01/07/2004 09:21 AM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
 
 
To
<midrange-l@xxxxxxxxxxxx>
cc
 
Fax to
 
Subject
RE: Using SQL to check for duplicate records
  
At L1 time we would save it as a work field.  At non-L1 time we'd have a
duplicate and would print a line with the key and both RRN numbers.

---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@xxxxxxxxxxxx
---------------------------------------------------------