anchor.diff:        CASE <ls_tadir>-object.
           WHEN 'DEVC'.
             " Packages last
  -          <ls_tadir>-korrnum = '9990'.
  +          <ls_tadir>-korrnum = '999000'.
           WHEN 'DOMA'.
  -          <ls_tadir>-korrnum = '9000'.
  +          <ls_tadir>-korrnum = '900000'.
           WHEN 'PARA'.
             " PARA after DTEL
  -          <ls_tadir>-korrnum = '8100'.
  +          <ls_tadir>-korrnum = '810000'.
           WHEN 'DTEL'.
  -          <ls_tadir>-korrnum = '8000'.
  +          <ls_tadir>-korrnum = '800000'.
           WHEN 'DCLS'.
  -          " AUTH after DCLS
  -          <ls_tadir>-korrnum = '7100'.
  +          " AUTH and SUSO after DCLS
  +          <ls_tadir>-korrnum = '705000'.
  +        WHEN 'SUSO'.
  +          " SUSO after DCLS
  +          <ls_tadir>-korrnum = '710000'.
           WHEN 'AUTH'.
             " AUTH after DCLS
  -          <ls_tadir>-korrnum = '7050'.
  +          <ls_tadir>-korrnum = '715000'.
  +        WHEN 'DDLS'.
  +          " DDLS after DCLS but before other DDIC
  +          <ls_tadir>-korrnum = '720000'.
           WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
             SELECT SINGLE tabclass FROM dd02l
               INTO lv_tabclass
  
positive.code:             AND as4vers = '0000'.
            IF sy-subrc = 0 AND lv_tabclass = 'APPEND'.
              " delete append structures before database tables
              <ls_tadir>-korrnum = '6500'.
            ELSE.
              <ls_tadir>-korrnum = '7000'.
            ENDIF.
          WHEN 'IASP'.
            <ls_tadir>-korrnum = '5520'.
          WHEN 'IARP'.
            <ls_tadir>-korrnum = '5510'.
          WHEN 'IATU'.
            <ls_tadir>-korrnum = '5500'.
          WHEN 'SUSC'.
            <ls_tadir>-korrnum = '5000'.
          WHEN 'ACID'.
            " ACID after PROG/FUGR/CLAS
            <ls_tadir>-korrnum = '3000'.
          WHEN 'PROG'.
            " delete includes after main programs
            SELECT COUNT(*) FROM reposrc
  
negative.code:             AND r3state = 'A'
              AND subc = 'I'.
            IF sy-subrc = 0.
              <ls_tadir>-korrnum = '200000'.
            ELSE.
              <ls_tadir>-korrnum = '100000'.
            ENDIF.
          WHEN 'IDOC'.
            <ls_tadir>-korrnum = '200000'.
          WHEN 'IEXT'.
            <ls_tadir>-korrnum = '150000'.
          WHEN OTHERS.
            <ls_tadir>-korrnum = '100000'.
        ENDCASE.
      ENDLOOP.
  
  