anchor.diff:                  iv_package TYPE devclass
         RAISING   lcx_exception.
   
  -ENDCLASS.                    "lcl_object_dtel DEFINITION
  +ENDCLASS.                    "lcl_object_fugr DEFINITION
   
   *----------------------------------------------------------------------*
   *       CLASS lcl_object_dtel IMPLEMENTATION
  
positive.code:       IMPORTING
          es_objh            = ls_objh
          es_objt            = ls_objt
  *       EV_OBJT_DOESNT_EXIST       =
        TABLES
          tt_objs            = lt_objs
          tt_objsl           = lt_objsl
  
negative.code:                    version = 'A' ).
          li_app->if_wdy_md_object~delete( ).
          li_app->if_wdy_md_lockable_object~save_to_database( ).
  
  * method save_to_database calls function module TR_TADIR_INTERFACE
  * with test mode = X, so it does not delete the TADIR entry.
  * Instead the standard code uses RS_TREE_OBJECT_PLACEMENT to delete
  * the TADIR entry
          lv_objkey = is_item-obj_name.
          CONCATENATE 'O' swbm_c_type_wdy_application INTO lv_type.
          CALL FUNCTION 'RS_TREE_OBJECT_PLACEMENT'
            EXPORTING
              object    = lv_objkey
              type      = lv_type
              operation = 'DELETE'.
  
        CATCH cx_wdy_md_not_existing.
          RETURN.
        CATCH cx_wdy_md_exception.
  