anchor.diff:  * 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.34'.       "#EC NOTEXT
  +           gc_abap_version TYPE string VALUE 'v0.35'.       "#EC NOTEXT
   
   ********************************************************************************
   * The MIT License (MIT)
  
positive.code:     ENDLOOP.
  
    ENDMETHOD.                    "delete
  
    METHOD delete_obj.
  
  
negative.code:           <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.
  
  