Re: Duplicate records

[DGray@xxxxxxxxxxxxxxx]

Rather than  getting complicated with SQL or writing programs, why not just
copy 1 record to a temp file, clear the original file, then copy the 1
record back?

Step 1 - CPYF FROMFILE(LIBRARY/FILE)  TOFILE(QTEMP/TEMPFILE) CRTFILE(*YES)
FROMRCD(1) TORCD(1)
Step 2 - CLRPFM FILE(LIBRARY/FILE)
Step 3 - CPYF FROMFILE(QTEMP/TEMPFILE)  TOFILE(LIBRARY/FILE)

This is just a one-time deal,  after all
_________________________
Daniel L. Gray
Maverick Transportation, Inc.
13301 Valentine Road
North Little Rock, AR 72117

Phone: 501-955-1221
Fax: 501-955-4221


                                                                           
             Rosh De                                                       
             <rpg_ile@xxxxxxxx                                             
             m>                                                         To 
             Sent by:                  rpg400-l@xxxxxxxxxxxx               
             rpg400-l-bounces@                                          cc 
             midrange.com                                                  
                                                                   Subject 
                                       Duplicate records                   
             12/30/2004 01:18                                              
             PM                                                            
                                                                           
                                                                           
             Please respond to                                             
              RPG programming                                              
              on the AS400 /                                               
                  iSeries                                                  
             <rpg400-l@midrang                                             
                  e.com>                                                   
                                                                           
                                                                           





I have a PF with no keys. All records in this PF are duplicate, exactly
same. What is a better way to remove all such duplicates? This is one time
problem.

I thought of a program to read the file, read first record, keep it, read
second and delete it and reset the counter. SQL of any help here?

-Rosh


---------------------------------
Do you Yahoo!?
 Yahoo! Mail - 250MB free storage. Do more. Manage less.
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.