abap collect的用法与实例

《abap collect的用法与实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、abapcollect的用法与实例最近发现SAP提供了好多功能，就拿collect来说，之前也用到这样的功能，但是都是自己手工写的代码，现在有了它，以后处理内表中的数据按某些列来统计数据就方便多了！collect可以用于select.....endselect，也可以用于内表中的数据处理，但是不推荐在select....endselect中使用。collect是根据某些关键列来分类统计数据某些数字列的和的过程，下列通过一个例子来了解collect的用法:处理结果如下所示：程序如下所示：*&-----------------------------------------------------

2、----------------**& Report  ZTEST_COLLECT*&*&---------------------------------------------------------------------**& Create  By      : flying*& Create  Date    : 2009-12-31*& Descriptions    : 测试collect的用法*&---------------------------------------------------------------------*REPORT  ZTEST_COLLECT.

3、*----------------------------------------------------------------------**   define internal tables or workarea*   定义内表或者工作区*----------------------------------------------------------------------*data: begin of w_test,key type string,        "这是关键字段，用于根据这列来统计的V1、V2的值（这个关键字段可以是多个）v1  type i,v2  type i

4、,end   of w_test.data: t_data like w_test occurs 0 with header line.       "定义数据内表data: t_test like HASHED TABLE OF w_test with UNIQUE key key with header line.  "定义统计结果内表（必须是哈希内表)*----------------------------------------------------------------------**   assign value to internal tables*   给内表赋值用于测试

5、*----------------------------------------------------------------------*do 10 times.if sy-index < 4.t_data-key = 'A'.t_data-v1  = sy-index.t_data-v2  = sy-index + 1.elseif sy-index < 7.t_data-key = 'B'.t_data-v1  = sy-index.t_data-v2  = sy-index - 1.else.t_data-key = 'C'.t_data-v1  = sy-index - 1.t_

6、data-v2  = sy-index - 2.endif.append t_data.enddo.*----------------------------------------------------------------------**   process interal table*   处理内表（统计）*----------------------------------------------------------------------*loop at t_data.collect t_data into t_test.         "按关键列统计值endloop.*-

7、---------------------------------------------------------------------**  output internal tables*  打印输出内表*----------------------------------------------------------------------*write: sy-uline.write: '