MDK_INVENTORY_GETDETAIL.abap
******************************************** Begin of MDK_INVENTORY_GETDETAIL ******************************
*{ INSERT FC5K900028 1
*
*} INSERT
FUNCTION MDK_INVENTORY_GETDETAIL.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" VALUE(IV_PRODUCTID) TYPE MDK_INVENTORY-PRODUCTID
*" EXPORTING
*" VALUE(ES_INVENTORY) TYPE MDK_INVENTORY
*" VALUE(RETURN) TYPE BAPIRET2
*"----------------------------------------------------------------------
*{ INSERT FC5K900028 1
DATA: ls_return type bapireturn1.
CLEAR return.
SELECT SINGLE * FROM mdk_inventory
INTO es_inventory
WHERE productid = iv_productid.
IF sy-subrc <> 0.
* - Person not found (Persnumber = &)
ls_return-message_v1 = iv_productid.
call function 'BALW_BAPIRETURN_GET1'
exporting
type = 'E'
cl = 'MDK_EXAMPLES'
number = '002'
par1 = ls_return-message_v1
importing
bapireturn = ls_return.
MOVE-CORRESPONDING ls_return TO return.
EXIT.
ENDIF.
*} INSERT
ENDFUNCTION.
******************************************** End of MDK_INVENTORY_GETDETAIL ******************************