function k_costctr_modify_event_cntn .
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"       IMPORTING
*"             VALUE(CHANGE_DOC_OBJECT) LIKE  SWEVCDCOU1-CDOBJECTCL
*"             VALUE(OBJTYPE) LIKE  SWETYPECOU-OBJTYPE
*"             VALUE(OBJKEY) LIKE  SWEINSTCOU-OBJKEY
*"             VALUE(EVENT) LIKE  SWETYPECOU-EVENT
*"       TABLES
*"              EVENT_CONTAINER STRUCTURE  SWCONT
*"              CHANGEDOCUMENT_POSITION STRUCTURE  CDPOS OPTIONAL
*"----------------------------------------------------------------------
include <cntn01>.
 
  data ls_changed_fields type kcd_change_pointer.
* in BOR only unstructered multiline event parameters are allowed
* this forces us to store information of changed fields unstructured,too
  data lt_changed_fields type swaconval
                         occurs 0 with header line.
 
* from- and to-date
  read table changedocument_position index 1.
 
  if sy-subrc <> 0.
    exit.
  endif.
 
  swc_set_element  event_container 'DateTo'
                   changedocument_position-tabkey+17(8).
  swc_set_element  event_container 'DateFrom'
                   changedocument_position-tabkey+25(8).
 
* changed fields
  loop at changedocument_position.
     move-corresponding changedocument_position to ls_changed_fields.
     lt_changed_fields = ls_changed_fields.
     append lt_changed_fields.
  endloop.
 
  swc_set_table event_container 'ChangedFields' lt_changed_fields.
 
endfunction.