Re: SQL delete question

[Michael_Schutte@xxxxxxxxxxxx]

Maybe?????

INSERT INTO TEMPFILE SELECT DISTINCT * FROM FILE
DELETE * FROM FILE
INSERT INTO FILE SELECT * FROM TEMPFILE


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.
"The Secret's the Sauce! Enjoy our new Bob-B-Q Pulled Pork Knife & Fork
Sandwich!"


rpg400-l-bounces@xxxxxxxxxxxx wrote on 01/18/2008 01:38:31 PM:

> Afternoon all
> I'm pretty sure that this question has been asked before.
> I have done a search to no avail, so here is my question
> I have a file that contains numerous fields on each record.
> To delete duplicate records I have used
> DELETE FROM FILEONE A WHERE RRN(A)
>   IN (SELECT RRN(B) FROM FILEONE B,
>   FILEONE C WHERE
> B.Fielda =  C.Fielda and
> B.Fieldb =  C.Fieldb and
> B/Fieldc = C.Fieldc and
> etc. etc.                        and
> RRN(B) < RRN(C)
> where etc.etc. is the list of ALL field names on the record.
> My question is
> Is there a different way of specifying this WITHOUT listing ALL the field
> names. If more fields are inserted into the record, and the value in
these
> fields are such that the records that were duplicate are no longer
> duplicate, I have to make sure that these new fields are inserted into
the
> SQL statement
>
> Thanks in advance
>
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
> "If you're going through Hell, keep going" - Winston Churchill
> --
> 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.