anchor.diff:        rv_path = '/'.
       ELSE.
         SELECT SINGLE parentcl FROM tdevc INTO lv_parentcl
  -        WHERE devclass = iv_package.
  +        WHERE devclass = iv_package.                      "#EC CI_SUBRC
         ASSERT sy-subrc = 0.
   
         IF lv_parentcl IS INITIAL.
  
positive.code: 
  * look for subpackages
      SELECT * FROM tdevc INTO TABLE lt_tdevc
        WHERE parentcl = iv_package.                        "#EC CI_SUBRC
      LOOP AT lt_tdevc ASSIGNING <ls_tdevc>.
        lv_len = strlen( iv_package ).
        IF <ls_tdevc>-devclass(lv_len) <> iv_package.
  
negative.code:       WHERE objct = is_item-obj_name.                     "#EC CI_SUBRC
  
      SELECT * FROM tactz INTO TABLE lt_tactz
        WHERE brobj = is_item-obj_name
        ORDER BY PRIMARY KEY.               "#EC CI_SUBRC "#EC CI_GENBUFF
  
      SELECT * FROM tobjvordat INTO TABLE lt_tobjvordat
        WHERE objct = is_item-obj_name
        ORDER BY PRIMARY KEY.               "#EC CI_SUBRC "#EC CI_GENBUFF
  
      SELECT * FROM tobjvor INTO TABLE lt_tobjvor
        WHERE objct = is_item-obj_name
        ORDER BY PRIMARY KEY.                               "#EC CI_SUBRC
  
      CREATE OBJECT lo_xml.
      lo_xml->structure_add( ls_tobj ).
  