MDK_INVENTORY_GETLIST.abap
******************************************** Begin of MDK_INVENTORY_GETLIST ******************************
FUNCTION MDK_INVENTORY_GETLIST.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" EXPORTING
*" VALUE(RETURN) TYPE BAPIRET2
*" TABLES
*" ET_INVENTORY STRUCTURE MDK_INVENTORY
*"----------------------------------------------------------------------
*{ INSERT FC5K900028 1
* Assumption:
*
* - All texts only in English, no extra text table
DATA:
ls_return LIKE bapireturn1.
CLEAR return.
SELECT COUNT(*) FROM mdk_inventory.
IF sy-subrc <> 0.
* - No data in table ZMDK_INVENTORY
call function 'BALW_BAPIRETURN_GET1'
exporting
type = 'I'
cl = 'MDK_EXAMPLES'
number = '001'
importing
bapireturn = ls_return.
MOVE-CORRESPONDING ls_return TO return.
EXIT.
ENDIF.
SELECT * FROM mdk_inventory INTO TABLE et_inventory.
*} INSERT
ENDFUNCTION.
******************************************** End of MDK_INVENTORY_GETLIST ******************************