anchor.diff:    METHOD lif_object~get_metadata.
   
       rs_metadata = get_metadata( ).
  -    rs_metadata-delete_tadir = abap_true.
   
     ENDMETHOD.
   
     METHOD lif_object~exists.
   
  -    DATA: clskey TYPE seoclskey.
  -
  -    clskey = ms_item-obj_name.
  -
  -    CALL FUNCTION 'SEO_CLASS_EXISTENCE_CHECK'
  -      EXPORTING
  -        clskey        = clskey
  -      EXCEPTIONS
  -        not_specified = 1
  -        not_existing  = 2
  -        is_interface  = 3
  -        no_text       = 4
  -        inconsistent  = 5
  -        OTHERS        = 6.
  +    DATA: area_name TYPE shm_area_name.
  +
  +    SELECT SINGLE area_name
  +           FROM shma_attributes
  +           INTO area_name
  +           WHERE area_name = ms_item-obj_name.
   
       rv_bool = boolc( sy-subrc = 0 ).
   
  
positive.code: 
    METHOD lif_object~delete.
  
      DATA: area_name TYPE shm_area_name.
  
      area_name = ms_item-obj_name.
  
      TRY.
          CALL FUNCTION 'SHMA_DELETE_AREA'
            EXPORTING
              area_name = area_name.
  
        CATCH cx_root INTO DATA(error).
          lcx_exception=>raise( |Error deleting SHMA { ms_item-obj_name }| ).
      ENDTRY.
  
  
negative.code:     TRY.
          CALL METHOD ('\PROGRAM=SAPLSHMA\CLASS=LCL_SHMA_HELPER')=>('INSERT_AREA')
            EXPORTING
              area_name           = area_name
              attributes          = area_attributes
              startup_list        = startup_list
              force_overwrite     = abap_true
              no_class_generation = abap_true
              silent_mode         = abap_true.
  
  
        CATCH cx_root INTO DATA(error).
          lcx_exception=>raise( |Error serializing SHMA { ms_item-obj_name }| ).
  