topic Re: Please help with LOOP...WHERE in dynamic internal table in Application Development and Automation Discussions

Please help with LOOP...WHERE in dynamic internal table

former_member5350 — Wed, 25 Jul 2007 12:20:53 GMT

Hi friends,

i have a problem with the following:

i have an internal table <dyn_table> created dynamically with a column 'aaa'.

Now, in this column are groupid's are stored like

Now what i want to do is to loop at <dyn_table> but only within the same group, so i would loop where 'aaa' = 2. After that where 'aaa' = 3.

How to achieve that with dynamic internal tables ?

Thank you, i will be fast with assigning points!

Clemens

Re: Please help with LOOP...WHERE in dynamic internal table

Former Member — Wed, 25 Jul 2007 12:25:15 GMT

Check this

Dynamic internal table is internal table that we create on the fly with flexible column numbers.

For sample code, please look at this code tutorial. Hopefully it can help you

Check this link:

http://www.saptechnical.com/Tutorials/ABAP/DynamicInternaltable/DynamicInternalTable.htm

<b>Reward points for useful Answers</b>

Regards

Anji

Re: Please help with LOOP...WHERE in dynamic internal table

Former Member — Wed, 25 Jul 2007 12:25:17 GMT

check below code....

DATA: l_cnt(2) TYPE n,

l_cnt1(3) TYPE n,

l_nam(12),

l_con(18) TYPE c,

l_con1(18) TYPE c,

lf_mat TYPE matnr.

SORT it_bom_expl BY bom_comp bom_mat level.

CLEAR: l_cnt1, <fs_dyn_wa>.

Looping the component internal table

LOOP AT it_bom_expl INTO gf_it_bom_expl.

CLEAR: l_cnt1.

AT NEW bom_comp.

CLEAR: l_cnt, <fs_dyn_wa>, lf_mat.

For every new bom component the material data is moved to
temp material table which will be used for assigning the levels
checking the count

it_mat_temp[] = it_mat[].

Component data is been assigned to the field symbol which is checked
against the field of dynamic internal table and the value of the
component number is been passed to the dynamic internal table field
value.

ASSIGN COMPONENT c_comp_list OF STRUCTURE <fs_dyn_wa> TO

<fs_check>.

<fs_check> = gf_it_bom_expl-bom_comp.

ENDAT.

AT NEW bom_mat.

CLEAR l_con.

ENDAT.

lf_mat = gf_it_bom_expl-bom_mat.

Looping the temp internal table and looping the dynamic internal table

*by reading line by line into workarea, the materialxxn is been assigned

to field symbol which will be checked and used.

LOOP AT it_mat_temp.

l_nam = c_mat.

l_cnt1 = l_cnt1 + 1.

CONCATENATE l_nam l_cnt1 INTO l_nam.

LOOP AT <fs_dyn_table2> ASSIGNING <fs_dyn_wa2>.

ASSIGN COMPONENT l_nam OF STRUCTURE <fs_dyn_wa2> TO <fs_xy>.

ENDLOOP.

IF <fs_xy> = lf_mat.

CLEAR lf_mat.

l_con1 = l_con.

ENDIF.

Checking whether the material exists for a component and if so it is
been assigned to the field symbol which is checked against the field
of dynamic internal table and the level of the component number
against material is been passed to the dynamic internal table field
value.

IF <fs_xy> = gf_it_bom_expl-bom_mat.

ASSIGN COMPONENT l_nam OF STRUCTURE <fs_dyn_wa> TO <fs_check>.

CLEAR l_con.

MOVE gf_it_bom_expl-level TO l_con.

CONCATENATE c_val_l l_con INTO l_con.

CONDENSE l_con NO-GAPS.

IF l_con1 NE space.

CONCATENATE l_con1 l_con INTO l_con SEPARATED BY c_comma.

CLEAR l_con1.

l_cnt = l_cnt - 1.

ENDIF.

<fs_check> = l_con.

l_cnt = l_cnt + 1.

ENDIF.

ENDLOOP.

AT END OF bom_comp.

At end of every new bom component the count is moved to the field
symbol which is checked against the field of dynamic internal table
and the count is been passed to the dynamic internal table field
value.

ASSIGN COMPONENT c_count OF STRUCTURE <fs_dyn_wa> TO <fs_check>.

<fs_check> = l_cnt.

INSERT <fs_dyn_wa> INTO TABLE <fs_dyn_table>.

ENDAT.

ENDLOOP.

Re: Please help with LOOP...WHERE in dynamic internal table

former_member5350 — Wed, 25 Jul 2007 14:12:49 GMT

Hi Ramesh,

thank you, but i do not really get the point how to solve the issue out of your sample.

the lack really is, that i cannot use where clause in dynamic internal table - so how could i solve the problem ?

clemens

Re: Please help with LOOP...WHERE in dynamic internal table

Former Member — Wed, 25 Jul 2007 14:18:23 GMT

Hi clemens,

try something like this

field-symbols : <FS> type any.

loop at <ITAB> ASSIGNING <WA_ITAB>.

 DO.
   ASSIGN COMPONENT 'AAA' OF STRUCTURE <WA_ITAB> TO <FS>.
   IF SY-SUBRC NE 0.
       EXIT.
    ENDIF.
   CASE <FS>.
       WHEN '2'.

            * do something

        WHEN '3'.

                  * do something
   ENDCASE.
ENDDO.

ENDLOOP.

Re: Please help with LOOP...WHERE in dynamic internal table

former_member5350 — Thu, 26 Jul 2007 08:31:34 GMT

Hi, what i have is:


  READ TABLE <dyn_table> INTO <dyn_wa> INDEX 1.
  ASSIGN COMPONENT 'CLSID' OF STRUCTURE <dyn_wa> TO <dyn_field_g>.
  grpid = <dyn_field_g>.
  ze = 1.
  LOOP AT <dyn_table> INTO <dyn_wa> FROM ze.
    ASSIGN COMPONENT 'CLSID' OF STRUCTURE <dyn_wa> TO <dyn_field>.
    IF <dyn_field> = grpid.
      WRITE:/ <dyn_field>.
      WRITE: grpid.
      ze = ze + 1.
    ELSE.
*      ze = ze - 1.
      READ TABLE <dyn_table> INTO <dyn_wa> INDEX ze.
      ASSIGN COMPONENT 'CLSID' OF STRUCTURE <dyn_wa> TO <dyn_field_g>.
      grpid = <dyn_field_g>.
    ENDIF.
  ENDLOOP.

What i want to achieve is, that when the CLSID changes, it does loop only within the rows that have same CLSID. If it is finished with the loop, it should go to the next row ( which has the different CLSID ) and loop within this group.

Where am I wrong ?

Re: Please help with LOOP...WHERE in dynamic internal table

Former Member — Thu, 26 Jul 2007 10:03:54 GMT

SORT <dyn_table> BY (filename). <------dynamic.

LOOP AT <dyn_table> INTO <dyn_wa>.

ASSIGN COMPONENT (filename) OF <dyn_wa> TO <dyn_field>.

IF <dyn_field> IS ASSIGNED.

IF <dyn_field> EQ <last_val> OR SY-INDEX EQ 1.

WRITE:/ <dyn_field>.

ESLE.

WRITE:/ 'New group'

WRITE:/ <dyn_field>.

ENDIF.

<last_val> = <dyn_field>

ENDLOOP.

Regards,

A.Singh