anchor.diff:                 area_attributes-cls_gen_date ,
                  area_attributes-cls_gen_time.
   
  -        LOOP AT area_attributes_rts ASSIGNING FIELD-SYMBOL(<area_attribute_rts>).
  -
  -          CLEAR: <area_attribute_rts>-chg_user,
  -                 <area_attribute_rts>-chg_date,
  -                 <area_attribute_rts>-chg_time.
  -
  -        ENDLOOP.
  -
  -        LOOP AT oo_attributes ASSIGNING FIELD-SYMBOL(<oo_attribue>).
  -
  -          CLEAR: <oo_attribue>-createdon,
  -                 <oo_attribue>-changedby,
  -                 <oo_attribue>-changedon.
  -
  -        ENDLOOP.
  -
  -
           io_xml->add( iv_name = 'AREA_ATTRIBUTES'
                        ig_data = area_attributes ).
   
  -        io_xml->add( iv_name = 'AREA_ATTRIBUTES_RTS'
  -                     ig_data = area_attributes_rts ).
  -
  -        io_xml->add( iv_name = 'OO_ATTRIBUTES'
  -                     ig_data = oo_attributes ).
  -
           io_xml->add( iv_name = 'STARTUP_LIST'
                        ig_data = startup_list ).
  -
  -        io_xml->add( iv_name = 'STARTUP_LIST_RTS'
  -                     ig_data = startup_list_rts ).
  -
  -        io_xml->add( iv_name = 'CHANGE_INFO'
  -                     ig_data = change_info ).
  -
  -        io_xml->add( iv_name = 'TADIR_SHMA'
  -                     ig_data = tadir_shma ).
  -
  -        io_xml->add( iv_name = 'TADIR_CLASS'
  -                     ig_data = tadir_class ).
   
         CATCH cx_root INTO DATA(error).
           lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
  
positive.code:           EXPORTING
              request = c_request_delete
            IMPORTING
              order   = l_order
              task    = l_task.
  
          DELETE FROM shma_attributes  WHERE area_name = area_name.
          DELETE FROM shma_start       WHERE area_name = area_name.
  
          l_korrnum = l_order.
          l_objname = area_name.
  
          CALL FUNCTION 'TR_TADIR_INTERFACE'
            EXPORTING
              wi_read_only      = abap_true
              wi_tadir_pgmid    = 'R3TR'
              wi_tadir_object   = 'SHMA'
              wi_tadir_obj_name = l_objname
            IMPORTING
              new_tadir_entry   = l_tadir
            EXCEPTIONS
              OTHERS            = 0.
  
          CALL FUNCTION 'TR_DEVCLASS_GET'
            EXPORTING
              iv_devclass = l_tadir-devclass
            IMPORTING
              es_tdevc    = l_tdevc
            EXCEPTIONS
              OTHERS      = 1.
  
          IF  sy-subrc = 0 AND l_tdevc-korrflag IS INITIAL.
  
            " TADIR entries for local objects must be deleted 'by hand'
  
  
negative.code:     " lifecycle. Therefore we have to reimplement most of the
      " FMs logic
  
      CONSTANTS:
          c_request_delete TYPE i VALUE '4'.
  
      DATA: request   TYPE i,
            area_name TYPE shm_area_name,
            order     TYPE e070-trkorr,
            korrnum   TYPE tadir-korrnum,
            objname   TYPE tadir-obj_name,
            task      TYPE e070-trkorr,
            append    TYPE abap_bool,
            tadir     TYPE tadir,
            tdevc     TYPE tdevc,
            lo_cts_if TYPE REF TO object.
  
      area_name = ms_item-obj_name.
  