ABAP基础知识 内表汇总数据的方式

2021-10-29 23:41发布


          点击此处--->   EasySAP.com 群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)

点击蓝字 关注我们

前言

新开一个专题: ABAP基础知识. 用于介绍一些ABAP中的基础知识.希望可以帮助到一些新学ABAP的朋友.

 本文主要介绍ABAP中使用内表统计的几种方式


四种统计方式

内表统计执行数据统计大致有下述几种方式, 这些方式本身没有优劣差异,根据实际情况选择一种使用就好.

  • COLLECT 语句实现

  • AT NEW 语句实现

  • LOOP AT GROUP 语句实现

  • READ 哈希表语句实现. SELECT SUM 也能汇总内表


数据准备

如图: 给出了内表定义及示例数据.

目标:原内表LT_DATA 结果按字段MATNR统计到内表LT_SUM中. 统计表中的WERKS 字留空或者保留第一行或最后一行的内容


COLLECT 语句实现

该语句的局限性: 目标内表中所有字段区分为关键字和指标(数字型).系统底层会是所有关键字创建临时哈希表,解决汇总的性能问题该方式另外的局限是: 不参与统计的字段必须清空.


AT NEW 语句实现

该语句的局限性: 参与统计的字段必须是内表前面的字段,并且需要先排序.如果统计结果中的地点需要放第一行或最后一行的地点, 可以通过特定逻辑实现.


LOOP AT GROUP实现 

该语句无需排序,字段无需作为内表前面的字段, 但是性能比AT NEW 方式稍差.且无关字段只能使用第一行的. 

备注: 如果统计表有多关键字,多关键字并列呈现即可

( MATNR =  LW_GP-MATNR WERKS = LW_GP-WERKS ). 


READ哈希表实现

需要定义一个哈希内表.循环内表读取哈希表.



源代码

*&---------------------------------------------------------------------**& Report ZTS_ITAB_SUM*&---------------------------------------------------------------------**&测试内表统计的几种方式*&---------------------------------------------------------------------*REPORT zts_itab_sum.
DATA: BEGIN OF lw_data, matnr TYPE matnr, werks TYPE werks_d, menge TYPE menge_d, END OF lw_data.DATA: lt_data LIKE TABLE OF lw_data.DATA: BEGIN OF lw_sum, matnr TYPE matnr, werks TYPE werks_d, menge TYPE menge_d, END OF lw_sum.DATA: lt_sum LIKE TABLE OF lw_sum.
START-OF-SELECTION.*准备数据 lt_data = VALUE #( ( matnr = 'M1' werks = 'W1' menge = 10 ) ( matnr = 'M2' werks = 'W1' menge = 20 ) ( matnr = 'M1' werks = 'W2' menge = 30 ) ( matnr = 'M2' werks = 'W2' menge = 40 ) ).*方式一:通过COLLECT 语句汇总.**该语句的局限性: 目标内表中所有字段区分未关键字和指标(数字型).系统底层会创建临时哈希表,解决汇总的性能问题**该方式另外的局限是: 不参与统计的字段必须清空. REFRESH lt_sum. LOOP AT lt_data INTO lw_data. CLEAR lw_sum. lw_sum-matnr = lw_data-matnr. lw_sum-werks = ''. "不能附加第一行或最后一行地点 lw_sum-menge = lw_data-menge. COLLECT lw_sum INTO lt_sum. ENDLOOP.
*方式二: 通过AT NEW 语句实现**该语句的局限性: 参与统计的字段必须是内表前面的字段,并且需要实现排序*如果统计结果中的地点需要放第一行或最后一行的地点, 可以通过特定逻辑实现 DATA: lw_data_help LIKE lw_data. REFRESH lt_sum. SORT lt_data BY matnr werks. LOOP AT lt_data INTO lw_data. lw_data_help = lw_data. AT NEW matnr. CLEAR lw_sum. lw_sum-matnr = lw_data-matnr. lw_sum-werks = lw_data_help-werks. "使用第一个地点放到统计表中 ENDAT. lw_sum-menge = lw_sum-menge + lw_data-menge. AT END OF matnr. lw_sum-werks = lw_data_help-werks. "使用最后一个地点放到统计表中 APPEND lw_sum TO lt_sum. ENDAT. ENDLOOP.
*方式三: 通过LOOP AT GROUP 实现*该语句无需排序,字段无需作为内表前面的字段, 但是性能比AT NEW 方式差.且无关字段只能使用第一行的* LOOP AT LT_DATA INTO DATA(LW_GP) GROUP BY ( MATNR = LW_GP-MATNR WERKS = LW_GP-WERKS ). "多关键字情况 REFRESH lt_sum. LOOP AT lt_data INTO DATA(lw_gp) GROUP BY ( matnr = lw_gp-matnr ). CLEAR lw_sum. lw_sum-matnr = lw_gp-matnr. lw_sum-werks = lw_gp-werks. "只能使用第一个地点放到统计表中 LOOP AT GROUP lw_gp INTO lw_data. lw_sum-menge = lw_sum-menge + lw_data-menge. ENDLOOP. APPEND lw_sum TO lt_sum. ENDLOOP.
*方式四: 通过READ 哈希表实现 DATA: lt_sum_hs LIKE HASHED TABLE OF lw_sum WITH UNIQUE KEY matnr . refresh lt_sum_hs. LOOP AT lt_data INTO lw_data. READ TABLE lt_sum_hs ASSIGNING FIELD-SYMBOL() WITH TABLE KEY matnr = lw_data-matnr. IF sy-subrc <> 0. CLEAR lw_sum. lw_sum-matnr = lw_data-matnr. lw_sum-werks = lw_data-werks. "使用第一行地点放到汇总表中 INSERT lw_sum INTO TABLE lt_sum_hs ASSIGNING . ENDIF. IF IS ASSIGNED. -menge = -menge + lw_data-menge. -werks = lw_data-werks. "使用最后一行地点放到汇总表. ENDIF. ENDLOOP.



总结

上述给出的四种常用的内表统计的方式.其中方式三的性能稍差,其它性能差不多. 实际应用中根据实际情况确定使用一种方式即可.

实际应用中,方式四使用更灵活. 方式一最简单,但是对汇总表结构要求较高.



THE

END

约定

如果你对这篇文章感兴趣,请帮忙点赞,在看,分享.       

    (如果你真的喜欢这篇文章,请记得回来打个赏,作为支持我继续下去的动力,这是一个正反馈过程. 越多的人打赏,作者越有动力分享,读者就能享受更多的福利.毕竟打赏的金额富不了我,穷不了你,却能支持这个公众号长久发文.)



公众号 : syjf1976_abap

          ABAP开发技巧

微信号 : 392077


公众号主群加入受限, 请扫码加入副群后,向管理员申请加入主群

赞赏支持