IBM Mainframe Forum

by **ravisankarc** » Fri May 02, 2014 7:10 pm

Hi,

I want a rexx code which can identify and delete the duplicate records. I searched in previous topics but couldn't find a relevant one.

Thanks in advance.

Regards
Ravi

by **enrico-sorichetti** » Fri May 02, 2014 7:43 pm

I want a rexx code which can identify and delete the duplicate records.

You might want it... but You will not get it :evil:

this is a help forum, not a gimme something one.

search the forum on how to do it using sort
gazillions of examples around

by **ravisankarc** » Fri May 02, 2014 8:26 pm

Hi Enrico,

I know deleting duplicate records using DFSORT, but I am looking a rexx code to do this. Because the other part of my requirement has been coded in rexx and don't want to use DFSORT in between.

Regards
Ravi

by **enrico-sorichetti** » Fri May 02, 2014 8:47 pm

does not seem that much difficult to me

here is the logic

Select all

read one record into the old_record_buffer
do while more records left
read one record into the new_record_buffer
/* compare old and new */
if old < new then
move new to old
iterate/continue
if old = new
process as needed
iterate/continue
if old > new
take care of the error ( out of sequence )
end
process the record left ( the old one )

by **enrico-sorichetti** » Fri May 02, 2014 9:26 pm

forgot to write the record

instead of

Select all

if old < new then
move new to old

should be

Select all

if old < new then
write the old record
move new to old

IBM Mainframe Forum

Rexx code to delete duplicate records

Rexx code to delete duplicate records

Re: Rexx code to delete duplicate records

Re: Rexx code to delete duplicate records

Re: Rexx code to delete duplicate records

Re: Rexx code to delete duplicate records