abap

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