Sum in Internal Tables

Question

Dear Friends,
I AM WRITING A REPORT TO SHOW THE ALL THE POs WHOSE GRs HAS BEEN DONE BUT NOT THE IRs.
LIKE :-
Serial_no    Vendor_no    vendor_name     Po_no         ItemNo       GR_no          Ref_Doc_num          Amount
I GOT THE REPORT BUT NOW MY USER SAYS ....
HE WANTS one recod (Serial_no) if po_no and GR_no and ref_doc_num are same with Amount summed up.
so that serial number will be less and and he will get the total amount of the pending GR.
I am not getting the logic how shall I sum up the amounts comapring po, gr and Ref doc no.
Regards,
jeevan.

Answer 1

Thanks for your replies. but i am not getting that......
i have an internal table with POs ..item nos...grs..ref no..... anmount..
now i have to get it in another internal table where there will be only Serialno .. po.no.gr..and ref and amount summed up all the similar ref numbers.
here is code.. its not optimized...but see... i have included
*& Report  ZMMR_TEST2
REPORT  ZMMR_TEST2.
TABLES : EKKO, EKBE, LFA1.
TYPE-POOLS : SLIS.
DATA : begin of IT_ekbe4 OCCURS 1  ,
        i_index type i,
        lifnr TYPE ekko-lifnr,
        name1 TYPE lfa1-name1,
        no_name type string,
        ebeln TYPE ekbe-ebeln,
        ebelp TYPE ekbe-ebelp,
        belnr TYPE ekbe-belnr,
        xblnr TYPE ekbe-xblnr,
        dmbtr TYPE ekbe-dmbtr,
        bewtp TYPE ekbe-bewtp,
        bwart TYPE ekbe-bwart,
        menge type ekbe-menge,
       end of IT_ekbe4.
DATA : it_ekbe like ekbe occurs 1 with header line,
      it_ekbe2 like ekbe occurs 1 with header line,
      it_ekbe3 like it_ekbe4 occurs 1 with header line.
DATA : V_TABIX LIKE SY-TABIX.
*DATA : it_ekbe4 type standard table of s_ekbe4 initial size 0,
       wa_ekbe4 type s_ekbe4.
data: fieldcatalog type slis_t_fieldcat_alv with header line,
      gd_tab_group type slis_t_sp_group_alv,
      gd_layout    type slis_layout_alv,
      gd_repid     like sy-repid.
*selection screen.
select-options : s_date for ekbe-budat.
PARAMETERS DOC_TYP LIKE EKKO-BSART.
*Start-of-selection.
  select a~ebeln a~ebelp a~bewtp a~bwart a~xblnr a~dmbtr a~belnr
            b~lifnr
            c~name1
            into  (it_ekbe4-EBELN, it_ekbe4-ebelp, it_ekbe4-bewtp,
it_ekbe4-bwart, it_ekbe4-xblnr, it_ekbe4-dmbtr, it_ekbe4-belnr,
it_ekbe4-lifnr, it_ekbe4-name1)
            from ekbe as a
            inner join ekko as b
            on a~ebeln = b~ebeln
            inner join lfa1 as c
            on b~lifnr = c~lifnr
            where a~budat in s_date
            and a~bewtp = 'E'
            and a~bwart in ('101','102', '122')
            and b~bstyp = 'F'
            and b~bsart  = DOC_TYP
            and b~ekorg = '1000'
     select ebeln ebelp bewtp bwart
              from ekbe
              into (it_ekbe2-EBELN , it_ekbe2-ebelp , it_ekbe2-bewtp ,
it_ekbe2-bwart)
              where ebeln = IT_EKBE4-EBELN
              and ebelp = it_ekbe4-ebelp
              and bewtp = 'Q'.
      APPEND IT_EKBE2.
    ENDSELECT.
     APPEND IT_EKBE4.
  ENDSELECT.
  LOOP AT IT_EKBE4.
    V_TABIX = SY-TABIX.
    READ TABLE IT_EKBE2 WITH KEY EBELN = IT_EKBE4-EBELN ebelp =
it_ekbe4-ebelp.
    IF SY-SUBRC = 0.
      DELETE IT_EKBE4 INDEX V_TABIX.
    ENDIF.
    ENDLOOP.
    clear v_tabix.
  LOOP AT IT_EKBE4.
    if ( it_ekbe4-bwart = '102' or it_ekbe4-bwart = '122' ).
      it_ekbe4-dmbtr = it_ekbe4-dmbtr * -1.
    endif.
       it_ekbe3-i_index = sy-tabix.
       it_ekbe3-ebeln = it_ekbe4-ebeln.
       it_ekbe3-ebelp = it_ekbe4-ebelp.
       it_ekbe3-belnr = it_ekbe4-belnr.
       it_ekbe3-xblnr = it_ekbe4-xblnr.
       it_ekbe3-dmbtr = it_ekbe4-dmbtr.
       it_ekbe3-lifnr = it_ekbe4-lifnr.
       it_ekbe3-name1 = it_ekbe4-name1.
       concatenate it_ekbe4-name1 '/' it_ekbe4-lifnr into  it_ekbe3-no_name.
*separated by space.
       append it_ekbe3. "YOU TOLD THIS TO BE COLLECT."
      Collect it_ekbe3 into it_ekbe3.
  ENDLOOp.
sub totals.
*loop at it_ekbe3.
*collect
*endloop.
loop at it_ekbe3.
write:/ it_ekbe3-ebeln , 'gr', it_ekbe3-belnr , 'ref', it_ekbe3-xblnr, 'amount', it_ekbe3-dmbtr.
endloop.