anchor.diff:            ls_enh_badi     TYPE enh_badi_data,
             lt_enh_badi     TYPE enh_badi_data_it,
             lx_root         TYPE REF TO cx_root,
  +          lv_tool         TYPE enhspottooltype,
             lv_package      LIKE iv_package,
             li_spot_ref     TYPE REF TO if_enh_spot_tool,
  -          lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def.
  -
  -
  -    lv_spot_name = ms_item-obj_name.
  -
  +          lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def,
  +          lo_badi_hook    TYPE REF TO cl_enh_tool_hook_def,
  +          lt_hook_defs    TYPE enh_hook_def_ext_it.
  +
  +
  +    lv_spot_name = ms_item-obj_name.
  +
  +    io_xml->read( EXPORTING iv_name = 'TOOL'
  +                  CHANGING  cg_data = lv_tool ).
       io_xml->read( EXPORTING iv_name = 'PARENT_COMP'
                     CHANGING  cg_data = lv_parent ).
       io_xml->read( EXPORTING iv_name = 'SHORTTEXT'
                     CHANGING  cg_data = lv_enh_shtext ).
  -    io_xml->read( EXPORTING iv_name = 'BADI_DATA'
  -                  CHANGING  cg_data = lt_enh_badi ).
   
       IF lif_object~exists( ) = abap_true.
         lif_object~delete( ).
  
positive.code:         li_spot_ref = cl_enh_factory=>get_enhancement_spot( lv_spot_name ).
          lv_tool = li_spot_ref->get_tool( ).
  
          lo_badidef_tool ?= li_spot_ref.
          lv_enh_shtext = lo_badidef_tool->if_enh_object_docu~get_shorttext( ).
  
          "get parent = composite enhs (ENHC)
          lv_parent = cl_r3standard_persistence=>enh_find_parent_composite( lv_spot_name ).
          "get subsequent BADI definitions
          lt_enh_badi = lo_badidef_tool->get_badi_defs( ).
  
          io_xml->add( ig_data = lv_tool
                       iv_name = 'TOOL' ).
  
negative.code:     DATA: lv_spot_name    TYPE enhspotname,
            lx_root         TYPE REF TO cx_root,
            li_spot_ref     TYPE REF TO if_enh_spot_tool,
            lo_badidef_tool TYPE REF TO cl_enh_tool_badi_def,
            li_enh_object   TYPE REF TO if_enh_object.
  
      lv_spot_name = ms_item-obj_name.
  
  