anchor.diff:  *
   *----------------------------------------------------------------------*
   CLASS lcl_object_enho DEFINITION INHERITING FROM lcl_objects_super FINAL.
  -
  +* For complete list of tool_type - see ENHTOOLS table
     PUBLIC SECTION.
       INTERFACES lif_object.
   
  
positive.code:         _raise 'Error from CL_ENH_FACTORY'.
      ENDTRY.
      lv_tool = li_enh_tool->get_tool( ).
      IF lv_tool <> cl_enh_tool_badi_impl=>tooltype.
        _raise 'Unsupported ENHO type'.
      ENDIF.
      lo_badi_impl ?= li_enh_tool.
  
      lv_shorttext = lo_badi_impl->if_enh_object_docu~get_shorttext( ).
      lv_spot_name = lo_badi_impl->get_spot_name( ).
      lt_impl      = lo_badi_impl->get_implementations( ).
  
      CREATE OBJECT lo_xml.
      lo_xml->element_add( lv_tool ).
      lo_xml->element_add( ig_element = lv_shorttext
                           iv_name    = 'SHORTTEXT' ).
      lo_xml->element_add( lv_spot_name ).
      lo_xml->table_add( lt_impl ).
      mo_files->add_xml( lo_xml ).
  
    ENDMETHOD.                    "serialize
  
  
negative.code: 
      DATA: ls_tadir TYPE tadir.
  
      ls_tadir = lcl_tadir=>read_single(
        iv_object   = ms_item-obj_type
        iv_obj_name = ms_item-obj_name ).
      IF ls_tadir IS NOT INITIAL.
        rv_bool = abap_true.
      ENDIF.
    ENDMETHOD.
  
    METHOD lif_object~serialize.
  