topic Re: loop at itab in Application Development and Automation Discussions

loop at itab

Former Member — Sun, 09 Jul 2006 11:51:29 GMT

LOOP AT imard ASSIGNING <ls_mard>.

LOOP AT is033 ASSIGNING <ls_s033>

where matnr = <ls_mard>-matnr

and lgort = <ls_mard>-lgort.

here i get 4 rows and i want to take the highest date(sptag) mzubb

magbb for each matnrand calc the menge.

ENDLOOP.

Re: loop at itab

Former Member — Sun, 09 Jul 2006 12:10:37 GMT

Hello,

sort itab by date in ascending order, read the first record.

Regards,

Vasavi.k

Re: loop at itab

Former Member — Sun, 09 Jul 2006 12:12:18 GMT

before doing this append another itab same structure has imard or is033 based on data mzubb magbb.. apend the itab.

sort the itab.based on sptag,,,and mzubb

LOOP AT imard ASSIGNING <ls_mard>.

LOOP AT is033 ASSIGNING <ls_s033>

where matnr = <ls_mard>-matnr

and lgort = <ls_mard>-lgort.

ENDLOOP.

Re: loop at itab

ferry_lianto — Sun, 09 Jul 2006 12:14:24 GMT

Hi Rani,

Please sort internal table IS033 with MATNR and LGORT (ASCENDING) and SPTAG, MZUBB and MAGBB (DESCENDING) prior to looping statement.

Then you use control break processing to get the highest date for SPTAG MZUBB and MAGBB when looping IS033.

AT NEW SPTAG.

...

ENDAT.

Hope this will give you an idea.

Regards,

Ferry Lianto

Re: loop at itab

Former Member — Sun, 09 Jul 2006 12:24:56 GMT

Hi Rani,

Is your requirement somenthing like this.

Consider this code.


REPORT zzarun_1.
DATA :imard TYPE STANDARD TABLE OF mard WITH HEADER LINE,
      is033 TYPE STANDARD TABLE OF s033 WITH HEADER LINE.

FIELD-SYMBOLS : <ls_mard> TYPE mard,
                <ls_s033> TYPE s033.

<b>*Declare two Internal Tables</b>
DATA : itemp  LIKE is033 OCCURS 0,  "Holding four records
       ifinal LIKE is033 OCCURS 0.  "Holding final data

LOOP AT imard ASSIGNING <ls_mard>.
  LOOP AT is033 ASSIGNING <ls_s033> WHERE matnr = <ls_mard>-matnr
                                      AND lgort = <ls_mard>-lgort.


    APPEND <ls_s033> TO itemp.

  ENDLOOP.


*Take the row with highest date (sptag)
  SORT itemp BY sptag .
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

*Take the row with highest mzubb
  SORT itemp BY mzubb.
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

*Take the row with highest magbb
  SORT itemp BY magbb.
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

  "In internal table IFINAL you have the required data
  "Do your processing(Calculation)  here.


<b>*After processing dont forget to refresh the Internal tables</b>

  CLEAR   : itemp, ifinal.
  REFRESH : itemp, ifinal.

ENDLOOP.

Regards,

Arun Sambargi.

Re: loop at itab

Manohar2u — Sun, 09 Jul 2006 12:26:10 GMT

Can also try in this way, ( might possible )

sort is033 by sptag.
LOOP AT imard ASSIGNING <ls_mard>.
read table is033 with key marnt = matnr = <ls_mard>-matnr
and lgort = <ls_mard>-lgort.
if sy-subrc = 0.
you will get the first record which should be highest date.
endif.
endloop.

Regds

Manohar

Re: loop at itab

Former Member — Sun, 09 Jul 2006 12:33:30 GMT

arun nice answer thsnks.

i need to update is033-zlbkum every line that i have in is033.

the calc is

zlbkum = end_qty - magbb.

Re: loop at itab

Former Member — Sun, 09 Jul 2006 12:57:04 GMT

Hi Rani,

Is this OK.



REPORT zzarun_1.
DATA :imard TYPE STANDARD TABLE OF mard WITH HEADER LINE,
      is033 TYPE STANDARD TABLE OF s033 WITH HEADER LINE.

FIELD-SYMBOLS : <ls_mard> TYPE mard,
                <ls_s033> TYPE s033.

*Declare two Internal Tables
DATA : itemp  LIKE is033 OCCURS 0,  "Holding four records
       ifinal LIKE is033 OCCURS 0.  "Holding final data

LOOP AT imard ASSIGNING <ls_mard>.
  LOOP AT is033 ASSIGNING <ls_s033> WHERE matnr = <ls_mard>-matnr
                                      AND lgort = <ls_mard>-lgort.

*Substract here befor appending

    <b><ls_s033>-zlbkum =  <ls_s033>-end_qty - <ls_s033>-magbb.</b>

    APPEND <ls_s033> TO itemp.

  ENDLOOP.


*Take the row with highest date (sptag)
  SORT itemp BY sptag .
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

*Take the row with highest mzubb
  SORT itemp BY mzubb.
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

*Take the row with highest magbb
  SORT itemp BY magbb.
  READ TABLE itemp ASSIGNING <ls_s033> INDEX 1.
  APPEND <ls_s033> TO ifinal.

  "In internal table IFINAL you have the required data
  "Do your processing(Calculation)  here.


*After processing dont forget to refresh the Internal tables

  CLEAR   : itemp, ifinal.
  REFRESH : itemp, ifinal.

ENDLOOP.

Regards,

Arun S.

Message was edited by: Arun Sambargi

Re: loop at itab

Former Member — Sun, 09 Jul 2006 13:16:09 GMT

I know the loop at where statement has been improved quite a bit but for runtime considerations I would still suggest that you use a sorted table and use read table with key -- instead of the inner loop at itab where

(see one of the previous posts).

This might have very little impact if the table has just a few rows but can be quite different if each table has around 300,000 rows...

Enjoy