anchor.diff:      CREATE OBJECT ro_xml.
       ro_xml->structure_add( ls_vseoclass ).
   
  +
       lv_cp = cl_oo_classname_service=>get_classpool_name( is_clskey-clsname ).
       READ TEXTPOOL lv_cp INTO lt_tpool LANGUAGE sy-langu.
       ro_xml->table_add( lt_tpool ).
  +
  +
  +    lv_object = is_clskey-clsname.
  +    CALL FUNCTION 'DOCU_GET'
  +      EXPORTING
  +        id                = 'CL'
  +        langu             = 'E'
  +        object            = lv_object
  +      IMPORTING
  +        dokstate          = lv_state
  +      TABLES
  +        line              = lt_lines
  +      EXCEPTIONS
  +        no_docu_on_screen = 1
  +        no_docu_self_def  = 2
  +        no_docu_temp      = 3
  +        ret_code          = 4
  +        OTHERS            = 5.
  +    IF sy-subrc = 0 AND lv_state = 'R'.
  +      ro_xml->table_add( lt_lines ).
  +    ENDIF.
   
     ENDMETHOD.                    "serialize_xml
   
  
positive.code:                                                   io_xml   TYPE REF TO lcl_xml
                                          RAISING lcx_exception.
  
      CLASS-METHODS exists IMPORTING is_clskey TYPE seoclskey
                           RETURNING value(rv_exists) TYPE abap_bool.
  
  
negative.code: 
      read_abap( EXPORTING is_item  = is_item
                           it_files = it_files
                 CHANGING  ct_abap  = lt_source ).
  
      read_abap( EXPORTING is_item  = is_item
                           iv_extra = 'locals_def'
                           it_files = it_files
                           iv_error = abap_false
                 CHANGING  ct_abap  = lt_locals_def ).        "#EC NOTEXT
  
      read_abap( EXPORTING is_item  = is_item
                           iv_extra = 'locals_imp'
                           it_files = it_files
                           iv_error = abap_false
                 CHANGING  ct_abap  = lt_locals_imp ).        "#EC NOTEXT
  
      read_abap( EXPORTING is_item  = is_item
                           iv_extra = 'macros'
                           it_files = it_files
                           iv_error = abap_false
                 CHANGING  ct_abap  = lt_locals_mac ).        "#EC NOTEXT
  
      read_abap( EXPORTING is_item  = is_item
                           iv_extra = 'testclasses'
                           it_files = it_files
                           iv_error = abap_false
                 CHANGING  ct_abap  = lt_testclasses ).       "#EC NOTEXT
  
      ls_clskey-clsname = is_item-obj_name.
  
  