topic Re: Help to do Sum in Application Development and Automation Discussions

Help to do Sum

Former Member — Mon, 26 May 2008 19:09:05 GMT

Hi,

i Have internal table with fields like in e.g. below

and i wont to sum the Work days and put it in the last Colman

what is the Best way to do that?

Regards

i have this table without Colman sum_total (empty) .

what i wont is to spread the sum for all appearance of pernr in sum total Colman :

pernr      kostl       work_days        sum_total
 
111             5555             5                   13
111             5555             8                   13
444             6666             10                  15
444             6666             2                   15
444             6666             3                   15
555             5656             3                    6
555             5656             3                    6

Re: Help to do Sum

Former Member — Mon, 26 May 2008 19:21:42 GMT

hi check this...i hope we can do like this...

loop at itab.

at end of pernr.

sum .

v_total = sum .

endat.

v_total = sum + v_total.

endloop.

Re: Help to do Sum

Former Member — Tue, 27 May 2008 02:48:09 GMT

You can try the following way.

data: begin of itab occurs 0,

pernr type char3,

ktosl type char4,

workd type i,

sumwr type i,

end of itab.

data: it_out like itab occurs 0 with header line.

itab-pernr = '111'.

itab-ktosl = '5555'.

itab-workd = 5.

append itab.

itab-pernr = '111'.

itab-ktosl = '5555'.

itab-workd = 8.

append itab.

itab-pernr = '444'.

itab-ktosl = '6666'.

itab-workd = 10.

append itab.

itab-pernr = '444'.

itab-ktosl = '6666'.

itab-workd = 2.

append itab.

itab-pernr = '444'.

itab-ktosl = '6666'.

itab-workd = 3.

append itab.

itab-pernr = '555'.

itab-ktosl = '5656'.

itab-workd = 3.

append itab.

itab-pernr = '555'.

itab-ktosl = '5656'.

itab-workd = 3.

append itab.

loop at itab.

collect itab into it_out.

clear it_out.

endloop.

clear itab.

loop at it_out.

itab-pernr = it_out-pernr.

itab-ktosl = it_out-ktosl.

itab-sumwr = it_out-workd.

modify itab transporting sumwr where pernr eq it_out-pernr

and ktosl eq it_out-ktosl.

endloop.

loop at itab.

write : itab-pernr, itab-ktosl, itab-workd, itab-sumwr, /.

endloop.

Reward points, if it is helpful.

Regards

Raja.

Re: Help to do Sum

Former Member — Tue, 27 May 2008 03:07:41 GMT

Hi Another simple way of doing this is using two internal tables.

lets say ur output table as you have shown is gi_out.

declare another table gi_pernr same structure as of gi_out.


gi_pernr[] = gi_out[]
sort gi_pernr by pernr.
delete adjacent duplicates from gi_pernr comparing pernr.

loop at gi_pernr into gw_pernr.
clear lv_days.
loop at gi_out into gw_out where pernr = gw_pernr-pernr.
lv_days = lv_days + gw_out-work_days.
endloop.

modify gi_out from gw_out transporting sum_total where pernr = gw_pernr-pernr.
endloop.

This will surely work..

thnx,

Ags..

Re: Help to do Sum

Former Member — Tue, 27 May 2008 03:51:19 GMT

Hi,

U can code like----

SORT ITAB BY PERNR.

LOOP AT itab.

AT END OF KOSTL.

SUM.

WRITE: / itab-PERNR, itab-KOSTL, itab-TOL.

ENDAT.

ENDLOOP.

Reward if helpful.

Thanks.

Re: Help to do Sum

kesavadas_thekkillath — Tue, 27 May 2008 04:32:54 GMT


sort it by pernr kostl.
data:sum_val type p.
loop at itab.
at new pernr.
sum.
sum_val = itab-work_days.
endat.
itab-sum_total = sum_val.
modify itab transporting sum_total where pernr = itab-pernr
				   and kostl = itab-kostl.
endloop.