anchor.diff:  
     METHOD lif_object~delete.
   
  -    DATA: lv_id   TYPE uconservid,
  -          lx_root TYPE REF TO cx_root,
  -          lv_text TYPE string,
  -          sa      TYPE uconservascomplete.
  -
  -    lv_id = ms_item-obj_name.
  -
  -    TRY.
  -        DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ).
  -
  -        lo_persistence->delete( version = 'A' ).
  -
  -      CATCH cx_ucon_base INTO lx_root.
  +    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.
  
positive.code: 
    METHOD lif_object~serialize.
  
      DATA: lv_id   TYPE uconservid,
            lx_root TYPE REF TO cx_root,
            lv_text TYPE string,
            sa      TYPE uconservascomplete.
  
      lv_id = ms_item-obj_name.
  
      TRY.
          DATA(lo_persistence) = cl_ucon_sa_db_persist=>if_ucon_sa_persist~get_instance( lv_id ).
  
          lo_persistence->load(
            EXPORTING
              version  = 'A'
              language = sy-langu
            IMPORTING
              sa       = sa ).
  
          CLEAR: sa-header-createdby,
                 sa-header-createdon,
                 sa-header-createdat,
                 sa-header-changedby,
                 sa-header-changedon,
                 sa-header-changedat.
  
          io_xml->add( iv_name = 'UCSA'
                       ig_data = sa ).
  
        CATCH cx_ucon_base INTO lx_root.
          lv_text = lx_root->get_text( ).
          zcx_abapgit_exception=>raise( lv_text ).
      ENDTRY.
  
negative.code: 
    ENDMETHOD.
  
    METHOD get_persistence.
  
      CALL METHOD ('CL_UCON_SA_DB_PERSIST')=>('IF_UCON_SA_PERSIST~GET_INSTANCE')
        EXPORTING
          id       = iv_id
        RECEIVING
          instance = ro_persistence.
  
    ENDMETHOD.
  
  ENDCLASS.
  