MDK_INVENTORY_MODIFY.abap
******************************************** Begin of MDK_INVENTORY_MODIFY ******************************
FUNCTION MDK_INVENTORY_MODIFY .
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(IS_INVENTORY) TYPE MDK_INVENTORY
*" EXPORTING
*" VALUE(EV_PRODUCTID) TYPE MDK_INVENTORY-PRODUCTID
*" VALUE(RETURN) TYPE BAPIRET2
*"----------------------------------------------------------------------
*{ INSERT FC5K900028 1
DATA: ls_return TYPE bapireturn1,
lv_msgvar type SYMSGV.
CLEAR return.
* Assumption: productid not created yet
is_inventory-changedate = sy-datum.
is_inventory-changeuser = sy-uname.
is_inventory-changetime = sy-uzeit.
update mdk_inventory FROM is_inventory.
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 created successfully
ls_return-message_v1 = is_inventory-productid.
ev_productid = is_inventory-productid.
CALL FUNCTION 'BALW_BAPIRETURN_GET1'
EXPORTING
type = 'S'
cl = 'MDK_EXAMPLES'
number = '004'
par1 = ls_return-message_v1
IMPORTING
bapireturn = ls_return.
MOVE-CORRESPONDING ls_return TO return.
*} INSERT
ENDFUNCTION.
******************************************** End of MDK_INVENTORY_MODIFY ******************************