anchor.diff:           remote TYPE string,
          END OF st_diff.
   TYPES: tt_diffs TYPE STANDARD TABLE OF st_diff WITH DEFAULT KEY.
  +
  +TYPES: tt_tadir TYPE STANDARD TABLE OF tadir WITH DEFAULT KEY.
   
   TYPES: BEGIN OF st_comment,
            username TYPE string,
  
positive.code:                 iv_package TYPE devclass
        RAISING   lcx_exception.
  
      CLASS-METHODS delete    IMPORTING is_item TYPE st_item
                              RAISING   lcx_exception.
  
      CLASS-METHODS jump      IMPORTING is_item TYPE st_item
                              RAISING   lcx_exception.
  
    PRIVATE SECTION.
  
      CLASS-METHODS class_name IMPORTING is_item              TYPE st_item
                               RETURNING value(rv_class_name) TYPE string.
  
negative.code:   ENDMETHOD.                    "jump
  
    METHOD delete.
  
      DATA: ls_item  TYPE st_item,
            lt_tadir LIKE it_tadir.
  
      FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF it_tadir.
  
  
  * misuse field KORRNUM to fix deletion sequence
  
      lt_tadir[] = it_tadir[].
  
      LOOP AT lt_tadir ASSIGNING <ls_tadir>.
        <ls_tadir>-korrnum = '1000'.
      ENDLOOP.
      LOOP AT lt_tadir ASSIGNING <ls_tadir>
          WHERE object = 'TABL' OR object = 'TTYP' OR object = 'VIEW'.
        <ls_tadir>-korrnum = '7000'.
      ENDLOOP.
      LOOP AT lt_tadir ASSIGNING <ls_tadir> WHERE object = 'DTEL'.
        <ls_tadir>-korrnum = '8000'.
      ENDLOOP.
      LOOP AT lt_tadir ASSIGNING <ls_tadir> WHERE object = 'DOMA'.
        <ls_tadir>-korrnum = '9000'.
      ENDLOOP.
  
      SORT lt_tadir BY korrnum ASCENDING.
  
      LOOP AT lt_tadir ASSIGNING <ls_tadir>.
        CLEAR ls_item.
        ls_item-obj_type = <ls_tadir>-object.
        ls_item-obj_name = <ls_tadir>-obj_name.
        lcl_objects=>delete_obj( ls_item ).
      ENDLOOP.
  
    ENDMETHOD.                    "delete
  
    METHOD delete_obj.
  
      DATA: lv_class_name TYPE string,
            lv_message    TYPE string.
  