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 ******************************