REPORT Z.

DATA : GOODSMVT_HEADER  LIKE TABLE OF BAPI2017_GM_HEAD_01 WITH HEADER LINE.

DATA : GOODSMVT_CODE  LIKE TABLE OF BAPI2017_GM_CODE WITH HEADER LINE.

DATA : GOODSMVT_ITEM LIKE TABLE OF BAPI2017_GM_ITEM_CREATE WITH HEADER LINE.

DATA : RETURN LIKE TABLE OF BAPIRET2 WITH HEADER LINE.

GOODSMVT_HEADER-PSTNG_DATE = '20080629'.

GOODSMVT_HEADER-DOC_DATE = '20080629'.

APPEND GOODSMVT_HEADER.

GOODSMVT_CODE-GM_CODE = '06'.

APPEND GOODSMVT_CODE.

GOODSMVT_ITEM-MATERIAL = '11000000001'.

GOODSMVT_ITEM-PLANT  = '1200'.

GOODSMVT_ITEM-STGE_LOC = '2010'.

GOODSMVT_ITEM-MOVE_TYPE = '551'.

GOODSMVT_ITEM-ENTRY_QNT = '6'.

GOODSMVT_ITEM-ENTRY_UOM = 'KG'.

GOODSMVT_ITEM-PROFIT_CTR = '120001'.

GOODSMVT_ITEM-COSTCENTER = '1200010101'.

APPEND GOODSMVT_ITEM.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'

  EXPORTING

    GOODSMVT_HEADER               = GOODSMVT_HEADER

    GOODSMVT_CODE                 = GOODSMVT_CODE

*   TESTRUN                       = ' '

*   GOODSMVT_REF_EWM              =

* IMPORTING

*   GOODSMVT_HEADRET              =

*   MATERIALDOCUMENT              =

*   MATDOCUMENTYEAR               =

  TABLES

    GOODSMVT_ITEM                 = GOODSMVT_ITEM

*   GOODSMVT_SERIALNUMBER         =

    RETURN                        = RETURN

*   GOODSMVT_SERV_PART_DATA       =

*   EXTENSIONIN                   =

          .

          LOOP AT RETURN.

          WRITE : RETURN-TYPE,

RETURN-ID,

RETURN-NUMBER,

RETURN-MESSAGE,

RETURN-LOG_NO,

RETURN-LOG_MSG_NO ,

RETURN-MESSAGE_V1 ,

RETURN-MESSAGE_V2 ,

RETURN-MESSAGE_V3 ,

RETURN-MESSAGE_V4 ,

RETURN-PARAMETER,

RETURN-ROW,

RETURN-FIELD,

RETURN-SYSTEM.

ENDLOOP.