anchor.diff:      METHODS clear_fields
         CHANGING cs_head  TYPE ttree
                  ct_nodes TYPE hier_iface_t.
  -
  -*    METHODS regenerate_ids
  -*      CHANGING ct_nodes TYPE hier_iface_t
  -*               ct_refs  TYPE hier_ref_t
  -*               ct_texts TYPE hier_texts_t
  -*      RAISING  lcx_exception.
  -*
  -*    METHODS replace_id
  -*      IMPORTING iv_id            TYPE clike
  -*      RETURNING VALUE(rv_new_id) TYPE ttree-id
  -*      RAISING   lcx_exception.
   
   ENDCLASS.                    "lcl_object_shi3 DEFINITION
   
  
positive.code:     io_xml->read( EXPORTING iv_name = 'TREE_TEXTS'
                    CHANGING  cg_data = lt_texts ).
  
  *    regenerate_ids( CHANGING ct_nodes = lt_nodes
  *                             ct_refs  = lt_refs
  *                             ct_texts = lt_texts ).
  
      IF lif_object~exists( ) = abap_true.
        lif_object~delete( ).
      ENDIF.
  
negative.code: 
    ENDMETHOD.                    "strip_stamps
  
    METHOD lif_object~deserialize.
  
      DATA: ls_msg    TYPE hier_mess,
  