二分查找测试查询的索引行号

最新推荐文章于 2024-09-07 01:32:13 发布

王佐儿z

最新推荐文章于 2024-09-07 01:32:13 发布

阅读量218

点赞数

CC 4.0 BY-SA版权

分类专栏： ABAP 基础知识记录

本文链接：https://blog.youkuaiyun.com/qq_31228779/article/details/82250975

ABAP 基础知识记录专栏收录该内容

10 篇文章

订阅专栏

博客围绕以订单号加物料号作为查询 key 进行二分查询展开。调试发现二分查询的行号索引与普通查询一致，且二分查询并非单纯从中间取数，可能先从中间查并扩展两边，最后经其他处理保证取到首条符合条件的行号索引，换情况查询结果相同。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

根据订单号加物料号作为查询key

二分查询数据为下

  DATA lv_index TYPE int4.
  DATA lv_index2 TYPE i.
  DATA lv_index3 TYPE int4.
  DATA lv_index4 TYPE i.
  REFRESH lt_resb.
  SORT gt_resb BY aufnr matnr.
  lt_resb = gt_resb.
  DELETE ADJACENT DUPLICATES FROM lt_resb COMPARING aufnr matnr.

  CLEAR:lv_index,lv_index2,lv_index3,lv_index4.
  "二分查
  LOOP AT lt_resb ASSIGNING FIELD-SYMBOL(<fs_resb>).

    READ TABLE gt_resb INTO gs_resb WITH KEY aufnr = <fs_resb>-aufnr
                                             matnr = <fs_resb>-matnr
                                             BINARY SEARCH.
    IF sy-subrc = 0.
      IF lv_index = 0.
        lv_index = sy-tabix.  "第一次查找
      ELSE.
        lv_index2 = sy-tabix. "第二次查找
      ENDIF.
    ENDIF.

  ENDLOOP.
  "非二分查
  LOOP AT lt_resb ASSIGNING <fs_resb>.

    READ TABLE gt_resb INTO gs_resb WITH KEY aufnr = <fs_resb>-aufnr
                                             matnr = <fs_resb>-matnr
                                              .
    IF sy-subrc = 0.
      IF lv_index3 = 0.
        lv_index3 = sy-tabix.  "第一次查找
      ELSE.
        lv_index4 = sy-tabix. "第二次查找
      ENDIF.
    ENDIF.

  ENDLOOP.