anchor.diff:    METHOD lif_object~serialize.
   
       DATA: lt_source TYPE seop_source_string,
  -          lo_xml    TYPE REF TO lcl_xml_output,
             ls_clskey TYPE seoclskey.
   
   
  
positive.code:            ls_vseointerf-changedon,
             ls_vseointerf-r3release.
  
      CREATE OBJECT ro_xml.
  
      CASE ms_item-obj_type.
        WHEN 'CLAS'.
          ro_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
          ro_xml->add( iv_name = 'TPOOL'
                       ig_data = lt_tpool ).
        WHEN 'INTF'.
          ro_xml->add( iv_name = 'VSEOINTERF'
                       ig_data = ls_vseointerf ).
        WHEN OTHERS.
          ASSERT 0 = 1.
  
negative.code:     DATA: ls_vseoclass  TYPE vseoclass,
            lv_cp         TYPE program,
            lt_tpool      TYPE textpool_table,
            lo_xml        TYPE REF TO lcl_xml_output,
            lv_object     TYPE dokhl-object,
            lv_state      TYPE dokhl-dokstate,
            ls_vseointerf TYPE vseointerf,
  