data : l_labst like mard-labst,
g_labst like mard-labst,
h_labst like mard-labst,
i_labst like mard-labst.
loop at it_mard into st_mard.
loop at it_batch into st_batch where matnr = st_mard-matnr.
at new charg .
sum.
check st_batch-charg = s_quan.
if sy-subrc <> 0.
WRITE:/ 'stock not availabale'.
endif.
move st_batch-charg to l_labst.
endat.
endloop.
endloop.
g_labst = ( 45 * l_labst ) / 100.
h_labst = ( 45 * l_labst ) / 100.
i_labst = ( 45 * l_labst ) / 100.
is this correct