1、读取内表行新语法

740新语法中，对标READ，提出了新的语法，如下：

1.1、根据字段值查找

"-----------------------------@斌将军-----------------------------

"老语法

READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs.

IF sy-subrc EQ 0.

ENDIF.

"新语法

ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs ].

"-----------------------------@斌将军-----------------------------

1.2、按索引查找

"-----------------------------@斌将军-----------------------------

"老语法

READ TABLE lt_acd INTO ls_acd INDEX 1.

IF sy-subrc EQ 0.

ENDIF.

"新语法

ls_acd = lt_acd[ 1 ].

"-----------------------------@斌将军-----------------------------

1.3、判断记录是否存在

"-----------------------------@斌将军-----------------------------

"老语法

READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.

IF sy-subrc EQ 0.

ENDIF.

"新语法

IF LINE_EXISTS( lt_acd[ rbukrs = gs_acd-rbukrs ] ).

ENDIF.

"-----------------------------@斌将军-----------------------------

1.4、获取行索引

"-----------------------------@斌将军-----------------------------

"老语法

READ TABLE lt_acd WITH KEY rbukrs = gs_acd-rbukrs TRANSPORTING NO FIELDS.

IF sy-subrc EQ 0.

WRITE:SY-TABIX.

ENDIF.

"新语法

LV_INDEX = LINE_INDEX( lt_acd[ rbukrs = gs_acd-rbukrs ] ).

"-----------------------------@斌将军-----------------------------

需要特别注意的是，新语法必须用TRY CATCH，或在查询前，用LINE_EXISTS()判断是否存在，否则将会导致DUMP

TRY .

    ls_acd = lt_acd[ rbukrs = '333' ].

CATCH cx_sy_itab_line_not_found .

    MESSAGE '未找到数据' TYPE 'E' .

ENDTRY.

"或

IF line_exists( lt_acd[ rbukrs = '333' ] ).

  ls_acd = lt_acd[ rbukrs = '333' ].

ELSE.

  MESSAGE '未找到数据' TYPE 'E' .

ENDIF.

2.效率对比

由于老语法可以使用二分法查找，因此在效率上将会有差异。

现编写一个实例，循环2万条数据GT_ACD，并循环查询有14万条数据的LT_ACD中对应的值。下边测试各种情况下的查询速度

2.1、新语法

"-----------------------------@斌将军-----------------------------

"1.测试新语法------------------------------------

GET TIME STAMP FIELD lv_current1.

CLEAR:lv_index.

LOOP AT gt_acd INTO gs_acd.

  lv_index = lv_index + 1.

  TRY .

      ls_acd = lt_acd[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].

    CATCH cx_sy_itab_line_not_found .

      MESSAGE '未找到数据' TYPE 'E' .

  ENDTRY.

ENDLOOP.

GET TIME STAMP FIELD lv_current2.

"-----------------------------@斌将军-----------------------------

结果：

2.2、老语法READ

"-----------------------------@斌将军-----------------------------

"2.测试老语法------------------------------------

GET TIME STAMP FIELD lv_current1.

CLEAR:lv_index.

LOOP AT gt_acd INTO gs_acd.

  lv_index = lv_index + 1.

  READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs

                                          gjahr = gs_acd-gjahr

                                          belnr = gs_acd-belnr

                                          docln = gs_acd-docln.

  IF sy-subrc EQ 0.

  ENDIF.

ENDLOOP.

GET TIME STAMP FIELD lv_current2.

"-----------------------------@斌将军-----------------------------

结果：

2.3、老语法READ二分查找

"-----------------------------@斌将军-----------------------------

GET TIME STAMP FIELD lv_current1.

CLEAR:lv_index.

SORT lt_acd BY rbukrs gjahr belnr docln.

LOOP AT gt_acd INTO gs_acd.

  READ TABLE lt_acd INTO ls_acd WITH KEY rbukrs = gs_acd-rbukrs

                                          gjahr = gs_acd-gjahr

                                          belnr = gs_acd-belnr

                                          docln = gs_acd-docln BINARY SEARCH.

  IF sy-subrc EQ 0.

    lv_index = lv_index + 1.

  ENDIF.

ENDLOOP.

GET TIME STAMP FIELD lv_current2.

"-----------------------------@斌将军-----------------------------

结果：< 1S

2.4、新语法+排序表

"-----------------------------@斌将军-----------------------------

"4.测试新语法+排序表------------------------------------

lt_acd_sort = lt_acd.

GET TIME STAMP FIELD lv_current1.

CLEAR:lv_index.

LOOP AT gt_acd INTO gs_acd.

  lv_index = lv_index + 1.

  TRY .

      ls_acd = lt_acd_sort[ rbukrs = gs_acd-rbukrs gjahr = gs_acd-gjahr  belnr = gs_acd-belnr docln = gs_acd-docln ].

    CATCH cx_sy_itab_line_not_found .

      MESSAGE '未找到数据' TYPE 'E' .

  ENDTRY.

ENDLOOP.

GET TIME STAMP FIELD lv_current2.

"-----------------------------@斌将军-----------------------------

结果：< 1S

综上所述：不使用二分查找，则新老语法都很慢。使用二分查找或新语法搭配排序表，则速度都有非常明显的提升

 
 
此页面的语言为英语
 
翻译为中文（简体）
 
 
 
 
  • 中文（简体）
  • 中文（繁体）
  • 丹麦语
  • 乌克兰语
  • 乌尔都语
  • 亚美尼亚语
  • 俄语
  • 保加利亚语
  • 克罗地亚语
  • 冰岛语
  • 加泰罗尼亚语
  • 匈牙利语
  • 卡纳达语
  • 印地语
  • 印尼语
  • 古吉拉特语
  • 哈萨克语
  • 土耳其语
  • 威尔士语
  • 孟加拉语
  • 尼泊尔语
  • 布尔语(南非荷兰语)
  • 希伯来语
  • 希腊语
  • 库尔德语
  • 德语
  • 意大利语
  • 拉脱维亚语
  • 挪威语
  • 捷克语
  • 斯洛伐克语
  • 斯洛文尼亚语
  • 旁遮普语
  • 日语
  • 普什图语
  • 毛利语
  • 法语
  • 波兰语
  • 波斯语
  • 泰卢固语
  • 泰米尔语
  • 泰语
  • 海地克里奥尔语
  • 爱沙尼亚语
  • 瑞典语
  • 立陶宛语
  • 缅甸语
  • 罗马尼亚语
  • 老挝语
  • 芬兰语
  • 英语
  • 荷兰语
  • 萨摩亚语
  • 葡萄牙语
  • 西班牙语
  • 越南语
  • 阿塞拜疆语
  • 阿姆哈拉语
  • 阿尔巴尼亚语
  • 阿拉伯语
  • 韩语
  • 马尔加什语
  • 马拉地语
  • 马拉雅拉姆语
  • 马来语
  • 马耳他语
  • 高棉语
 
随时将英语翻译为中文（简体）PRO
一律不翻译英语
一律不翻译i.cnblogs.com

ABAP READ内表新老语法对比的更多相关文章

  1. ABAP 动态内表添加单元格颜色字段

    *动态内表alv显示时要求某些单元格显示颜色 *wa_fldcat-datatype不能添加LVC_T_SCOL类型,在创建好内表之后,再添加颜色列. DATA: wa_fldcat TYPE lvc ...

  2. 转载: ABAP动态内表操作

    顾名思义,动态表的列是可以根据数据的变化而变化的,会使报表显示更简洁漂亮. 以下是实现方法. ------------------------------------------- 1, 创建动态内表 ...

  3. 转ABAP将内表行列转换实例(动态内表) .

    把内表的行列转换,网上的例子很多,但是新人想看懂,几乎很难,所以总结下我是怎么完成的. 比如:你的内表如图: 你想让内表最后展示成这样:如图: 那么完成之后会是这样: 完成这个过程,得用到动态内表.看 ...

  4. ABAP 动态内表 动态ALV

    DATA: DY_TABLE TYPE REF TO DATA, DY_WA TYPE REF TO DATA. FIELD-SYMBOLS: <DYN_TABLE> TYPE TABLE ...

  5. SAP ABAP: 把内表数据以excel或csv格式，通过前台或者后台的方式上传至FTP服务器

    今天接到一个FTP的需求,就是每天晚上把当天某个报表的数据自动保存excel上传到FTP服务器. SAP已经有现成的FTP函数使用,可以通过函数的方式来实现,实现前先准备一些数据: User:登录FT ...

  6. express新旧语法对比

    备个份, 原文: http://stackoverflow.com/questions/25550819/error-most-middleware-like-bodyparser-is-no-lon ...

  7. abap将内表数据导出为excel文件

    一个不错的方案: WHEN 'EXPORT'. "导出数据 DATA : GT_TEMP TYPE TABLE OF TY_ITEM WITH HEADER LINE. LOOP AT GT ...

  8. ffmpeg新老接口对比

    http://blog.csdn.net/leixiaohua1020/article/details/41013567

  9. ABAP 7.4 新语法-内嵌生命和内表操作（转）

    转自:https://www.cnblogs.com/mingdashu/p/6744637.html ABAP 7.4 新语法-内嵌生命和内表操作   1.内嵌声明 2.内表操作 3.opensql ...

  10. 2019.11.07【每天学点SAP小知识】Day2 - ABAP 7.40新语法 - 内表

    今天学习一下内表的表达式在ABAP 7.4之后的语法: SELECT * FROM mara INTO TABLE @DATA(gt_mara)UP TO 10 ROWS. DATA gt_mara_ ...

随机推荐

  1. luogu 4886

    点分治好题 统计距离正常点分治统计即可,我们只需考虑何时达到最优 有两种情况: 第一:代价最大的询问两个端点在不同的两个子树中 因为这种情况下,无论根向那个子树移动都会等价地增加到达另一个端点的代价, ...

  2. lvds接口

    1.lvds就是差分信号接口,tft-lcd屏幕,一种常用的接口. 2.有3种标准,18bit, 24bit(JEIDA) 与 24bit(VESA) 详细看https://www.topwaydis ...

  3. Jetpack Compose 加载 Drawable

    Drawable Painter A library which provides a way to use Android drawables as Jetpack Compose Painters ...

  4. Shell脚本基本命令4

    使用join连接字段 1.$ cat >sales 创建salse文件 #业务员数据   注释说明 #业务员量 joe 100 jane 200 herman 150 chris 300 2.$ ...

  5. Derivative of the Sigmoid function

    一个详细介绍怎么推导Derivative of the Sigmoid function的文章- https://towardsdatascience.com/derivative-of-the-si ...

  6. 剑指offer-删除链表中的重复结点

    题目描述:在一个排序的链表中,存在重复的结点,请删除该链表中重复的结点,重复的结点不保留,返回链表头指针. 例如,链表1->2->3->3->4->4->5 处理后 ...

  7. 查看mmdetection中模型的配置信息

    方法一 可以直接打开mmdetection中的目录查看,/configs目录下都是对应的模型的配置 示例: 可以找到_base_目录下的这四个文件文件查看配置. 方法二 读取配置文件查看 在命令行中输 ...

  8. Matlab %陆

    第六章 MATLAB IN ENGINEERING Polynomial Differentiation多项式微分  %幂级数 f(x) = x^3-2x-5; p = [1 0 -2 -5]  %自 ...

  9. linux操作系统scp 命令远程复制文件

    scp  复制文件到远程服务器,端口限制情况下 scp -P 22  文件名  远程服务器用户名@IP:/路径 scp -P 22 file user@IP:/file scp -P 复制文件到远程服 ...

  10. HBase启动HMaster闪退

    1.问题描述 (1)HBase启动 [Hadoop@master conf]$ start-hbase.sh SLF4J: Class path contains multiple SLF4J bin ...