anchor.diff:            EXPORTING
               request = c_request_delete
             IMPORTING
  -            order   = l_order
  -            task    = l_task.
  +            order   = order
  +            task    = 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.
  +        korrnum = order.
  +        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
  +            wi_tadir_obj_name = objname
  +          IMPORTING
  +            new_tadir_entry   = tadir
             EXCEPTIONS
               OTHERS            = 0.
   
           CALL FUNCTION 'TR_DEVCLASS_GET'
             EXPORTING
  -            iv_devclass = l_tadir-devclass
  -          IMPORTING
  -            es_tdevc    = l_tdevc
  +            iv_devclass = tadir-devclass
  +          IMPORTING
  +            es_tdevc    = tdevc
             EXCEPTIONS
               OTHERS      = 1.
   
  -        IF  sy-subrc = 0 AND l_tdevc-korrflag IS INITIAL.
  +        IF  sy-subrc = 0 AND tdevc-korrflag IS INITIAL.
   
             " TADIR entries for local objects must be deleted 'by hand'
   
  
positive.code:               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
              EXCEPTIONS
                OTHERS                = 0.
  
  
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,
  