At first I extend the structures BAPI_TE_MARA by my customer field ZZFORST (char 10), then I extend the structure BAPI_TE_MARAX by field ZZFORST (BAPIUPDATE).
Call of the fm:
********************************************************
********************************************************
TABLES:
BAPIMATHEAD, "Headerdata
BAPI_MARA, "Clientdata
BAPI_MARAX, "Clientdatax
BAPI_MARC, "Plantdata
BAPI_MARCX, "Plantdatax
BAPI_MAKT, "Material description
BAPIPAREX, "Extensionstruktur
BAPIPAREXX,
BAPIRET2. "Return messages
DATA:
BAPI_TE_MARA LIKE BAPI_TE_MARA,
BAPI_TE_MARAX LIKE BAPI_TE_MARAX,
V_FILE TYPE STRING.
********************************************************
********************************************************
*to store the output data
DATA:BEGIN OF it_material_number OCCURS 0.
INCLUDE STRUCTURE BAPIMATINR.
DATA:END OF it_material_number.
*for materialtext
DATA:BEGIN OF IT_MATERIALDESC OCCURS 0.
INCLUDE STRUCTURE BAPI_MAKT .
DATA:END OF IT_MATERIALDESC.
*für z-feld
DATA:BEGIN OF IT_BAPIPAREX OCCURS 0.
INCLUDE STRUCTURE BAPIPAREX.
DATA:END OF IT_BAPIPAREX.
*für z-feldx
DATA:BEGIN OF IT_BAPIPAREXX OCCURS 0.
INCLUDE STRUCTURE BAPIPAREXX.
DATA:END OF IT_BAPIPAREXX.
*to return messages
DATA:BEGIN OF IT_RETURN2 OCCURS 0.
INCLUDE STRUCTURE BAPIRET2.
DATA:END OF IT_RETURN2.
DATA:BEGIN OF IT_RETURN OCCURS 0.
INCLUDE STRUCTURE BAPIRET1.
DATA:END OF IT_RETURN.
********************************************************
********************************************************
BAPIMATHEAD-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.
BAPIMATHEAD-IND_SECTOR = 'S'.
BAPIMATHEAD-MATL_TYPE = 'ZRHD'.
BAPIMATHEAD-BASIC_VIEW = 'X'.
BAPIMATHEAD-PURCHASE_VIEW = 'X'.
BAPI_MARA-MATL_GROUP = 'RH01'.
BAPI_MARA-OLD_MAT_NO = '0815'.
BAPI_MARA-BASE_UOM = 'FM'.
BAPI_MARAX-MATL_GROUP = 'X'.
BAPI_MARAX-OLD_MAT_NO = 'X'.
BAPI_MARAX-BASE_UOM = 'X'.
BAPI_MARC-PLANT = '0100'.
BAPI_MARCX-PLANT = '0100'.
IT_MATERIALDESC-LANGU = 'DE'.
IT_MATERIALDESC-MATL_DESC = 'RH TEST-Material'.
APPEND IT_MATERIALDESC.
BAPI_TE_MARA-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.
BAPI_TE_MARA-ZZFORST = '0000704148'.
BAPI_TE_MARAX-MATERIAL = IT_MATERIAL_NUMBER-MATERIAL.
BAPI_TE_MARAX-ZZFORST = 'X'.
IT_BAPIPAREX-STRUCTURE = 'BAPI_TE_MARA'.
IT_BAPIPAREX-VALUEPART1 = BAPI_TE_MARA.
APPEND IT_BAPIPAREX.
IT_BAPIPAREXX-STRUCTURE = 'BAPI_TE_MARAX'.
IT_BAPIPAREXX-VALUEPART1 = BAPI_TE_MARAX.
APPEND IT_BAPIPAREXX.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = BAPIMATHEAD
CLIENTDATA = BAPI_MARA
CLIENTDATAX = BAPI_MARAX
PLANTDATA = BAPI_MARc
PLANTDATAX = BAPI_MARcx
IMPORTING
RETURN = IT_RETURN2
TABLES
MATERIALDESCRIPTION = IT_MATERIALDESC
EXTENSIONIN = IT_BAPIPAREX
EXTENSIONINX = IT_BAPIPAREXX.
Bluesky
