Error In BAPI_ACTIVITYCRM_CREATEMULTI

Question

Hi,
I am using BAPI_ACTIVITYCRM_CREATEMULTI for creating activity with text.please refer below code for reference.
I am able to create activity but not able to create text.
Error which I am getting is
1) If  wa_text-REF_KIND = 'A'.  Error is "An authorization check could not be executed"
2) if wa_text-REF_KIND = 'E'  Error is "Referenced object type (TEXTS) not allowed"
3) If I am commeting  wa_text-ref_handle = 1. Then it create 2 activities 1) with partner 2) for Text without Partner.
Can you please suggest what are changes needed in code below so that i can create Activities with long text.
*& Report  ZACTI_UPD
REPORT  ZACTI_UPD.
data: header type standard table of BAPIBUS2000110_HEADER_INS,
      wa_header type BAPIBUS2000110_HEADER_INS,
      headerX type standard table of BAPIBUS2000110_HEADER_INSX,
      wa_headerX type BAPIBUS2000110_HEADER_INSX,
      partner type standard table of BAPIBUS20001_PARTNER_INS,
      wa_partner type BAPIBUS20001_PARTNER_INS,
      PARTNERX type standard table of BAPIBUS20001_PARTNER_INSX,
      wa_partnerx type BAPIBUS20001_PARTNER_INSX,
      return type standard table of BAPIRET2,
      createdProcess type standard table of BAPIBUS20001_HEADER_INS,
      MATERIAL type standard table of  BAPIBUS2000110_MATERIAL,
      wa_MATERIAL type BAPIBUS2000110_MATERIAL,
      MATERIALX type standard table of BAPIBUS2000110_MATERIALX ,
      wa_MATERIALX type BAPIBUS2000110_MATERIALX,
      EXTENSIONIN type standard table of BAPIPAREX,
      wa_EXTENSIONIN type BAPIPAREX,
      JOURNAL type standard table of  BAPIBUS2000110_JOURNAL,
      wa_JOURNAL type BAPIBUS2000110_JOURNAL,
      JOURNALX type standard table of BAPIBUS2000110_JOURNALX,
      wa_JOURNALX type BAPIBUS2000110_JOURNALX,
      lt_extensionin    type table of bapiparex,
      text type standard table of BAPIBUS20001_TEXT_INS,
      wa_text type  BAPIBUS20001_TEXT_INS,
      TEXTX type standard table of BAPIBUS20001_TEXT_INSX,
      wa_TEXTX type BAPIBUS20001_TEXT_INSX.
call function 'GUID_CREATE'
    importing
      ev_guid_32 = wa_header-GUID.
My Activity Type
      wa_header-PROCESS_TYPE = 'ZH01'.  "Value pass from legacy transcation type
      wa_header-description = 'Bapi Test'.
My Activity Category
     wa_header-CATEGORY = 'CX4'.  "Value pass from legacy cetogory
     wa_header-PRIORITY = '5'.  "Value pass from legacy proiroty
      wa_header-posting_date = sy-datum.
      wa_header-MODE = 'A'.
     wa_header-direction = 0.
      append wa_header to header.
      wa_headerx-GUId = 'X'.
      wa_headerx-PROCESS_TYPE = 'X'.
      wa_headerx-DESCRIPTION = 'X'.
     wa_headerx-CATEGORY = 'X'.
     wa_headerx-PRIORITY = 'X'.
      wa_headerx-OBJECTIVE = 'X'.
      wa_headerx-POSTING_DATE = 'X'.
      wa_headerx-MODE = 'X'.
     wa_headerx-DIRECTION = 'X'.
      append wa_headerx to headerx.
      wa_partner-ref_guid = wa_header-GUID.
      wa_partner-REF_KIND = 'A'.
     wa_partner-REF_PARTNER_HANDLE = 1.
      wa_partner-PARTNER_FCT = '00000009'.
      wa_partner-partner_no = '1000000004'.
      wa_partner-NO_TYPE = 'BP'. " BP = Business partner #
      wa_partner-DISPLAY_TYPE = 'BP'.
      append wa_partner to partner.
     wa_partner-REF_PARTNER_HANDLE = 2.
     wa_partner-PARTNER_FCT = '00000026'.
**User Name
     wa_partner-partner_no = '1000000004'.
     wa_partner-NO_TYPE = 'US'. "US = USER
     wa_partner-DISPLAY_TYPE = 'US'.
     append wa_partner to partner.
      wa_partnerx-REF_GUID = 'X'.
      wa_partnerx-REF_KIND = 'X'.
     wa_partnerx-REF_PARTNER_HANDLE = 'X'.
      wa_partnerx-PARTNER_FCT = 'X'.
      wa_partnerx-PARTNER_NO = 'X'.
      wa_partnerx-NO_TYPE = 'X'.
      wa_partnerx-DISPLAY_TYPE = 'X'.
      append wa_partnerx to partnerx.
TEXT
  wa_text-ref_Guid = wa_header-GUID.
    wa_text-ref_handle = 2.
    wa_text-REF_KIND = 'A'.
    wa_text-tdid = 'A002'. "'A002'. " '0200'.
    wa_text-tdspras = 'E'.
    wa_text-tdline = 'This is my test text.'.
    wa_text-tdstyle = 'SYSTEM'.
    wa_text-tdform = 'SYSTEM'.
    wa_text-mode = 'A'.   "guess
    wa_text-tdformat = '*'.
    append wa_text to text.
   wa_textx-ref_guid = 'X'.
   wa_textx-ref_handle = 'X'.
    wa_textx-REF_KIND = 'X'.
    wa_textx-tdid = 'X'..
    wa_textx-tdspras = 'X'.
    wa_textx-tdline = 'X'.
    wa_textX-tdstyle = 'X'.
    wa_textX-tdform = 'X'.
    wa_textx-mode = 'X'.
    wa_textx-tdformat = 'X'.
    append wa_textx to textx.
data: ls_process_settings type bapibus20001_procsettings.
ls_process_settings-msglevel = 8   ."gc_msglevel-administrator.
ls_process_settings-save     = 'X' . "true.
call function 'BAPI_BUSPROCESSND_PROCSETTINGS'
    exporting
     process_settings_in = ls_process_settings
    tables
      return              = return
CALL FUNCTION 'BAPI_ACTIVITYCRM_CREATEMULTI'
  TABLES
    HEADER                = header
    HEADERX               = headerx
    PARTNER               = partner
     PARTNERX             = partnerx
  ORGANISATION          =
  ORGANISATIONX         =
  DATE                  =
  DATEX                 =
    TEXT                  =  text
    TEXTX                 =  textx
  REASON                =
  REASONX               =
  OUTCOME               =
  OUTCOMEX              =
  STATUS                =
  STATUSX               =
  LOCATION              =
  LOCATIONX             =
  INPUT_FIELDS          =
   CREATED_PROCESS        = CREATEDPROCESS
    RETURN                =  return
  DOCUMENT_FLOW         =
  JOURNAL                = journal
  JOURNALX               = journalx
   MATERIAL              = material
   MATERIALX             = materialx
   EXTENSIONIN            = lt_extensionin
  if sy-subrc = 0 .
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
  WAIT          =
IMPORTING
  RETURN        =
  endif.
  field-symbols: <cp> type BAPIBUS20001_HEADER_INS,
                  <rt> type BAPIRET2.
  loop at createdprocess assigning <cp>.
    write: / <cp>-OBJECT_ID,
             <cp>-description.
  endloop.
  loop at return assigning <rt>.
  write:/ <rt>-message.
  endloop.

Answer 1

its is resolved