Check duplicates

Question

Hi,
How would I check duplicate records in an internal table?
Thanks
Will

Answer 1

Hi this si the code which can give u the list of the Key field of the records which are having more than one records, prerequestisite is tht "u shud have atleast a primary key in ur internal table"..please change the code as per ur requrimetn ,it wil work and efficient too ,if number of records is too large in table -
Data : begin of itab occurs 0,
       pernr like pernr-pernr,
       endda like p0001-endda,
       end of itab.
Data : begin of pernr_list occurs 0,
       pernr like pernr-pernr,
       end of pernr_list.
data : itab1 type range of itab WITH HEADER LINE,
       itab2 like standard table of itab with header line.
DATA: DUPCOUNT TYPE I,
      ORICOUNT TYPE I,
      NEWCOUNT TYPE I,
      TOTALHIT TYPE I VALUE 0.
Start-of-selection.
select pernr endda into corresponding fields of table itab
from pa0001
where endda = '99991231' and persg = p_eg and
pernr in ( select pernr from pa0000 where STAT2 = p_es
           and endda = '99991231' ).
if sy-subrc = 0.
sort itab by pernr.
itab2[] = itab[].
DESCRIBE TABLE ITAB LINES ORICOUNT.
DELETE ADJACENT DUPLICATES FROM ITAB2.
DESCRIBE TABLE ITAB2 LINES NEWCOUNT.
DUPCOUNT = ORICOUNT - NEWCOUNT.
  ITAB1-SIGN   =  'I'.
  ITAB1-OPTION   =  'EQ'.
  ITAB1-LOW  = '00000000'.
  APPEND ITAB1.
loop at itab.
IF NOT ITAB-PERNR IN ITAB1.
  ITAB1-SIGN   =  'I'.
  ITAB1-OPTION   =  'EQ'.
  ITAB1-LOW  = ITAB-PERNR.
  APPEND ITAB1.
ELSE.
  pernr_list-pernr = itab-pernr.    "Contain key field Pernr of duplicate records
  append pernr_list.
  TOTALHIT = TOTALHIT + 1.
  IF DUPCOUNT EQ TOTALHIT.
   EXIT.
  ENDIF.
ENDIF.
endloop.
Reward points if helpfull..