COLLECT 用法

墨蓝 2022-05-25 07:57 198阅读 0赞

\*&---------------------------------------------------------------------\*  
\*& Report ZLXF22  
\*&---------------------------------------------------------------------\*  
\*&  
\*&---------------------------------------------------------------------\*  
REPORT zlxf22.  
  
  
TYPES:BEGIN OF ty\_test,  
        id(3)  TYPE c,  
        id2(3) TYPE c,  
        menge  TYPE i,  
      END OF ty\_test.  
  
DATA:i\_test  TYPE TABLE OF ty\_test,  
     w\_test  TYPE ty\_test,  
     w\_test2 TYPE ty\_test.  
DATA:i\_test2 TYPE TABLE OF ty\_test.  
  
w\_test\-id = '001'.  
w\_test\-id2 = 'XX'.  
w\_test\-menge = 10.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '001'.  
w\_test\-menge = 70.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '002'.  
w\_test\-menge = 20.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '002'.  
w\_test\-menge = 50.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '002'.  
w\_test\-menge = 80.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '003'.  
w\_test\-menge = 30.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
w\_test\-id = '003'.  
w\_test\-menge = 90.  
APPEND w\_test TO i\_test.  
CLEAR  w\_test  .  
  
  
  
WRITE:/ 'Collect前的内容：'  .  
WRITE:/1(12) '编号' ,   '数量'.  
LOOP AT i\_test INTO w\_test.  
  WRITE:/ w\_test\-id , ' ', w\_test\-id2 , ' ', w\_test\-menge.  
  CLEAR:w\_test.  
ENDLOOP.  
  
  
WRITE:/ .  
  
  
  
  
WRITE:/ 'Collect后的结果：'  .  
WRITE:/1(12) '编号' ,   '数量'.  
  
LOOP AT i\_test INTO w\_test.  
  
\*  COLLECT w\_test INTO i\_test2."关键一步。。。"  
  
  w\_test2\-id = w\_test\-id.  
  w\_test2\-menge = w\_test\-menge .  
  
  "虽然结构中有，但是是没有赋值，仍然不会以此条件分类汇总  
  COLLECT w\_test2 INTO i\_test2."关键一步。。。"  
  
  CLEAR:w\_test,w\_test2 .  
ENDLOOP.  
  
LOOP AT i\_test2 INTO w\_test.  
  
  WRITE:/ w\_test\-id , ' ',w\_test\-menge.  
  CLEAR:w\_test.  
ENDLOOP.  
  
  
  
  
  
WRITE:/ 'Collect后的结果2：'  .  
WRITE:/1(12) '编号' ,   '数量'.  
  
LOOP AT i\_test INTO w\_test.  
  COLLECT w\_test INTO i\_test2."关键一步。。。"  
  CLEAR:w\_test.  
  EXIT .  "运行了一次退出循环  
ENDLOOP.  
  
LOOP AT i\_test2 INTO w\_test.  
  WRITE:/ w\_test\-id , ' ',w\_test\-menge.  
  CLEAR:w\_test.  
ENDLOOP.  
  
  
  
WRITE:/ 'Collect后的结果3：'  .  
WRITE:/1(12) '编号' ,   '数量'.  
DATA: lv\_i TYPE i .  
lv\_i = 0 ..  
LOOP AT i\_test INTO w\_test.  
  lv\_i = lv\_i + 1 .  
  COLLECT w\_test INTO i\_test2."关键一步。。。"  
  CLEAR:w\_test.  
  IF lv\_i EQ 2.  
    EXIT .  "运行了二次退出循环  
  ENDIF .  
ENDLOOP.  
  
LOOP AT i\_test2 INTO w\_test.  
  WRITE:/ w\_test\-id , ' ',w\_test\-menge.  
  CLEAR:w\_test.  
ENDLOOP.  
![70][]

结果1中虽然汇总前有001-空白和001-XX ,应该分两行的。但是在LOOP过程中没赋ID2没赋值，所以也显示一行

结果2中 有EXIT 所以只COLLECT 了一次，但恰好又是带XX的，所以与原来结果不汇总。

结果3中 有EXIT 所以只COLLECT 了二次，按正常汇总。

总之 汇总结果跟COLLECT 后面那个结构中是否有值 有关。

另：非字符类都是过滤条件，数值类都要汇总，如果过滤的条件是值需转换成字符。

[70]: /images/20220525/5f405e677c444ef09b72783de8abf941.png