topic Re: simple QA in Application Development and Automation Discussions

simple QA

Former Member — Sun, 09 Jul 2006 18:28:03 GMT

data : z_cnt like s033-magbb,

z_cnt_mz like s033-mzubb,

z_sum like s033-mzubb.

LOOP AT imard ASSIGNING <ls_mard>.

clear z_cnt.

clear z_cnt_mz.

clear z_sum.

LOOP AT is033 ASSIGNING <ls_s033>

WHERE matnr = <ls_mard>-matnr

AND lgort = <ls_mard>-lgort.

z_cnt = z_cnt + <ls_s033>-magbb .

z_cnt_mz = z_cnt_mz + <ls_s033>-mzubb.

z_sum = z_cnt - z_cnt_mz.

is033_b = <ls_s033>.

is033_b-zlbkum = <ls_mard>-e_stock + z_sum.

APPEND is033_b.

ENDLOOP.

SORT is033_b BY sptag matnr lgort.

<b>****i need to update min max for matnr per lgort in imard

****i need to update avrage num lines + 2</b> ENDLOOP.

Re: simple QA

Manohar2u — Sun, 09 Jul 2006 18:46:50 GMT

To update min max for matnr per lgort in imard

Assume that is033_b table has all the totals per matnr and lgort, then

Loop at imard.

Based on the unique records you can use AT NEW control statement here.

AT NEW of matnr or lgort. 
sort is033_b by zlbkum lgort matnr ascending.

read table is033_b with key matner = imard-matnr
                            lgort  = imard-lgort.
if sy-subrc = 0
i_mard-min = is033_b-zlbkum.
endif.

sort is033_b by zlbkum lgort matnr descending.
read table is033_b with key matner = imard-matnr
                            lgort  = imard-lgort.
if sy-subrc = 0
i_mard-max = is033_b-zlbkum.
endif.

modify imard index sy-tabix.

endat.
endloop.

Regds

Manohar