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:         VALUE(rt_list) TYPE scit_alvlist .
    PROTECTED SECTION.
  
      CLASS-METHODS create_inspection
        IMPORTING
          !io_set              TYPE REF TO cl_ci_objectset
  
negative.code:   METHOD create_objectset.
  
      DATA: lt_objs     TYPE scit_objs,
            lt_packages TYPE ty_tdevc_tt,
            ls_obj      LIKE LINE OF lt_objs.
  
  
      lt_packages = find_all_subpackages( iv_package ).
      IF lines( lt_packages ) = 0.
        RETURN.
      ENDIF.
  