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