topic Re: DELETE ADJACENT DUPLICATES in Application Development and Automation Discussions

DELETE ADJACENT DUPLICATES

Former Member — Sun, 02 Sep 2007 11:42:54 GMT

hallow

i wont to delete appearance in table of mine when data appear more then one time

example

itab before

field num

100 aa

100 bb

200 cc

200 dd

itab after

field num

100 aa

200 cc

i reward

regars

i try with

DELETE ADJACENT DUPLICATES FROM itab

but its not working

Regards

Re: DELETE ADJACENT DUPLICATES

athavanraja — Sun, 02 Sep 2007 12:03:05 GMT

sort itab by field num .

delete adjacent duplicates from itab comparing field.

Re: DELETE ADJACENT DUPLICATES

Former Member — Sun, 02 Sep 2007 12:05:42 GMT

Check the below program :

data : begin of itab occurs 0,

num(3) type n,

fld(4) type c,

end of itab.

start-of-selection.

itab-num = '100'.

itab-fld = 'aa'.

append itab.

itab-num = '100'.

itab-fld = 'bb'.

append itab.

itab-num = '200'.

itab-fld = 'cc'.

append itab.

itab-num = '200'.

itab-fld = 'dd'.

append itab.

DELETE ADJACENT DUPLICATES FROM itab comparing num.

loop at itab.

write:/ itab-num,itab-fld.

endloop.

Thanks

Seshu

Re: DELETE ADJACENT DUPLICATES

Former Member — Sun, 02 Sep 2007 12:11:43 GMT

Small modification in code and i forgot to keep sort command.

Check the below program :

data : begin of itab occurs 0,

num(3) type n,

fld(4) type c,

end of itab.

start-of-selection.

itab-num = '100'.

itab-fld = 'aa'.

append itab.

itab-num = '100'.

itab-fld = 'bb'.

append itab.

itab-num = '200'.

itab-fld = 'cc'.

append itab.

itab-num = '200'.

itab-fld = 'dd'.

append itab.

sort itab by num fld.

DELETE ADJACENT DUPLICATES FROM itab comparing num.

loop at itab.

write:/ itab-num,itab-fld.

endloop.

Thanks

Seshu