data:
  l_PERSONALDATA like BAPIKNA101_1,
  l_OPT_PERSONALDATA like BAPIKNA105,
  l_COMPANYDATA like BAPIKNA106,
  l_OPT_COMPANYDATA like BAPIKNA105,
  l_CONSUMEREN like BAPIKNA107-CONSUMER_FLAG,
  l_COPYREFERENCE like BAPIKNA102,
  l_CREDIT_CONTROL_FLAG like BAPIKNA108-X_FLAG,

  l_CUSTOMER like BAPIKNA103-CUSTOMER,
  l_result like BAPIRETURN1.

l_PERSONALDATA-TITLE_P = 'Фирма'. " Текст обращения
l_PERSONALDATA-SECONDNAME = ''. " Вторая фамилия лица
l_PERSONALDATA-DATE_BIRTH = sy-datum. " Дата рождения
l_PERSONALDATA-STREET = 'Ленина'. " Улица
l_PERSONALDATA-HOUSE_NO = '40'. " Номер дома
l_PERSONALDATA-BUILDING = ''. " Здание (номер или код)
l_PERSONALDATA-FLOOR = ''. " Этаж в здании
l_PERSONALDATA-ROOM_NO = ''. " Номер квартиры или помещения
l_PERSONALDATA-COUNTRY = ''. "  Код страны
l_PERSONALDATA-COUNTRYISO = 'RU'. " ISO-код страны, RU, DE ?!
l_PERSONALDATA-REGION = '11'. " Регион
l_PERSONALDATA-TEL1_NUMBR = '+7 82147 22220'. " Первый номер телефона
l_PERSONALDATA-TEL1_EXT = ''. " Первый номер телефона: внутренний номер
l_PERSONALDATA-FAX_NUMBER = '+7 82147 22221'. " Первый номер факса
...

l_COPYREFERENCE-SALESORG = '0001'.
l_COPYREFERENCE-REF_CUSTMR = '0000000001'.

call function 'BAPI_CUSTOMER_CREATEFROMDATA1'
exporting
  PI_PERSONALDATA = l_PERSONALDATA
  PI_COPYREFERENCE = l_COPYREFERENCE
importing
  CUSTOMERNO = l_CUSTOMER
  RETURN = l_result.

  write: 'Результат: ', l_result-MESSAGE.