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. DATA : t_data LIKE  w_test OCCURS  0  WITH  HEADER  LINE .       “定义数据内表
  11. DATA : t_data_1 LIKE  w_test OCCURS  0  WITH  HEADER  LINE .
  12. DATA : t_test LIKE  w_test OCCURS  0  WITH  HEADER  LINE .

  13. *———————————————————————-*
  14. *   assign value to internal tables
  15. *   给内表赋值用于测试
  16. *———————————————————————-*

  17. DO  8  TIMES .
  18.   IF  sy-index  < 3 .
  19.     t_data-key  = ‘A’ .
  20.     t_data-v1  = sy-index .
  21.     t_data-v2  = sy-index  + 1 .
  22.   ELSEIF  sy-index  < 6 .
  23.     t_data-key  = ‘B’ .
  24.     t_data-v1  = sy-index .
  25.     t_data-v2  = sy-index  – 1 .
  26.   ELSE .
  27.     t_data-key  = ‘C’ .
  28.     t_data-v1  = sy-index  – 1 .
  29.     t_data-v2  = sy-index  – 2 .
  30.   ENDIF .
  31.   APPEND  t_data.
  32. ENDDO .

  33. t_data_1[] = t_data[].
  34. DO  2  TIMES .
  35.   APPEND LINES OF t_data_1 TO t_data.
  36. ENDDO .

  37. *———————————————————————-*
  38. *   process interal table
  39. *   处理内表(统计)
  40. *———————————————————————-*
  41. LOOP  AT  t_data.
  42.   COLLECT  t_data INTO  t_test.         “按关键列统计值
  43. ENDLOOP .

  44. *———————————————————————-*
  45. *  output internal tables
  46. *  打印输出内表
  47. *———————————————————————-*
  48. WRITE : sy-uline .
  49. WRITE : ‘内表数据:’ .
  50. LOOP  AT  t_data.
  51.   WRITE : / ‘ ‘ ,t_data-key ,t_data-v1, t_data-v2.
  52. ENDLOOP .
  53. WRITE : sy-uline .

  54. WRITE : sy-uline .
  55. WRITE : ‘collect后的数据:’ .
  56. LOOP  AT  t_test.
  57.   WRITE : / ‘ ‘ ,t_test-key , t_test-v1, t_test-v2.
  58. ENDLOOP .
  59. WRITE : sy-uline .

复制代码

测试结果:

abap中collect的使用详解编程语言
结论: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 .

复制代码

测试结果:


abap中collect的使用详解编程语言 



结论: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累加

原创文章,作者:Maggie-Hunter,如若转载,请注明出处:https://blog.ytso.com/20131.html

(0)
上一篇 2021年7月19日
下一篇 2021年7月19日

相关推荐

发表回复

登录后才能评论