anchor.diff:  
         IF lv_span = 0.
           READ TABLE lt_results INTO ls_next INDEX lv_index.
  +        ASSERT sy-subrc = 0.
           WHILE ls_next-obj_type = <ls_result>-obj_type
               AND ls_next-obj_name = <ls_result>-obj_name.
             lv_span  = lv_span + 1.
  
positive.code: 
    METHOD encode_files.
  
      DATA: lo_zip TYPE REF TO cl_abap_zip.
  
      FIELD-SYMBOLS: <ls_file> LIKE LINE OF it_files.
  
  
negative.code:             DELETE rt_tadir INDEX lv_index.
            ENDIF.
        ENDCASE.
      ENDLOOP.
  
  * look for subpackages
      SELECT * FROM tdevc INTO TABLE lt_tdevc
        WHERE parentcl = iv_package.
      LOOP AT lt_tdevc ASSIGNING <ls_tdevc>.
        lv_len = strlen( iv_package ).
        IF <ls_tdevc>-devclass(lv_len) <> iv_package.
          _raise 'Unexpected package naming'.
        ENDIF.
  
        lv_path = <ls_tdevc>-devclass+lv_len.
        IF lv_path(1) = '_'.
          lv_path = lv_path+1.
        ENDIF.
        TRANSLATE lv_path TO LOWER CASE.
        CONCATENATE iv_path lv_path '/' INTO lv_path.
  
        lt_tadir = build( iv_package = <ls_tdevc>-devclass
                          iv_parent  = iv_package
                          iv_path    = lv_path ).
        APPEND LINES OF lt_tadir TO rt_tadir.
      ENDLOOP.
  
    ENDMETHOD.
  