abap collect的使用实例

首先说一下collect的用法， collect <wa> into <itab>，这个语法会：

首先查找wa里面的key值在itab中是否存在

如果不存在，那么插入一个新行(对standard table而言是append，对于sorted table相当于insert)

如果存在，那么会将非key fields的值加到找到那个index相对较小（当然如果是hash table那就只会找到一条记录）的row相应的非key fields中去，注意：使用collect就要求所有的非key fields均是I,P或者F数据类型（其实那些CURR其实本质上是P类型，debug可以看到），另外要注意的是对于standard table 而言，如果不指定key fields那么它的key fields就那些非I, P,F数据类型的fields， sorted table 和 hash table均必须指定key fields

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

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_data-v2  = sy-index  - 2 .
endif .

append  t_data.
enddo .

*----------------------------------------------------------------------*
*   process interal table
*   处理内表（统计）
*----------------------------------------------------------------------*
loop  at  t_data.
collect  t_data into  t_test.         "按关键列统计值
endloop .

*----------------------------------------------------------------------*
*  output internal tables
*  打印输出内表
*----------------------------------------------------------------------*
write : sy-uline .
write : '内表数据:' .
loop  at  t_data.
write : / ' ' ,t_data-key ,t_data-v1, t_data-v2.
endloop .
write : sy-uline .

write : sy-uline .
write : 'collect后的数据:' .
loop  at  t_test.
write : / ' ' ,t_test-key , t_test-v1, t_test-v2.
endloop .
write : sy-uline .