首先说一下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 .