BAPI BUPA CREATE FROM DATA

Person

DATA: ls_bupa        TYPE bapibus1006_central,
      ls_bupa_person TYPE  bapibus1006_central_person,
      ls_address     TYPE bapibus1006_address,
      lt_return      TYPE TABLE OF bapiret2,
      lv_partner     TYPE bu_partner.

  ls_bupa-searchterm1 = 'TESTBP5FB'.
  ls_bupa_person-lastname = 'TESTBP5FB'.
  ls_bupa_person-correspondlanguage = 'D'.

  "Adresse
  ls_address-street     = 'Teststraße 1'.
  ls_address-postl_cod1 = '12345'.
  ls_address-city       = 'Teststadt'.
  ls_address-country    = 'DE'.

 CALL FUNCTION 'BAPI_BUPA_CREATE_FROM_DATA'
   EXPORTING
*     businesspartnerextern        =
     partnercategory              = '1'
*     partnergroup                 =
     centraldata                  = ls_bupa
     centraldataperson            = ls_bupa_person
*     centraldataorganization      =
*     centraldatagroup             =
     addressdata                  = ls_address
*     duplicate_message_type       =
*     accept_error                 = space
*     address_dep_attr_data        =
   IMPORTING
     businesspartner              = lv_partner
   TABLES
*     telefondata                  =
*     faxdata                      =
*     teletexdata                  =
*     telexdata                    =
*     e_maildata                   =
*     rmladdressdata               =
*     x400addressdata              =
*     rfcaddressdata               =
*     prtaddressdata               =
*     ssfaddressdata               =
*     uriaddressdata               =
*     pagaddressdata               =
*     addressnotes                 =
*     communicationnotes           =
*     communicationusage           =
*     telefondatanonaddress        =
*     faxdatanonaddress            =
*     teletexdatanonaddress        =
*     telexdatanonaddress          =
*     e_maildatanonaddress         =
*     rmladdressdatanonaddress     =
*     x400addressdatanonaddress    =
*     rfcaddressdatanonaddress     =
*     prtaddressdatanonaddress     =
*     ssfaddressdatanonaddress     =
*     uriaddressdatanonaddress     =
*     pagaddressdatanonaddress     =
*     communicationnotesnonaddress =
*     communicationusagenonaddress =
     return                       = lt_return
*     addressduplicates            =
   .

  IF lt_return IS INITIAL.
     CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
       wait   = abap_true
     .
    WRITE: / 'Geschäftspartner wurde erfolgreich angelegt:', lv_partner.
  ELSE.
    LOOP AT lt_return INTO DATA(ls_return).
      WRITE: / ls_return-type, ls_return-id, ls_return-number, ls_return-message.
    ENDLOOP.
    RETURN.
  ENDIF.