Re: Duplicate records

[RPower@xxxxxxxxxx]

Make a new PF with as many keys as needed to make the records unique.
Write an RPG program that reads the original, and writes to the new file 
with the error indicator to trap the attempt to write duplicate record 
error and you are done.  It should fail to write the duplicates, thus 
being left with a new file with only the correct records.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




Rosh De <rpg_ile@xxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/30/2004 03:48 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Duplicate records







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.