anchor.diff:  
       ENDLOOP.
   
  -* build DDLS edges
  +    " build DDLS edges
       LOOP AT ct_tadir ASSIGNING <ls_tadir_ddls>
                        WHERE object = 'DDLS'.
   
  
positive.code:             AND as4local = 'A'
              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 'DTEL'.
            <ls_tadir>-korrnum = '8000'.
  * ACID after PROG/FUGR/CLAS
          WHEN 'ACID'.
            <ls_tadir>-korrnum = '3000'.
          WHEN 'PARA'.
  * PARA after DTEL
            <ls_tadir>-korrnum = '8100'.
          WHEN 'DOMA'.
            <ls_tadir>-korrnum = '9000'.
  * AUTH after DCLS
          WHEN 'DCLS'.
            <ls_tadir>-korrnum = '7100'.
          WHEN 'AUTH'.
            <ls_tadir>-korrnum = '7000'.
          WHEN 'PROG'.
  * delete includes after main programs
            SELECT COUNT(*) FROM reposrc
              WHERE progname = <ls_tadir>-obj_name
              AND r3state = 'A'
  
negative.code: 
      FIELD-SYMBOLS: <ls_tadir> LIKE LINE OF ct_tadir.
  
      " misuse field KORRNUM to fix deletion sequence
  
      LOOP AT ct_tadir ASSIGNING <ls_tadir>.
        CASE <ls_tadir>-object.
          WHEN 'DEVC'.
            " Packages last
            <ls_tadir>-korrnum = '9990'.
          WHEN 'DOMA'.
            <ls_tadir>-korrnum = '9000'.
          WHEN 'PARA'.
            " PARA after DTEL
            <ls_tadir>-korrnum = '8100'.
          WHEN 'DTEL'.
            <ls_tadir>-korrnum = '8000'.
          WHEN 'DCLS'.
            " AUTH after DCLS
            <ls_tadir>-korrnum = '7100'.
          WHEN 'AUTH'.
            " AUTH after DCLS
            <ls_tadir>-korrnum = '7050'.
          WHEN 'TTYP' OR 'TABL' OR 'VIEW'.
            SELECT SINGLE tabclass FROM dd02l
              INTO lv_tabclass
  