FORM MAINTAIN_UPC.
* Clear all the structures and move the required values
* in the structures to pass to function module
  CLEAR : I_HEADDATA, I_CLIENTDATA,
          I_UOM, I_UOMX, I_EAN, I_RETURN.

  REFRESH : I_UOM, I_UOMX, I_EAN.

  I_HEADDATA-MATERIAL     = S1000_MATNR.
  I_HEADDATA-BASIC_VIEW = 'X'.

  I_CLIENTDATA-BASE_UOM = MARA-MEINS.
*
  I_UOM-ALT_UNIT =  MARM-MEINH.
  I_UOM-NUMERATOR = MARM-UMREZ.
  I_UOM-DENOMINATR =  MARM-UMREN.
  I_UOM-EAN_UPC = S2000_EAN11N.
  APPEND I_UOM.

  I_UOMX-ALT_UNIT = MARM-MEINH.
  I_UOMX-EAN_UPC  = 'X'.
  APPEND I_UOMX.

  I_EAN-UNIT = MARM-MEINH.
  I_EAN-EAN_UPC = S2000_EAN11N.
  APPEND I_EAN.

* Save the Material
  PERFORM SAVE_MATERIAL.

ENDFORM.                   

FORM SAVE_MATERIAL.

CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
  EXPORTING
    HEADDATA                   = I_HEADDATA
    CLIENTDATA                 = I_CLIENTDATA
*   CLIENTDATAX                =
*   FLAG_ONLINE                = ' '
*   FLAG_CAD_CALL              = ' '
*   NO_DEQUEUE                 = 'X'
IMPORTING
   RETURN                      = I_RETURN
TABLES
   UNITSOFMEASURE              = I_UOM
   UNITSOFMEASUREX             = I_UOMX
   INTERNATIONALARTNOS         = I_EAN.
*  RETURNMESSAGES              = I_MRTN.


COMMIT WORK AND WAIT.

<...>

endform.