点击蓝字 关注我们

一

前言

新开一个专题: 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(<fs_sum>) 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 <fs_sum>.
    ENDIF.
    IF <fs_sum> IS ASSIGNED.
      <fs_sum>-menge = <fs_sum>-menge + lw_data-menge.
      <fs_sum>-werks = lw_data-werks. "使用最后一行地点放到汇总表.
    ENDIF.
  ENDLOOP.

九

总结

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

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

THE

END

约定

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

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

公众号 : syjf1976_abap

          ABAP开发技巧

微信号 : 392077

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