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