anchor.diff:        FROM tadir
         INTO CORRESPONDING FIELDS OF TABLE lt_objs
         FOR ALL ENTRIES IN lt_packages
  -      WHERE devclass = lt_packages-package
  +      WHERE devclass = lt_packages-devclass
         AND pgmid = 'R3TR'.                               "#EC CI_GENBUFF
   
       ro_set = cl_ci_objectset=>save_from_list( lt_objs ).
  
positive.code:   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,
            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.
  
      IF lines( lt_packages ) = 0.
        RETURN.
      ENDIF.
  
negative.code:   ENDMETHOD.
  
  
    METHOD find_all_subpackages.
  
  * TODO, in the future, move this method to the ABAPGIT global package class
  
      DATA: ls_package LIKE LINE OF rt_packages.
  
  
      SELECT SINGLE * FROM tdevc INTO ls_package WHERE devclass = iv_package.
      ASSERT sy-subrc = 0.
      APPEND ls_package TO rt_packages.
  
      LOOP AT rt_packages INTO ls_package.
        SELECT * FROM tdevc APPENDING TABLE rt_packages
          WHERE parentcl = ls_package-devclass.
      ENDLOOP.
  
    ENDMETHOD.
  
  
    METHOD run.
  
      DATA: lo_set        TYPE REF TO cl_ci_objectset,
  