Report for showing pending (ageing) quantity according to store location w

Question

dear ABAP Gurus,
I have made a roport for showing pending (ageiing) quantity acc to location wise.
and i m sending here the code i made for same.Tell me if sme amendments required.
Report for showing pending (ageing) quantity according to store location wise:   
1.     Fields on selection screen (input screen) : Plant code From to , Material code From to , Current date, Numbers of days(for display the ageing(pending) balance for a given period,Storage locations from to.
2.     Field in the output List : Material code , Material descriptions, Balance quantiy,Balance value ,Consumptions date. 
the code is:
REPORT  ZAGEIN_SUDHA.
TABLES: mara,mseg,makt.
TYPES: BEGIN OF t_mara,
matnr LIKE mara-matnr,           "material number
maktx LIKE makt-maktx,           "material description
ersda LIKE mara-ersda,           "material creation date
lgort like mseg-lgort,           "storage location
bwart like mseg-bwart,           "goods received or issued
menge like mseg-menge,           "value at movement type
werks like mseg-werks,           "plant
END OF t_mara.
DATA: i_mara TYPE STANDARD TABLE OF t_mara with header line,
      itab type standard table of mara with header line,
*wa_mara TYPE t_mara,
v_date TYPE i,                      "age in days
GI type mseg-menge,                 "goods issued
GR type mseg-menge,                 "goods received
bal type mseg-menge,                "balance
total type i,
grace type i,
g_quan type mseg-menge.
SELECTION-SCREEN BEGIN OF BLOCK b1.
SELECT-OPTIONS: p_matnr FOR mara-matnr.
select-options: p_werks for mseg-werks.
select-options: p_lgort for mseg-lgort.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
REFRESH i_mara.
SELECT mr~matnr                        "mara-matnr
mk~maktx                               "makt-maktx
mr~ersda                               "mara-ersda
mg~lgort                               "mseg-lgort
mg~bwart                               "mseg-bwart
mg~menge                               "mseg-menge
INTO corresponding fields of table i_mara
FROM mara AS mr INNER JOIN
makt AS mk
ON mrmatnr = mkmatnr INNER JOIN mseg AS mg on mkmatnr = mgmatnr
WHERE mrmatnr IN p_matnr and mgwerks IN p_werks and mg~lgort IN
p_lgort.
total = 0.
IF sy-subrc = 0.
*CLEAR wa_mara.
LOOP AT i_mara.
if i_mara-bwart = '101' .
GR = total + i_mara-menge.
total = GR.
elseif
i_mara-bwart = '102' or i_mara-bwart = '122'.
GR = GR - i_mara-menge.
endif.
if i_mara-bwart = '261'.
GI = total + i_mara-menge.
elseif i_mara-bwart = '262'.
GR = GR + i_mara-menge.
endif.
bal = GR - GI.
if bal GE  GR.
grace = 30.
else.
grace = 10.
endif.
g_quan = bal - GR.
v_date = sy-datum - i_mara-ersda.
endloop.
WRITE: / i_mara-matnr ,i_mara-maktx,' is ',v_date,' ,days old  and
stored at' ,i_mara-lgort ,   ' with balance =', bal ,'the grace time is
', grace, 'and' ,'grace quantity is ' ,g_quan.
*ENDLOOP.

Answer 1

Hi,
That sounds like a nice report.  What about it?!
Gareth.