topic Re: Duplicate entries in Application Development and Automation Discussions

Duplicate entries

Former Member — Fri, 30 Nov 2007 07:27:21 GMT

Hi all,

I would like to fetch duplicate entries which are already in my internal table. I need to display only the duplicate entries. (still ahve to continue with some operations after that) so plz provide me with the details.

Issue resolving answer will be suitably rewarded.

Rgds,

a new HR - Abaper.

Re: Duplicate entries

Former Member — Fri, 30 Nov 2007 07:34:58 GMT

Hi,

you can delete the duplicated entries with

DELETE ADJACENT DUPLICATES FROM itab

To see the deletes rows, move all entries before deleting into an other internal table and check then with loop the missing entries.

Regards

Nicole

Re: Duplicate entries

Former Member — Fri, 30 Nov 2007 07:35:11 GMT

declear to internal table.

DELETE ADJACENT DUPLICATES FROM itab_dummy.

loop at itab into wa. orginal

read table itab into wa with key field wa_dummy.dummu

delete wa from itab. delete record

endloop.

Re: Duplicate entries

Former Member — Fri, 30 Nov 2007 07:39:21 GMT

Hi,

Please use the below code format to display the duplicate entries:

itab1[] = itab[].

loop at itab1.

loop at itab where condition (for checking duplicate).

write : / itab.

display itab1 where condition for checking duplicate.

endloop.

Use this if this helps you and reward if works.

Thank you...

Re: Duplicate entries

Former Member — Fri, 30 Nov 2007 07:48:29 GMT

i dont want to delete those duplicate entries. I just want to fetch them in order to perform some other action. I hope I am clear.

Re: Duplicate entries

former_member404244 — Fri, 30 Nov 2007 07:51:50 GMT

hi,

Do like this

first sirt both the internal tables by the field on which u want duplicate entry

ITAB2[] = ITAB1[].

sort itab1 by field1.

sort itab2 by field2.

LOOP AT ITAB1.

READ TABLE ITAB2 WITH KEY FIELD1 = ITAB1-FIELD1.

IF SY-SUBRC EQ 0.

MOVE DATA TO ITAB3.

APPEND ITAB3.

ENDIF.

ENDLOOP.

NOW ITAB3 WILL HAVE DUPLICATE ENTRIES.

else

u can do like this also

V_INDEX = 2.

LOOP AT ITAB1 INTO WA.

READ TABLE ITAB1 INTO WA1 INDEX V_INDEX.

IF WA1-FIELD1 = WA-FIELD1.

MOVE DATA TO ITAB2.

APPEND ITAB2.

ENDIF.

CLEAR : WA,

WA1.

V_INDEX = V_INDEX + 1.

ENDLOOP.

Now itab2 will have duplicate entries

Regards,

Nagaraj

Re: Duplicate entries

Former Member — Fri, 30 Nov 2007 08:00:39 GMT

i have used similar code (as in ur second option) I am sending u this code too... plz help me thru.

FORM duplicate .

data: j type i value 1,

wa_qid like i_outtab-qid.

do.

read table i_outtab index j.

if sy-subrc <> 0.

exit.

endif.

wa_qid = i_outtab-qid.

loop at i_outtab.

if sy-tabix eq j.

if wa_qid ne i_outtab-qid.

delete i_outtab index sy-tabix.

endif.

else.

j = j + 1.

endif.

endloop.

enddo.

ENDFORM. " duplicate