anchor.diff:  
     ENDMETHOD.
   
  -ENDCLASS.+ENDCLASS.
  
positive.code:       RAISING   lcx_exception.
  
      METHODS serialize_xml
        RETURNING VALUE(ro_xml) TYPE REF TO lcl_xml_output
        RAISING   lcx_exception.
  
      METHODS remove_signatures
        CHANGING ct_source TYPE ty_string_tt.
  
negative.code:            ls_vseointerf-changedon,
             ls_vseointerf-r3release.
  
      CREATE OBJECT lo_xml.
  
      CASE ms_item-obj_type.
        WHEN 'CLAS'.
          lo_xml->add( iv_name = 'VSEOCLASS'
                       ig_data = ls_vseoclass ).
  
          lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ).
          READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE gc_english. "#EC CI_READ_REP
          lo_xml->add( iv_name = 'TPOOL'
                       ig_data = lt_tpool ).
        WHEN 'INTF'.
          lo_xml->add( iv_name = 'VSEOINTERF'
                       ig_data = ls_vseointerf ).
        WHEN OTHERS.
          ASSERT 0 = 1.
  