anchor.diff:  
       LOOP AT lt_tadir ASSIGNING <ls_tadir>.
         CASE <ls_tadir>-object.
  +        WHEN 'SUSC'.
  +          <ls_tadir>-korrnum = '5000'.
           WHEN 'TABL' OR 'TTYP' OR 'VIEW'.
             <ls_tadir>-korrnum = '7000'.
           WHEN 'DTEL'.
  
positive.code:       WHERE devclass = is_repo-package
        AND object <> 'DEVC'.               "#EC CI_GENBUFF "#EC CI_SUBRC
  
      LOOP AT lt_tadir ASSIGNING <ls_tadir>.
        CLEAR ls_item.
        ls_item-obj_type = <ls_tadir>-object.
  
negative.code:                            CHANGING cg_structure = ls_repo_persi ).
              lcl_zip=>export( ls_repo_persi ).
              view( render( ) ).
            WHEN 'zipexport_gui'.
              zipexport( ).
            WHEN OTHERS.
              _raise 'Unknown action'.
          ENDCASE.
  