---

FORM create_customer
  USING
    iv_stcd1   TYPE stcd1
    iv_stcd3   TYPE stcd3
    iv_name1   TYPE kna1-name1
    iv_sortl   TYPE kna1-sortl
  CHANGING
    cv_customer TYPE kunnr
    cv_ok       TYPE c
    cv_msg      TYPE char255.

  CLEAR:
    cv_customer,
    cv_ok,
    cv_msg.

*---------------------------------------------------------------------*
* CLEAR BAPI
*---------------------------------------------------------------------*

  CLEAR:
    gs_personaldata,
    gs_opt_personaldata,
    gs_companydata,
    gs_opt_companydata,
    gs_copyreference,
    gs_bapi_return.

  CLEAR:
    gv_consumeren,
    gv_credit_control.

*---------------------------------------------------------------------*
* BAPI PERSONAL DATA
*---------------------------------------------------------------------*

  gs_personaldata-country      = gc_land1.
  gs_personaldata-countryiso   = 'RU'.

  gs_personaldata-langu_p      = gc_spras.
  gs_personaldata-langup_iso   = 'RU'.

  gs_personaldata-currency     = gc_waers.
  gs_personaldata-currency_iso = 'RUB'.

*---------------------------------------------------------------------*
* BAPI OPTIONAL PERSONAL DATA
*---------------------------------------------------------------------*

  gs_opt_personaldata-transpzone      = gc_lzone.
  gs_opt_personaldata-control_account  = gc_akont.
  gs_opt_personaldata-pmnttrms        = gc_zterm.
  gs_opt_personaldata-ship_cond       = gc_vsbed.
  gs_opt_personaldata-delyg_plnt      = gs_config-vwerk.

*---------------------------------------------------------------------*
* BAPI COMPANY DATA
*---------------------------------------------------------------------*

  gs_companydata-country      = gc_land1.
  gs_companydata-countryiso   = 'RU'.

  gs_companydata-langu        = gc_spras.
  gs_companydata-langu_iso   = 'RU'.

  gs_companydata-currency     = gc_waers.
  gs_companydata-currency_iso = 'RUB'.

*---------------------------------------------------------------------*
* REFERENCE CUSTOMER
*---------------------------------------------------------------------*

  gs_copyreference-salesorg   = p_vkorg.
  gs_copyreference-distr_chan = gc_vtweg.
  gs_copyreference-division   = gc_spart.
  gs_copyreference-ref_custmr = gc_ref_customer.

  gv_consumeren     = space.
  gv_credit_control = space.