Duplicate entries in alv.

Question

Hi all,
    In my ALV report, i have so many fields having duplicate entry. (ex: ecc no. ,ern no. vat no. , central sales tax no., LST no., telephone no., name...so many )
    what my requirement is ... for each duplicate record i want to display the count
against to that record for the par field. so for evry field ..it will be followed by duplicate count field also. How to do this with minimum number of loops.

Answer 1

i am sending my program. i have to find out duplicate entries not only for name but alos for serch term, fax no, ecc no, cstno, lst no., panno. .and i need to display that against to every record.
suppose
i have
name       search term     
aaa           a                    
aaa           b                    
bbb           b                    
so i have to sort the abov one
name duplicate  search term  duplicte
aaa                       a              
aaa      2               b
bbb                       b                     2
how to do this.
in the following code , i tried for name but its not giving me the count.please help me.
TYPE-POOLS: slis.
TABLES : lfa1, j_1imovend.
TYPES : BEGIN OF ty_lfa1,
        lifnr TYPE lifnr,
        name1 TYPE name1_gp,
        name2 TYPE name2_gp,
        ort01 TYPE ort01_gp,   "city
        pstlz TYPE pstlz,      "postal code
        regio TYPE regio,
        sortl TYPE sortl,      "search term
        stras TYPE stras_gp,   "street
        adrnr TYPE adrnr,      "address
        erdat TYPE erdat_rf,   "created on
        ernam TYPE ernam_rf,   "created by
        ktokk TYPE ktokk,      "account group
        loevm TYPE loevm_x,    "del. flag
        sperr TYPE sperb_x,    "posting block
        sperm TYPE sperm_x,    "Centrally imposed purchasing block
        telf1 TYPE telf1,      "First telephone number
        telf2 TYPE telf2,      "Second telephone number
        telfx TYPE telfx,      "Fax Number
        stceg TYPE stceg,      "VAT registration number
        sperq TYPE qsperrfkt,  "Function to block
        END OF ty_lfa1.
DATA : it_lfa1 TYPE TABLE OF ty_lfa1.
DATA : wa_lfa1 TYPE ty_lfa1.
TYPES : BEGIN OF ty_j_1imovend,
        lifnr      TYPE lifnr,
        j_1iexcd  TYPE j_1iexcd,  "ECC Number
        j_1iexrn  TYPE j_1iexrn,  "Excise Registration Number
        j_1iexrg  TYPE j_1iexrg,  "Excise Range
        j_1iexdi  TYPE j_1iexdi,  "Excise Division
        j_1icstno TYPE j_1icstno, "Central Sales Tax Number
        j_1ilstno TYPE j_1ilstno, "Local Sales Tax Number
        j_1ipanno TYPE j_1ipanno, "Permanent Account Number
        j_1ivtyp  TYPE j_1ivtyp,  "Type of Vendor
        END OF ty_j_1imovend.
DATA : it_j_1imovend TYPE TABLE OF ty_j_1imovend.
DATA : wa_j_1imovend TYPE ty_j_1imovend.
TYPES: BEGIN OF ty_final,
       lifnr TYPE lifnr,
       name1 TYPE name1_gp,
       vname TYPE name1_gp,    "name1 without spl char
       count_name TYPE i,
       name2 TYPE name2_gp,
       ort01 TYPE ort01_gp,   "city
       pstlz TYPE pstlz,      "postal code
       regio TYPE regio,      "region
       sortl TYPE sortl,      "search term
       vsortl TYPE sortl,      "search term without spl char
       count_sortl TYPE i,
       stras TYPE stras_gp,   "street
       adrnr TYPE adrnr,      "address
       erdat TYPE erdat_rf,   "created on
       ernam TYPE ernam_rf,   "created by
       loevm TYPE loevm_x,    "del. flag
       sperr TYPE sperb_x,    "posting block
       sperm TYPE sperm_x,    "Centrally imposed purchasing block
       telf1 TYPE telf1,      "First telephone number
       vtelf1 TYPE telf1,     "tel no. with numbers only
       telf2 TYPE telf2,      "Second telephone number
       telfx TYPE telfx,      "Fax Number
       vtelfx TYPE telfx,     "fax no . without spl char.
       count_fax TYPE i,
       stceg TYPE stceg,         "VAT registration number
       sperq TYPE qsperrfkt,  "Function to block
       j_1iexcd  TYPE j_1iexcd,  "ECC Number
       veccno TYPE j_1iexcd,  "ecc without spl char
       count_ecc TYPE i,
       j_1iexrn  TYPE j_1iexrn,  "Excise Registration Number
       count_ern TYPE i,
       j_1iexrg  TYPE j_1iexrg,  "Excise Range
       j_1iexdi  TYPE j_1iexdi,  "Excise Division
       j_1icstno TYPE j_1icstno, "Central Sales Tax Number
       vcstno TYPE j_1icstno,  "Cst without spl char
       count_cst TYPE i,
       j_1ilstno TYPE j_1ilstno, "Local Sales Tax Number
       vlstno TYPE j_1ilstno, " LST without spl char
       count_lst TYPE i,
       j_1ipanno TYPE j_1ipanno, "Permanent Account Number
       vpanno TYPE j_1ipanno,  "Pan without spl char
       count_pan TYPE i,
       j_1ivtyp  TYPE j_1ivtyp,  "Type of Vendor
       END OF ty_final.
DATA:  it_final TYPE TABLE OF ty_final.
DATA:  wa_final TYPE ty_final.
TYPES: BEGIN OF ty_final1,
       lifnr TYPE lifnr,
       name1 TYPE name1_gp,
       vname TYPE name1_gp,    "name1 without spl char
       count_name TYPE i,
       name2 TYPE name2_gp,
       ort01 TYPE ort01_gp,   "city
       pstlz TYPE pstlz,      "postal code
       regio TYPE regio,      "region
       sortl TYPE sortl,      "search term
       vsortl TYPE sortl,      "search term without spl char
       count_sortl TYPE i,
       stras TYPE stras_gp,   "street
       adrnr TYPE adrnr,      "address
       erdat TYPE erdat_rf,   "created on
       ernam TYPE ernam_rf,   "created by
       loevm TYPE loevm_x,    "del. flag
       sperr TYPE sperb_x,    "posting block
       sperm TYPE sperm_x,    "Centrally imposed purchasing block
       telf1 TYPE telf1,      "First telephone number
       vtelf1 TYPE telf1,     "tel no. with numbers only
       telf2 TYPE telf2,      "Second telephone number
       telfx TYPE telfx,      "Fax Number
       vtelfx TYPE telfx,     "fax no . without spl char.
       count_fax TYPE i,
       stceg TYPE stceg,         "VAT registration number
       sperq TYPE qsperrfkt,  "Function to block
       j_1iexcd  TYPE j_1iexcd,  "ECC Number
       veccno TYPE j_1iexcd,  "ecc without spl char
       count_ecc TYPE i,
       j_1iexrn  TYPE j_1iexrn,  "Excise Registration Number
       count_ern TYPE i,
       j_1iexrg  TYPE j_1iexrg,  "Excise Range
       j_1iexdi  TYPE j_1iexdi,  "Excise Division
       j_1icstno TYPE j_1icstno, "Central Sales Tax Number
       vcstno TYPE j_1icstno,  "Cst without spl char
       count_cst TYPE i,
       j_1ilstno TYPE j_1ilstno, "Local Sales Tax Number
       vlstno TYPE j_1ilstno, " LST without spl char
       count_lst TYPE i,
       j_1ipanno TYPE j_1ipanno, "Permanent Account Number
       vpanno TYPE j_1ipanno,  "Pan without spl char
       count_pan TYPE i,
       j_1ivtyp  TYPE j_1ivtyp,  "Type of Vendor
       END OF ty_final1.
DATA:  it_final1 TYPE TABLE OF ty_final1.
DATA:  wa_final1 TYPE ty_final1.
*ALV DATA DECLARATION.
DATA: it_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      wa_fieldcat TYPE slis_fieldcat_alv,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
DATA: v_name1  TYPE fist-searchw,
      v_name2  TYPE fist-searchw,
      v_sortl1 TYPE fist-searchw,
      v_sortl2 TYPE fist-searchw,
      v_telfx1 TYPE fist-searchw,
      v_telfx2 TYPE fist-searchw,
      v_eccno1 TYPE fist-searchw,
      v_eccno2 TYPE fist-searchw,
      v_cstno1 TYPE fist-searchw,
      v_cstno2 TYPE fist-searchw,
      v_lstno1 TYPE fist-searchw,
      v_lstno2 TYPE fist-searchw,
      v_panno1 TYPE fist-searchw,
      v_panno2 TYPE fist-searchw.
DATA: telcount TYPE i.
DATA: v_telf1  TYPE telf1.
DATA: n TYPE i.
DATA: telno TYPE telf1.
*****************Selection Screen***************************
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS : s_lifnr FOR lfa1-lifnr.
SELECT-OPTIONS : s_name1 FOR lfa1-name1.
SELECT-OPTIONS : s_sortl FOR lfa1-sortl.
SELECT-OPTIONS : s_ort01 FOR lfa1-ort01.
SELECT-OPTIONS : s_erdat FOR lfa1-erdat.
SELECT-OPTIONS : s_ernam FOR lfa1-ernam.
SELECT-OPTIONS : s_ktokk FOR lfa1-ktokk.
SELECT-OPTIONS : s_loevm FOR lfa1-loevm.
SELECT-OPTIONS : s_sperr FOR lfa1-sperr.
SELECT-OPTIONS : s_sperq FOR lfa1-sperq.
SELECT-OPTIONS : s_sperm FOR lfa1-sperm.
SELECT-OPTIONS : s_stceg FOR lfa1-stceg.
SELECT-OPTIONS : s_eccno  FOR  j_1imovend-j_1iexcd.
SELECT-OPTIONS : s_ergno  FOR  j_1imovend-j_1iexrn.
SELECT-OPTIONS : s_exrng  FOR  j_1imovend-j_1iexrg.
SELECT-OPTIONS : s_exdiv  FOR  j_1imovend-j_1iexdi.
SELECT-OPTIONS : s_cstno  FOR  j_1imovend-j_1icstno.
SELECT-OPTIONS : s_lstno  FOR  j_1imovend-j_1ilstno.
SELECT-OPTIONS : s_panno  FOR  j_1imovend-j_1ipanno .
SELECT-OPTIONS : s_vntyp  FOR  j_1imovend-j_1ivtyp.
SELECTION-SCREEN : END OF BLOCK b1.
******************START-OF-SELECTION ****************************
START-OF-SELECTION.
  PERFORM get_data.
  PERFORM process_data.
  PERFORM build_layout.
  PERFORM display_data.
*&      Form  get_data
      text
-->  p1        text
<--  p2        text
FORM get_data .
  SELECT lifnr
         name1
         name2
         ort01
         pstlz
         regio
         sortl
         stras
         adrnr
         erdat
         ernam
         ktokk
         loevm
         sperr
         sperm
         telf1
         telf2
         telfx
         stceg
         sperq
         FROM lfa1
         INTO TABLE it_lfa1
         WHERE lifnr IN  s_lifnr
           AND name1 IN  s_name1
           AND ort01 IN  s_ort01
           AND sortl IN  s_sortl
           AND erdat  IN  s_erdat
           AND ernam IN s_ernam
           AND ktokk IN  s_ktokk
           AND loevm IN  s_loevm
           AND sperr IN s_sperr
           AND sperm IN  s_sperm
           AND stceg IN  s_stceg
           AND sperq  IN  s_sperq.
  IF it_lfa1 IS NOT INITIAL.
    SELECT lifnr
           j_1iexcd
           j_1iexrn
           j_1iexrg
           j_1iexdi
           j_1icstno
           j_1ilstno
           j_1ipanno
           j_1ivtyp
           FROM j_1imovend
           INTO TABLE it_j_1imovend
           FOR ALL ENTRIES IN it_lfa1
           WHERE lifnr = it_lfa1-lifnr
             AND j_1iexcd  IN s_eccno
             AND j_1iexrn  IN s_ergno
             AND j_1iexrg  IN s_exrng
             AND j_1iexdi  IN s_exdiv
             AND j_1icstno IN s_cstno
             AND j_1ilstno IN s_lstno
             AND j_1ipanno IN s_panno
             AND j_1ivtyp  IN s_vntyp.
  ENDIF.
ENDFORM.                    " get_data
*&      Form  process_data
      text
-->  p1        text
<--  p2        text
FORM process_data .
  SORT it_lfa1 BY lifnr .
DELETE ADJACENT DUPLICATES FROM it_mara COMPARING matnr matkl.
  LOOP AT it_lfa1 INTO wa_lfa1.
    CLEAR wa_final.
    wa_final-lifnr = wa_lfa1-lifnr.
    wa_final-name1 = wa_lfa1-name1.
    wa_final-name2 = wa_lfa1-name2.
    wa_final-ort01 = wa_lfa1-ort01.
    wa_final-pstlz = wa_lfa1-pstlz.
    wa_final-regio = wa_lfa1-regio.
    wa_final-sortl = wa_lfa1-sortl.
    wa_final-stras = wa_lfa1-stras.
    wa_final-adrnr = wa_lfa1-adrnr.
    wa_final-erdat = wa_lfa1-erdat.
    wa_final-ernam = wa_lfa1-ernam.
    wa_final-loevm = wa_lfa1-loevm.
    wa_final-sperr = wa_lfa1-sperr.
    wa_final-sperm = wa_lfa1-sperm.
    wa_final-telf1 = wa_lfa1-telf1.
    wa_final-telf2 = wa_lfa1-telf2.
    wa_final-telfx = wa_lfa1-telfx.
    wa_final-stceg = wa_lfa1-stceg.
    wa_final-sperq = wa_lfa1-sperq.
*****Removing spl chars in name1 and translating to uppercase*****
    v_name1 = wa_final-name1.
    IF v_name1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_name1
        IMPORTING
          without_specialchar = v_name2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vname = ''.
      ELSE.
        wa_final-vname = v_name2.
      ENDIF.
    ENDIF.
    TRANSLATE wa_final-vname TO UPPER CASE.
******Removing spl char in search term **********************************
    v_sortl1 = wa_final-sortl.
    IF v_sortl1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_sortl1
        IMPORTING
          without_specialchar = v_sortl2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vsortl = ''.
      ELSE.
        wa_final-vsortl = v_sortl2.
      ENDIF.
    ENDIF.
******Removing spl char in FAX number *****************************************
    v_telfx1 = wa_final-telfx.
    IF v_telfx1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_telfx1
        IMPORTING
          without_specialchar = v_telfx2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vtelfx = ''.
      ELSE.
        wa_final-vtelfx = v_telfx2.
      ENDIF.
    ENDIF.
    CLEAR wa_j_1imovend.
    READ TABLE it_j_1imovend INTO wa_j_1imovend WITH KEY lifnr = wa_lfa1-lifnr.
    IF sy-subrc = 0.
      wa_final-j_1iexcd  = wa_j_1imovend-j_1iexcd.
      wa_final-j_1iexrn  = wa_j_1imovend-j_1iexrn.
      wa_final-j_1iexrg  = wa_j_1imovend-j_1iexrg.
      wa_final-j_1iexdi  = wa_j_1imovend-j_1iexdi.
      wa_final-j_1icstno = wa_j_1imovend-j_1icstno.
      wa_final-j_1ilstno = wa_j_1imovend-j_1ilstno.
      wa_final-j_1ipanno = wa_j_1imovend-j_1ipanno.
      wa_final-j_1ivtyp  = wa_j_1imovend-j_1ivtyp.
    ENDIF.
******Removing spl char in ECC number *****************************************
    v_eccno1 = wa_final-j_1iexcd.
    IF v_eccno1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_eccno1
        IMPORTING
          without_specialchar = v_eccno2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-veccno = ''.
      ELSE.
        wa_final-veccno = v_eccno2.
      ENDIF.
    ENDIF.
******Removing spl char in CST number *********************************************
    v_cstno1 = wa_final-j_1icstno.
    IF v_cstno1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_cstno1
        IMPORTING
          without_specialchar = v_cstno2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vcstno = ''.
      ELSE.
        wa_final-vcstno = v_cstno2.
      ENDIF.
    ENDIF.
******Removing spl char in LST number *********************************************
    v_lstno1 = wa_final-j_1ilstno.
    IF v_lstno1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_lstno1
        IMPORTING
          without_specialchar = v_lstno2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vlstno = ''.
      ELSE.
        wa_final-vlstno = v_lstno2.
      ENDIF.
    ENDIF.
******Removing spl char in PAN number *********************************************
    v_panno1 = wa_final-j_1ipanno.
    IF v_panno1 IS NOT INITIAL.
      CALL FUNCTION 'SF_SPECIALCHAR_DELETE'
        EXPORTING
          with_specialchar    = v_panno1
        IMPORTING
          without_specialchar = v_panno2
        EXCEPTIONS
          result_word_empty   = 1
          OTHERS              = 2.
      IF sy-subrc <> 0.
        wa_final-vpanno = ''.
      ELSE.
        wa_final-vpanno = v_panno2.
      ENDIF.
    ENDIF.
*********Removing spl chars and alphabets from tel.no.***************************
    n = 0.
    telcount = STRLEN( wa_final-telf1 ).
    DO telcount TIMES.
      MOVE wa_final-telf1+n(1) TO v_telf1.
      IF v_telf1 CA '0123456789'.
        MOVE v_telf1 TO wa_final-vtelf1+n(1).
      ENDIF.
      n = n + 1.
      IF n = telcount .
        EXIT.
      ENDIF.
    ENDDO.
    CONDENSE wa_final-vtelf1 NO-GAPS.
  APPEND wa_final TO it_final.
  ENDLOOP.
*****************Counting Duplicate Entries**************************************
  SORT it_final BY vname.
  it_final1 = it_final.
  LOOP AT it_final INTO wa_final.
CLEAR wa_final1.
    AT END OF vname.
      LOOP AT it_final1 INTO wa_final1 WHERE vname = wa_final-vname.
        wa_final1-count_name = wa_final1-count_name + 1.
      ENDLOOP.
      IF wa_final1-count_name GT 1.
       wa_final-count_name = wa_final1-count_name.
        MODIFY it_final FROM wa_final1  TRANSPORTING count_name.
      ENDIF.
    ENDAT.
  ENDLOOP.
ENDFORM.                    " process_data