topic Re: LOOP situation in Application Development and Automation Discussions

LOOP situation

Former Member — Wed, 18 Oct 2006 10:11:52 GMT

Hello experts,

Could you help me with this.

Here's the scenario:

col1 col2

AA 01

AA 00

AA 01

BB 00

BB 01

BB 00

I wanted to know how many 01s and 00s per column 1. so in that scenario.. the result should be:

AA 2 1

BB 1 2

Column2: for all 01

Column3: for all 00

Thanks in advance..

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:17:50 GMT

Hope this helps - I've not tested it but it should work you just need to declare the count variables.

Kind regards

Andy


SORT itab BY col1 col2
LOOP AT itab.

  IF itab-col2 = '00'.
    count_0 = count_0 + 1.
  ELSEIF itab-col2 = '01'.
    count_1 = count_0 + 1.

  AT END col1.
    WRITE: /itab-col1, count_1, count_2.
    count_0 = 0.
    count_1 = 0.
  ENDAT.
ENDLOOP.

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:18:22 GMT

Hi Lana,

try it with collect.

copy your internal table to itab1 an add

a field like I type I.

loop at itab.

itab1 = itab.

itab1-i = 1.

collect itab1.

endloop.

in Itab1 you get your Information.

Regards, Dieter

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:22:09 GMT

define itab with fields col1 cnt0 cnt1.

itable->is the internal table with your data.

sort itable.

Loop at itable.

at new col1.

clear : lcnt0, lcnt1.

endat.

if itable-col2 = '00'.

add 1 to lcnt0.

elseif itable-col2 = '01'.

add 1 to lcnt1.

endif.

at end of col1.

move itable-col1 to itab-col1.

move lcnt0 to itab-cnt0.

move lcnt1 to itab-cnt1.

append itab.

endat.

Endloop.

itab has the data you require

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:23:19 GMT

Hi,

Pl find eg below.

LOOP AT internal table .

l_count = l_count + 1.

at end of column 1 .

sum.

on change of internal table- column 1.

endon.

endat.

ENDLOOP.

Pl reward if it helps.

Cheers.

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:33:35 GMT

Hi,

follow below logic.

sort itab by col1.

data:begin of itab1 occurs 0 ,

col1(2) type c,

count00 type i,

count01 type i,

end of itab1.

loop at itab.

at new col1.

clear lv_cnt,lv_cnt1.

endat.

if itab-col2 = '00'

lv_cnt = lv_cnt + 1.

elseif itab-col2 = '01'

lv_cnt1 = lv_cnt1 + 1.

endif.

. at end of col1.

itab1-col1 = itab-col1.

itab1-count00 = lv_cnt.

itab1-count01 = lv_cnt1.

append itab1.

clear itab1.

endat.

endloop.

loop at itab1.

write:itab1.

endloop.

itab1 will have output

AA 2 1

BB 1 2

Regards

amole

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 10:39:29 GMT

check this code it may help u.

report z_example.

data:begin of itab occurs 0,

col1(3) type c,

col2(3) type c,

end of itab.

data:begin of itab1 occurs 0,

col1(3) type c,

count1 type i,

count2 type i,

end of itab1.

itab-col1 = 'AA'.

itab-col2 = '01'.

append itab.

itab-col1 = 'AA'.

itab-col2 = '00'.

append itab.

itab-col1 = 'AA'.

itab-col2 = '01'.

append itab.

itab-col1 = 'BB'.

itab-col2 = '01'.

append itab.

itab-col1 = 'BB'.

itab-col2 = '00'.

append itab.

sort itab by col1.

loop at itab.

at new col1.

itab1-col1 = itab-col1.

endat.

if itab-col2 = '01'.

itab1-count1 = itab1-count1 + 1.

elseif itab-col2 = '00'.

itab1-count2 = itab1-count2 + 1.

endif.

at end of col1.

append itab1.

clear itab1.

endat.

endloop.

loop at itab1.

write:/ itab1-col1,itab1-count1,itab1-count2.

endloop.

Regards

Re: LOOP situation

Former Member — Wed, 18 Oct 2006 11:38:40 GMT

Hi,

Below is the source code for this scenario.

Maintain swap internal table and also Counts internal table as shown in the below source code.

report abc.

data:

v_count type i,

v_tabix type sy-tabix.

*-- Actual Data

data:begin of it_actual occurs 0,

f1(3) type c,

f2(3) type c,

end of it_actual.

*-- Swap Actual Data

data:begin of it_swap occurs 0,

f1(3) type c,

f2(3) type c,

end of it_swap.

*-- Holds Counts for sorted data

data:begin of it_sort occurs 0,

col1(3) type c,

col2(3) type c,

count type i,

end of it_sort.

start-of-selection.

*-- Append Test Data

perform append.

*-- Sort Data

perform sort.

&----

*& Form append

&----

text

----

--> p1 text
<-- p2 text

----

FORM append .

it_actual-f1 = 'AA'.

it_actual-f2 = '01'.

append it_actual.

it_actual-f1 = 'AA'.

it_actual-f2 = '00'.

append it_actual.

it_actual-f1 = 'AA'.

it_actual-f2 = '01'.

append it_actual.

it_actual-f1 = 'BB'.

it_actual-f2 = '00'.

append it_actual.

it_actual-f1 = 'BB'.

it_actual-f2 = '01'.

append it_actual.

it_actual-f1 = 'BB'.

it_actual-f2 = '00'.

append it_actual.

*-- Your actual format

loop at it_actual.

write:/ it_actual-f1, it_actual-f2.

endloop.

skip 2.

*-- Populate other table which swaps the fields

loop at it_actual.

it_swap-f1 = it_actual-f2.

it_swap-f2 = it_actual-f1.

append it_swap.

clear it_swap.

endloop.

ENDFORM. " append

&----

*& Form sort

&----

text

----

--> p1 text
<-- p2 text

----

FORM sort .

*-- Sort as per requirement

sort it_swap by f1 f2.

loop at it_swap.

write:/ it_swap-f1, it_swap-f2.

endloop.

loop at it_swap.

*-- Populate Loop index

v_tabix = sy-tabix.

at new f2.

*-- Initialize counter

clear v_count.

endat.

*-- Add counter

v_count = v_count + 1.

at end of f2.

*-- Read to avoid STARS

read table it_swap index v_tabix.

*-- Append other table

it_sort-col1 = it_swap-f2.

it_sort-col2 = it_swap-f1.

it_sort-count = v_count.

append it_sort.

clear it_sort.

endat.

endloop.

*-- Now you have the below Internal table which holds counts

skip 2.

loop at it_sort.

write: / it_sort-col1, it_sort-col2, it_sort-count.

endloop.

*-- You can sort this again to have the proper output

skip 2.

sort it_sort by col1 col2.

loop at it_sort.

v_tabix = sy-tabix.

at new col1.

write: / it_sort-col1.

endat.

at end of col2.

read table it_sort index v_tabix.

write: it_sort-count.

endat.

endloop.

ENDFORM. " sort

Re: LOOP situation

Former Member — Thu, 19 Oct 2006 02:36:39 GMT

Hi anurag,

thanks.. that was a very helpful tip..

btw, we are trying to eliminate the use of AT NEW and in the coding.. instead were using ON CHANGE OF and ENDON to close the statement..

I wonder wat could be the alternate for:

AT NEW (ON CHANGE OF)

ENDAT (ENDON)

AT END ???

thanks.

Re: LOOP situation

Former Member — Thu, 19 Oct 2006 06:33:29 GMT

Hi,

data:begin of itab occurs 0,

cl1(2) type c,

cl2(2) type c,

end of itab.

data:begin of itab2 occurs 0,

cl1(2) type c,

ca0 type i,

ca1 type i,

end of itab2.

data:ca0 type i value 0,ca1 type i value 0,

count type i value 0.

itab-cl1 = 'AA'.

itab-cl2 = '01'.

append itab.

itab-cl1 = 'AA'.

itab-cl2 = '00'.

append itab.

itab-cl1 = 'AA'.

itab-cl2 = '01'.

append itab.

itab-cl1 = 'BB'.

itab-cl2 = '00'.

append itab.

itab-cl1 = 'BB'.

itab-cl2 = '01'.

append itab.

itab-cl1 = 'BB'.

itab-cl2 = '00'.

append itab.

<b>sort itab.

loop at itab.

on change of itab-cl1.

clear: ca0,ca1,count.

endon.

if itab-cl2 = '00'.

ca0 = ca0 + 1.

else.

ca1 = ca1 + 1.

endif.

perform outdata.

endloop.</b>

&----

*& Form outdata

&----

text

----

--> p1 text
<-- p2 text

----

form outdata .

if count > 0.

if itab2-cl1 <> itab-cl1.

itab2-cl1 = itab-cl1.

itab2-ca0 = ca0.

itab2-ca1 = ca1.

append itab2.

else.

itab2-cl1 = itab-cl1.

itab2-ca0 = ca0.

itab2-ca1 = ca1.

append itab2.

write:/ itab2-cl1,itab2-ca0,itab2-ca1.

endif.

count = count + 1.

endform. " outdata

Please do reward points if it solves your problem

Regards,

Sowjanya

Re: LOOP situation

Former Member — Thu, 19 Oct 2006 06:49:11 GMT

or in simple way without using any control breaks

loop at itab.

if itab-cl1 = 'AA'.

if itab-cl2 = '00'.

ca0 = ca0 + 1.

else.

ca1 = ca1 + 1.

endif.

else.

if itab-cl2 = '00'.

cb0 = cb0 + 1.

else.

cb1 = cb1 + 1.

endif.

endloop.

Regards,

Sowjanya

Re: LOOP situation

Former Member — Thu, 19 Oct 2006 08:18:34 GMT

To replicate the END AT you will need to record the relevant column data on each iteration of the loop. Then on the next iteration you can compare the current field with the last one to see if they have changed. Something like the following:


DATA:
  tmp_field TYPE itab-col1.

LOOP AT itab.
* This is like AT END
  IF tmp_field <> itab-col1 AND
     NOT tmp_field IS INITIAL.

*   Do stuff here...
  END IF.
  tmp_field = itab-col1.
ENDLOOP.

However, why are you trying to eliminate the AT control breaks and replace them with ON CHANGE OF? As I understand it, SAP do not recommend using ON CHANGE OF for two reasons:

1. It does not work with ABAP objects.

2. It can produce unpredicatable results when used within a Loop structure. The following is extracted from the SAP online help:

"There are special control structures for processing control breaks in LOOP s on internal tables or extract datasets (AT).

ON CHANGE OF is unsuitable for recognizing control levels in loops of this type because it always creates a global auxiliary field which is used to check for changes. This global auxiliary field is only changed in the relevant ON CHANGE OF statement. It is not reset when the processing enters loops or subroutines, so unwanted effects can occur if the loop or subroutine is executed again. Also, since it is set to its initial value when created (like any other field), any ON CHANGE OF processing will be executed after the first test, unless the contents of the field concerned happen to be identical to the initial value. "

Hope this helps

Andy

Re: LOOP situation

Former Member — Thu, 19 Oct 2006 09:00:12 GMT

I would advice you to use AT events rather than ON CHANGE, as they are now obselte. But in case you still wish to use them here is the code.

sort itable.

read table itable index 1.

Loop at itable.

if itable-col2 = '00'.

lcnt0 = lcnt0 + 1.

elseif itable-col2 = '01'.

lcnt1 = lcnt1 + 1.

endif.

on change of itable-col1 or itable-col2.

move itable-col1 to itab-col1.

move lcnt0 to itab-cnt0.

move lcnt1 to itab-cnt1.

append itab.

endon.

Endloop.

Message was edited by: Anurag Bankley