topic Re: Loop in Application Development and Automation Discussions

Loop

Former Member — Wed, 19 Mar 2008 10:45:19 GMT

Dear All,

I am using floowing coding in which I am displaying

KTAB-VKORG, KTAB-WRBTR.

Now in this I want sum of wrbtr for all new vkorg

Pl help me to do so

LOOP AT KTAB.

IF KTAB-KSCHL = 'ZSKP'.

NEW_DATE = KTAB-ZFBDT + KTAB-ZBD1T.

ELSEIF KTAB-KSCHL = 'ZRPP'.

NEW_DATE = KTAB-ZFBDT + KTAB-ZBD2T.

ELSEIF KTAB-KSCHL = 'SKTO'.

NEW_DATE = KTAB-ZFBDT + KTAB-ZBD2T.

ENDIF.

IF NEW_DATE LE W_DATE.

*on change of ktab-vkorg.

*sum.

WRITE:/ KTAB-VKORG, KTAB-WRBTR.

*endon.

ENDIF.

ENDLOOP.

Re: Loop

Former Member — Wed, 19 Mar 2008 10:49:35 GMT

Hi,

sort ktab by vkorg.

loop at ktab.

at new vkorg.

clear dsum.

endat.

dsum = wrbtr + dsum.

at end of vkkorg.

write dsum.

endat.

endloop.

Re: Loop

Former Member — Wed, 19 Mar 2008 10:51:13 GMT

U can use SUM option into the loop:

LOOP AT KTAB.
  AT END OF VKORG.
      SUM.
      WRITE: / KTAB-WRBTR.
  ENDAT.
ENDLOOP.

Max

Re: Loop

Former Member — Wed, 19 Mar 2008 10:54:39 GMT

inside the loop use at new

example

data: w_vkorg type KTAB-VKORG.

clear:w_vkorg.

loop at katb.

at new vkorg.

w_vkorg = w_vkorg + KTAB-VKORG.

write: w_vkorg.

endat.

write: w_vkorg.

endloop.

Re: Loop

Former Member — Wed, 19 Mar 2008 11:08:03 GMT

Sort ktab by VKORG.

Loop at ktab into wa_ktab

If v_vkorg NE wa_ktab-vkorg.

wa_ktab2-vkorg = v_vkorg.

Append wa_ktab2 into ktab2.

V_WRBTR1 = wa_ktab-V_WRBTR.

else.

wa_ktab2-WRBTR = wa_ktab2-WRBTR + wa_ktab-WRBTR + V_WRBTR1.

v_vkorg = wa_ktab-vkorg.

Clear V_WRBTR1.

endif.

endloop.

Delete ktab2 index 1.

In the internal table ktab2,you will get the total.

Hope this will help.

Regards

Shibin