topic Re: Problem with itab looping in Application Development and Automation Discussions

Problem with itab looping

Former Member — Thu, 15 Jan 2009 12:54:52 GMT

Hi, I have a set of data in an internal table, with fields a b c d e.

My requirement is rather confusing

( KEY refers to combination of a b c and d )

sort itab by a,b,c,d

loop at itab based on sort key ( a,b,c,d)

at break in KEY sum all e for the records with the SAME KEY.

if sum(e) > 0.

remove this set from itab

else.

keep them

endloop.

I am not sure how to proceed, can anyone help?

Re: Problem with itab looping

Former Member — Thu, 15 Jan 2009 12:59:51 GMT

Hi,

Its little bit confusing.

Can u tell ur requirement briefly.

Thanks.

Re: Problem with itab looping

JozsefSzikszai — Thu, 15 Jan 2009 13:00:36 GMT

roughly:

SORT iatb BY a b c d.
LOOP AT itab.
AT END OF d.
SUM.
IF itab-e > 0.
DELETE itab WHERE a = itab-a
                         AND b = itab-b
                         AND c = itab-c
                         AND d = itab-d.
ENDIF.
ENDAT.
ENDLOOP.

Re: Problem with itab looping

Former Member — Thu, 15 Jan 2009 13:01:42 GMT

Try this:

sort itab by a b c d.

loop at itab into wa_itab.

at end d.

sum.

if wa_itab-e > 0. " or compare with ur required threshold value'.

delete itab where a = wa_itab-a and b = wa_itab-b and c = wa_itab-c and d = wa_itab-d.

endif.

endat.

endloop.

Re: Problem with itab looping

SuhaSaha — Thu, 15 Jan 2009 13:05:36 GMT

Hello,


sort itab by a,b,c,d 
loop at itab based on sort key ( a,b,c,d)
at break in KEY sum all e for the records with the SAME KEY.
if sum(e) > 0.
remove this set from itab
else.
keep them
endloop.

You can try this code and check:


SORT itab BY a b c d.
LOOP AT itab INTO wa.
  wa1 = wa.
  v_sum_e = v_sum_e + wa-e.
  AT END OF d.
    IF v_sum_e > 0.
    ELSE.
      DELETE itab
      WHERE a = wa1-a AND b = wa1-b AND c = wa1-c AND d = wa1-d.
    ENDIF.
  ENDAT.
ENDLOOP.

Plz try & let us know.

BR,

Suhas

Re: Problem with itab looping

Pawan_Kesari — Thu, 15 Jan 2009 13:06:07 GMT

assuming you can add a new_field at the end of itab structure this is the logic.


sort itab by abcd.

loop at itab.

   at end of d. "assuming fields in structure are defined in sequence abcd
     sum.
     if e > 0 .
         modify table itab and set 'X' to new_field where key = abcd.
     endif.
   endat.
endloop.

delete itab where new_field = 'X'

Re: Problem with itab looping

Former Member — Thu, 15 Jan 2009 13:08:33 GMT

Hi Suker,

try it this way:

Loop at itab into wa.
  At end of d.
    Sum.
    w_sum = wa-e.
    If w_sum > 0.
      Delete itab where ...
    Endif.
  Endat.
Endloop.

With luck,

Pritam.

Re: Problem with itab looping

Former Member — Thu, 15 Jan 2009 13:28:28 GMT

Hi,

SORT itab BY a b c d.

LOOP AT itab INTO wa.

v_sum = v_sum + wa-e.

AT END OF d.

IF v_sum NE 0.

DELETE itab

WHERE a = wa-a AND b = wa-b AND c = wa-c AND d = wa-d.

ENDIF.

CLEAR v_sum.

ENDAT.

ENDLOOP.