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. C#TimeSpan时间差转换成分钟和秒数

    public Form1() { InitializeComponent(); aa = DateTime.Now.ToString(); } string aa; private void butt ...

  2. 06 显示fps帧频

    需要看fps就用下面这段代码即可 var FPS = {};FPS.time = 0;FPS.FPS = 0; FPS.startFPS = function (stage){ FPS.shape = ...

  3. Vue中nextTick的时序问题

    前言 Vue.$nextTick这个API相信很多人都用过,按照文档的解释,"在下次DOM更新循环结束之后执行延迟回调.在修改数据之后立即使用这个方法,获取更新后的DOM".我们通 ...

  4. 智利SUBTEL更新WiFi 6技术法规！

    2022年9月6日,智利电信监管机构(SUBTEL) 发布了第2844号豁免决议,更新了1985号豁免决议,即短程设备的固定技术标准. 主要更新如下: • 2.4 GHz频段已在医疗设备目录中删除,现 ...

  5. 狐漠漠养成日记 Cp.00003 第二周

    上一周整周都在做Unity Newbies Jam,除了一些必要的比如考试或者课程,其他的都推后了. 为了赶项目进度,这一周我可以说是废寝忘食,基本上每天一顿饭,就睡仨小时那种. 以至于到最后一天,也 ...

  6. js- throw

    // Create an object type UserExceptionfunction UserException (message){ this.message=message; this.n ...

  7. js使用sort将JSON数据进行排序

    在把数据通过Echarts展示成统计图模式时,柱状统计图需要将数据进行从大到小来排序! 下面为所需要的数据: 1 { 2 mapData: [ 3 {name: '北京',value: '555'}, ...

  8. UI自动化之【maven+selenium环境搭建】

    一.下载maven包 官网: http://maven.apache.org/download.cgi 二.配置maven环境变量  配置完之后验证一下:(若出现以下信息可看到maven的版本号就表示 ...

  9. 如何卸载cdr x8？怎么把cdr x8彻底卸载删除干净重新安装的方法【转载】

    标题:如何卸载cdr x8?怎么把cdr x8彻底卸载删除干净重新安装的方法.cdr x8显示已安装或者报错出现提示安装未完成某些产品无法安装的问题,怎么完全彻底删除清理干净cdr x8各种残留注册表 ...

  10. openfire开源IM服务器知识分享+社交app实战

    一.      概述 Openfire最主要的功能是实现XMPP服务器,简单来说,openfire为我们提供一个固定的地址,我们只需要向openfire服务器发送标准的XMPP信息(即XML文件流), ...