PAI Module code
data: lwa_vbap like line of xvbap.
data: lv_counter type vbap-posnr.
case sy-ucomm.
WHEN 'QNTY'.
loop at xvbap into lwa_vbap.
lv_counter = lv_counter + 1.
lwa_vbap-posnr = lv_counter.
lwa_Vbap-kwmeng = 1000.
modify xvbap from lwa_vbap index sy-tabix TRANSPORTING posnr kwmeng."pvpos kwmeng.
endloop.
ENDCASE.