Re: Best Way to find duplicate records in same file

I believe the easiest way is the RPG Cycle and

CL0NL1                DELETRECORD

where L1 is turned on for all the keys that you are looking for

Regards
Narayanan R Pillai

----- Original Message -----
From: <Mlpolutta@xxxxxxx>
To: "Midrange Systems Technical Discussion" <midrange-l@xxxxxxxxxxxx>
Sent: Friday, May 09, 2003 2:17 PM
Subject: Re: Best Way to find duplicate records in same file


> You can also use OPNQRYF/CPYFRMQRYF to do this (one-time approach):
>
> OPNQRYF FILE(YOURFILE) KEYFLD((KEY 1) (KEY 2)) UNIQUEKEY(*ALL)
> CPYFRMQRYF OPNID(YOURFILE) TOFILE(UNIQUEFILE) CRTFILE(*YES)
MBROPT(*REPLACE)
>
> Now UNIQUEFILE has the unique records based on the keys given.
>
> HTH,
> Michael
>
> > Actually what I need it to do is delete the dups:
> >
> > Record 1: ABCDEFGHIJKL
> > Record 2: ABCDEFGHIJKL
> > Record 3: 123456789012
> >
> > I want to delete record 2
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.