anchor.diff:    METHOD create_objectset.
   
       DATA: lt_objs     TYPE scit_objs,
  -          lt_packages TYPE cl_pak_package_queries=>tt_subpackage_info,
  -          ls_package  LIKE LINE OF lt_packages,
  +          lt_packages TYPE ty_tdevc_tt,
             ls_obj      LIKE LINE OF lt_objs.
   
   
  -    cl_pak_package_queries=>get_all_subpackages(
  -      EXPORTING
  -        im_package             = iv_package
  -        im_also_local_packages = abap_true
  -      IMPORTING
  -        et_subpackages         = lt_packages ).
  -
  -    ls_package-package = iv_package.
  -    INSERT ls_package INTO TABLE lt_packages.
  -
  +    lt_packages = find_all_subpackages( iv_package ).
       IF lines( lt_packages ) = 0.
         RETURN.
       ENDIF.
  
positive.code:   ENDMETHOD.
  
  
    METHOD run.
  
      DATA: lo_set        TYPE REF TO cl_ci_objectset,
  
negative.code:       FROM tadir
        INTO CORRESPONDING FIELDS OF TABLE lt_objs
        FOR ALL ENTRIES IN lt_packages
        WHERE devclass = lt_packages-devclass
        AND pgmid = 'R3TR'.                               "#EC CI_GENBUFF
  
      ro_set = cl_ci_objectset=>save_from_list( lt_objs ).
  