anchor.diff:  
   * todo, refactoring
       CASE iv_type.
  -      WHEN 'CLAS'.
  +      WHEN 'CLAS' OR 'INTF'.
           CALL FUNCTION 'RS_INACTIVE_OBJECTS_IN_OBJECT'
             EXPORTING
               obj_name         = lv_obj_name
  
positive.code:                                  RETURNING value(rt_source) TYPE seop_source_string
                                   RAISING lcx_exception.
  
      CLASS-METHODS serialize_xml IMPORTING is_clskey TYPE seoclskey
                                  RETURNING value(ro_xml) TYPE REF TO lcl_xml
                                  RAISING lcx_exception.
  
  
negative.code:            ls_vseoclass-changedon,
             ls_vseoclass-r3release.
  
      CLEAR: ls_vseointerf-uuid,
             ls_vseointerf-author,
             ls_vseointerf-createdon,
             ls_vseointerf-changedby,
             ls_vseointerf-changedon,
             ls_vseointerf-r3release.
  
      CREATE OBJECT ro_xml.
  
      CASE is_item-obj_type.
        WHEN 'CLAS'.
          ro_xml->structure_add( ls_vseoclass ).
  
          lv_cp = cl_oo_classname_service=>get_classpool_name( ls_clskey-clsname ).
          READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE sy-langu. "#EC CI_READ_REP
          ro_xml->table_add( lt_tpool ).
        WHEN 'INTF'.
          ro_xml->structure_add( ls_vseointerf ).
        WHEN OTHERS.
          ASSERT 1 = 1 + 1.
      ENDCASE.
  
      lv_object = ls_clskey-clsname.
      CALL FUNCTION 'DOCU_GET'
        EXPORTING
          id                = 'CL'
  