No. of Rows in Internal Table for Particular Record

Question

Hi all,
    I'm having an Internal Table with the Following Datas,
Date                Value
12.03.2008        8
13.03.2008        7
13.03.2008        4
14.03.2008        5
14.03.2008        6
I want to find out how many records are there for the Paricular Date.And i have to add those values.The Result should be
Date                Value
12.03.2008        8
13.03.2008        11
14.03.2008        11
In that Internal Table,Date is not the Key Field.So we cant go for Collect Statement.
Regards,
Padmam.

Answer 1

hi,
pls check this code . in this code i ristic the multiple entries in a single day for Diesel Consumed Diesel add in genset.
follow the code and apply in your program ............
sort it by swerk idate equnr ascending vlcod descending recdv ascending . "cntrr ascending.
loop at it.
  at new idate.
   check = it-idate.
   flag = 0.
  endat.
or
send the whole code.............
reward point if helpful...........
regards,
pankaj
  on change of it-equnr.
    flag = 0.
  endon.
  if check = it-idate.
      if it-vlcod = 'OPEN' and flag = 0.
        it2 = it.
        append it2.
        flag = 1.
        count = count + 1.
     elseif flag = 0 and count = 0.
       count = 1.
      elseif it-vlcod = 'CLOS'.
       if flag = 0 and count = 0.
         count = 1.
       endif.
        it2-vlcod_cl = it-vlcod.
        it2-itime_cl = it-itime.
        it2-recdv_cl = it-recdv.
        if count = 0.
        else.
          modify it2 index count transporting vlcod_cl itime_cl recdv_cl.
        endif.
     elseif it-vlcod = ''.
       it2 = it.
       append it2.
       count = count + 1.
      elseif it-atinn = '0000000151'.  " Diesel Consumed
         it2-di_con = it-recdv.
         it2-sum_con = it2-sum_con + it2-di_con.
         if count = 0.
        else.
           modify it2 index count transporting di_con sum_con.
        endif.
        modify it2 index count transporting di_con sum_con.
      elseif it-atinn = '0000000152'.  " Diesel added
         it2-di_add = it-recdv.
         it2-sum_add = it2-sum_add + it2-di_add.
        if count = 0.
        else.
             modify it2  index count transporting di_add sum_add.
        endif.
        modify it2  index count transporting di_add sum_add.
      endif.
  endif.
endloop.
clear it.
clear it[].
it[] = it2[].