anchor.diff:                wi_delete_tadir_entry = abap_true
                 wi_tadir_pgmid        = 'R3TR'
                 wi_tadir_object       = 'CLAS'
  -              wi_tadir_obj_name     = l_objname
  -              wi_tadir_korrnum      = l_korrnum
  +              wi_tadir_obj_name     = objname
  +              wi_tadir_korrnum      = korrnum
               EXCEPTIONS
                 OTHERS                = 0.
   
  
positive.code:           EXPORTING
              request     = c_request_delete
            IMPORTING
              access_mode = l_request
              appendable  = l_append.
  
          IF l_request <> c_request_delete.
            lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
          ENDIF.
  
  
negative.code: 
    METHOD lif_object~serialize.
  
      DATA: area_name       TYPE shm_area_name,
            area_attributes TYPE shma_attributes,
            startup_list    TYPE db_startup_table.
  
      area_name = ms_item-obj_name.
  
      TRY.
          CALL METHOD ('\PROGRAM=SAPLSHMA\CLASS=LCL_SHMA_HELPER')=>('READ_AREA_ATTRIBUTES_ALL')
            EXPORTING
              area_name       = area_name
            IMPORTING
              area_attributes = area_attributes
              startup_list    = startup_list.
  
          CLEAR: area_attributes-chg_user,
                 area_attributes-chg_date,
  