Help in doing sum fields from tables

Question

HALLOW
i have a table and i wont to add the tables line to one line , to do sum
if date appear more then one time like in example.
i give example
date----
hours
01.01.2002 6.5
01.01.2002 2.5
02.01.2002 5
03.01.2002 3
03.01.2002 3
04.01.2002 4
06.01.2002 5
i wont to move it to table like this
date----
hours
01.01.2002 9 ->sum houres of date 01.01.2002
02.01.2002
03.01.2002 6 ->sum houres of date 03.01.2002
04.01.2002 4
06.01.2002 5
Regards
i reward

Answer 1

You can get same functionality if you use Internal table events .
See the simple example :
*& Report  ZTEST_IEVENTS
REPORT  ZTEST_IEVENTS no standard page heading
                      line-count 40(2).
tables : vbap.
data : begin of i_vbap occurs 0,
       vbeln like vbap-vbeln,
       posnr like vbap-posnr,
       matnr like vbap-matnr,
       kwmeng like vbap-kwmeng,
       netpr like vbap-netpr,
       end of i_vbap.
data wa_vbap like line of  i_vbap.
data v_flag type c.
select-options s_vbeln for vbap-vbeln obligatory.
start-of-selection.
select vbeln
       posnr
       matnr
       kwmeng
       netpr from vbap
       into table i_vbap
       where vbeln in s_vbeln.
sort i_vbap by vbeln posnr.
end-of-selection.
loop at i_vbap.
move i_vbap to wa_vbap.
at first.
write:/2 'Order #',15 'Item #',28 'Material #',50 'Qty', 70 'Net value'.
skip 1.
endat.
at new vbeln.
write:/2 wa_vbap-vbeln,15 wa_vbap-posnr,28 wa_vbap-matnr,
        47 wa_vbap-kwmeng,65 wa_vbap-netpr.
v_flag = 'X'.
endat.
if v_flag ne 'X'.
write:/15 wa_vbap-posnr,28 wa_vbap-matnr,
        47 wa_vbap-kwmeng,65 wa_vbap-netpr.
endif.
at end of vbeln.
sum.
skip 1.
write:/5 'Sub totals', 47 i_vbap-kwmeng,65 i_vbap-netpr.
skip 1.
endat.
at last .
skip 1.
sum.
write:/5 'Grand Totals',47 i_vbap-kwmeng,65 i_vbap-netpr.
skip 1.
write:/ 'end of page', 'Footer'.
endat.
clear v_flag.
endloop.
Good luck
Thanks
Seshu