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: 
      lv_msg_id = is_item-obj_name.
  
      CALL FUNCTION 'RPY_MESSAGE_ID_READ'
        EXPORTING
          language         = gc_english
          message_id       = lv_msg_id
        IMPORTING
          message_id_inf   = ls_inf
        TABLES
          source           = lt_source
        EXCEPTIONS
          cancelled        = 1
          not_found        = 2
          permission_error = 3
          OTHERS           = 4.
      IF sy-subrc = 2.
        RETURN.
      ENDIF.
      IF sy-subrc <> 0.
        _raise 'Error from RPY_MESSAGE_ID_READ'.
      ENDIF.
  
      CLEAR: ls_inf-lastuser,
             ls_inf-ldate,
  
negative.code: 
  * look for subpackages
      SELECT * FROM tdevc INTO TABLE lt_tdevc
        WHERE parentcl = iv_package
        ORDER BY PRIMARY KEY.                               "#EC CI_SUBRC
      LOOP AT lt_tdevc ASSIGNING <ls_tdevc>.
        lv_len = strlen( iv_package ).
        IF <ls_tdevc>-devclass(lv_len) <> iv_package.
  