anchor.diff:    PUBLIC SECTION.
       INTERFACES lif_object.
   
  +  PRIVATE SECTION.
  +    TYPES:
  +      ty_id TYPE c LENGTH 30.
  +
  +    METHODS:
  +      get_persistence
  +        IMPORTING
  +          iv_id                 TYPE ty_id
  +        RETURNING
  +          VALUE(ro_persistence) TYPE REF TO object.
  +
   ENDCLASS.
   
   CLASS lcl_object_ucsa IMPLEMENTATION.
  
positive.code: 
    ENDMETHOD.
  
  ENDCLASS.
  
negative.code: 
    METHOD lif_object~delete.
  
      DATA: lv_id          TYPE ty_id,
            lx_root        TYPE REF TO cx_root,
            lv_text        TYPE string,
            lo_persistence TYPE REF TO object,
            lr_sa          TYPE REF TO data.
  
      FIELD-SYMBOLS: <sa> TYPE any.
  
      TRY.
          CREATE DATA lr_sa TYPE ('UCONSERVASCOMPLETE').
          ASSIGN lr_sa->* TO <sa>.
          ASSERT sy-subrc = 0.
  
          lv_id = ms_item-obj_name.
  
          lo_persistence = get_persistence( lv_id ).
  
          CALL METHOD lo_persistence->('IF_UCON_SA_PERSIST~DELETE')
            EXPORTING
              version = 'A'.
  
        CATCH cx_root INTO lx_root.
          lv_text = lx_root->get_text( ).
          zcx_abapgit_exception=>raise( lv_text ).
      ENDTRY.
  