abap collect对内表统计

REPORT  ZTESTIAN5 .
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  .