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: 
      DATA: ls_vseoclass TYPE vseoclass,
            lv_cp        TYPE program,
            lt_tpool     TYPE textpool_table,
            lv_object    TYPE dokhl-object,
            lv_state     TYPE dokhl-dokstate,
            lt_lines     TYPE tlinetab.
  
  
      CALL FUNCTION 'SEO_CLASS_GET'
  