data: wa_matheader type bapie1matheader,
          lt_matheader type table of bapie1matheader,
          salesdata   type  bapie1mvke ,
          salesdatax  type  bapie1mvkex,
          lt_salesdata   type table of bapie1mvke ,
          lt_salesdatax  type table of bapie1mvkex.
  data: testrun type bapie1global_data-testrun value ' E'.
  data: returnmessages type table of bapie1ret2,
           ret type bapiret2.

  loop at gt_data into wa_data where skip is initial.
    move  'UPD'              to wa_matheader-function.
    move wa_data-matnr to wa_matheader-material.
    move wa_data-mbrsh to wa_matheader-ind_sector.
    move wa_data-mtart  to wa_matheader-matl_type.
    move 'X'                    to wa_matheader-sales_view.
    append wa_matheader to lt_matheader.

    salesdata-function  = 'UPD'.
    salesdata-material  = wa_data-matnr.
    salesdata-sales_org  = wa_data-vkorg.
    salesdata-distr_chan = wa_data-vtweg.
    salesdata-pr_ref_mat = wa_data-pmatn.
    salesdata-sal_status = wa_data-vmsta.
    APPEND salesdata to lt_salesdata.
    salesdatax-material  = wa_data-matnr.
    salesdatax-function  = 'UPD'.
    salesdatax-sales_org  = wa_data-vkorg.
    salesdatax-distr_chan = wa_data-vtweg.
    salesdatax-pr_ref_mat = 'X'.
    salesdatax-sal_status = 'X'.
   APPEND salesdatax to lt_salesdatax.

  endloop.
  refresh returnmessages.
  call function 'BAPI_MATERIAL_SAVEREPLICA'
    exporting
      noappllog      = ''
      nochangedoc    = ''
      inpfldcheck    = 'I'
      testrun        = testrun
      FLAG_ONLINE    = testrun
    tables
      headdata       = lt_matheader
      salesdata      = lt_salesdata
      salesdatax     = lt_salesdatax
      returnmessages = returnmessages.

  call function 'BAPI_TRANSACTION_COMMIT'
    exporting
      wait = 'X'.

    loop at  returnmessages into ret.
    call method appl_log->add_message_bapiret2( ret ).
  endloop.