anchor.diff:            <ls_tadir>-korrnum = '8000'.
           WHEN 'DOMA'.
             <ls_tadir>-korrnum = '9000'.
  +        WHEN 'PROG'.
  +* delete includes after main programs
  +          SELECT COUNT(*) FROM reposrc
  +            WHERE progname = <ls_tadir>-obj_name
  +            AND r3state = 'A'
  +            AND subc = 'I'.
  +          IF sy-subrc = 0.
  +            <ls_tadir>-korrnum = '2000'.
  +          ELSE.
  +            <ls_tadir>-korrnum = '1000'.
  +          ENDIF.
           WHEN OTHERS.
             <ls_tadir>-korrnum = '1000'.
         ENDCASE.
       ENDLOOP.
  +
  +    resolve_tabl( CHANGING ct_tadir = lt_tadir ).
   
       SORT lt_tadir BY korrnum ASCENDING.
   
  
positive.code:       RETURNING VALUE(rv_class_name) TYPE string.
  
    PRIVATE SECTION.
      CLASS-METHODS delete_obj
        IMPORTING is_item TYPE st_item
        RAISING   lcx_exception.
  
negative.code: * See https://github.com/larshp/abapGit/
  
  CONSTANTS: gc_xml_version  TYPE string VALUE 'v0.2-alpha',  "#EC NOTEXT
             gc_abap_version TYPE string VALUE 'v0.35'.       "#EC NOTEXT
  
  ********************************************************************************
  * The MIT License (MIT)
  