ABAP COLLECT语句用法深入解析

我们都知道collect语句，主要用于 报表 数据的合并计算的，简单理解是：如果非数据字段值相等，那么数值字段值相加，其实这种描述不准确。

COLLECT 简单的用法：

1. LOOP  AT  t_data.
   
2.   COLLECT  t_data INTO  t_test. 
   
3. ENDLOOP .

复制代码

其中 t_data和t_test结构相同，那么有以下疑问：

• COLLECT实际运用中loop的内表（t_data）需要排序么？
• loop语句中能不能用if或者delete语句，筛选部分数据，然后collect计算呢

1、问题一：

1. *----------------------------------------------------------------------*
   
2. *   define internal tables or workarea
   
3. *   定义内表或者工作区
   
4. *----------------------------------------------------------------------*
   
5. DATA : BEGIN  OF  w_test,
   
6. key  TYPE  string,        "这是关键字段，用于根据这列来统计的V1、V2的值（这个关键字段可以是多个）
   
7. v1  TYPE  i ,
   
8. v2  TYPE  i ,
   
9. END    OF  w_test.
   
10. 
    
11. DATA : t_data LIKE  w_test OCCURS  0  WITH  HEADER  LINE .       "定义数据内表
    
12. DATA : t_data_1 LIKE  w_test OCCURS  0  WITH  HEADER  LINE .
    
13. DATA : t_test LIKE  w_test OCCURS  0  WITH  HEADER  LINE .
    
14. 
    
15. *----------------------------------------------------------------------*
    
16. *   assign value to internal tables
    
17. *   给内表赋值用于测试
    
18. *----------------------------------------------------------------------*
    
19. 
    
20. DO  8  TIMES .
    
21.   IF  sy-index  < 3 .
    
22.     t_data-key  = 'A' .
    
23.     t_data-v1  = sy-index .
    
24.     t_data-v2  = sy-index  + 1 .
    
25.   ELSEIF  sy-index  < 6 .
    
26.     t_data-key  = 'B' .
    
27.     t_data-v1  = sy-index .
    
28.     t_data-v2  = sy-index  - 1 .
    
29.   ELSE .
    
30.     t_data-key  = 'C' .
    
31.     t_data-v1  = sy-index  - 1 .
    
32.     t_data-v2  = sy-index  - 2 .
    
33.   ENDIF .
    
34.   APPEND  t_data.
    
35. ENDDO .
    
36. 
    
37. t_data_1[] = t_data[].
    
38. DO  2  TIMES .
    
39.   APPEND LINES OF t_data_1 TO t_data.
    
40. ENDDO .
    
41. 
    
42. *----------------------------------------------------------------------*
    
43. *   process interal table
    
44. *   处理内表（统计）
    
45. *----------------------------------------------------------------------*
    
46. LOOP  AT  t_data.
    
47.   COLLECT  t_data INTO  t_test.         "按关键列统计值
    
48. ENDLOOP .
    
49. 
    
50. *----------------------------------------------------------------------*
    
51. *  output internal tables
    
52. *  打印输出内表
    
53. *----------------------------------------------------------------------*
    
54. WRITE : sy-uline .
    
55. WRITE : '内表数据:' .
    
56. LOOP  AT  t_data.
    
57.   WRITE : / ' ' ,t_data-key ,t_data-v1, t_data-v2.
    
58. ENDLOOP .
    
59. WRITE : sy-uline .
    
60. 
    
61. WRITE : sy-uline .
    
62. WRITE : 'collect后的数据:' .
    
63. LOOP  AT  t_test.
    
64.   WRITE : / ' ' ,t_test-key , t_test-v1, t_test-v2.
    
65. ENDLOOP .
    
66. WRITE : sy-uline .

复制代码

测试结果：

结论：COLLECT实际运用中loop的内表不需要排序，直接loop累加计算。

2、问题二：
以collect代码稍加改变：

1. LOOP  AT  t_data.
   
2.   IF t_data-v1 = 2 OR t_data-v1 = 4 OR t_data-v1 = 5.
   
3.     COLLECT  t_data INTO  t_test.         "按关键列统计值
   
4.   ELSE.
   
5.     DELETE t_data.
   
6.   ENDIF.
   
7. ENDLOOP .

复制代码

测试结果：
 
结论：COllECT语句支持这种在loop语句中筛选数据再计算。
由此可见，COLLECT语句还是很强大的，项目中经常会有这种筛选数据在计算，不需要再额外复制内表计算了

你在实际项目中可能使用collect是遇到下面问题：

1. 'You can only use the collect command in a table if all of its non-keyfields are numeric(type I,P or F)

复制代码

只有在 COLLECT 命令的所有非关键字段均为数字（类型 I、P 或F）时才可在表中使用该命令。numeric (type I, P, or F)

使用collect就要求所有的非key fields均是I,P或者F数据类型，另外要注意的是对于standard table 而言，如果不指定key fields那么它的key fields就那些非I, P,F数据类型的fields，sorted table 和 hash table均必须指定key fields。

注意：货币类型CURR实际类型是P，所以也可以使用collect累加