MDK_INVENTORY_DELETE.abap
******************************************** Begin of MDK_INVENTORY_DELETE ******************************
FUNCTION MDK_INVENTORY_DELETE.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(IV_PRODUCTID) TYPE MDK_INVENTORY-PRODUCTID
*" EXPORTING
*" VALUE(RETURN) TYPE BAPIRET2
*"----------------------------------------------------------------------
*{ INSERT FC5K900028 1
DATA: ls_return type bapireturn1,
lv_msgvar type symsgv.
CLEAR return.
DELETE FROM mdk_inventory WHERE productid = iv_productid.
IF sy-subrc <> 0.
move sy-subrc to lv_msgvar.
* - DB update failed (Error code = <sy-subrc>)
CALL FUNCTION 'BALW_BAPIRETURN_GET1'
EXPORTING
type = 'E'
cl = 'MDK_EXAMPLES'
number = '002'
par1 = lv_msgvar
IMPORTING
bapireturn = ls_return.
MOVE-CORRESPONDING ls_return TO return.
EXIT.
ENDIF.
COMMIT WORK.
* - Product &1 deleted successfully
ls_return-message_v1 = iv_productid.
call function 'BALW_BAPIRETURN_GET1'
exporting
type = 'S'
cl = 'MDK_EXAMPLES'
number = '005'
par1 = ls_return-message_v1
importing
bapireturn = ls_return.
MOVE-CORRESPONDING ls_return TO return.
*} INSERT
ENDFUNCTION.
******************************************** End of MDK_INVENTORY_DELETE ******************************