abap collect的用法与实例abap collect的用法与实例
最近发现SAP提供了好多功能,就拿collect来说,之前也用到这样的功能,但是都是自己手工写的代码,现在有了它,以后处理内表中的数据按某些列来统计数据就方便多了,collect可以用于select.....endselect,也可以用于内表中的数据处理,但是不推荐在select....endselect中使用。collect是根据某些关键列来分类统计数据某些数字列的和的过程,下列通过一个例子来了解collect的用法:
处理结果如下所示:
程序如下所示:
*&---...
abap collect的用法与实例
最近发现SAP提供了好多功能,就拿collect来说,之前也用到这样的功能,但是都是自己手工写的代码,现在有了它,以后处理内表中的数据按某些列来统计数据就方便多了,collect可以用于select.....endselect,也可以用于内表中的数据处理,但是不推荐在select....endselect中使用。collect是根据某些关键列来分类统计数据某些数字列的和的过程,下列通过一个例子来了解collect的用法:
处理结果如下所示:
程序如下所示:
*&---------------------------------------------------------------------*
*& Report ZTEST_COLLECT
*&
*&---------------------------------------------------------------------*
*& Create By : flying
*& Create Date : 2009-12-31
*& Descriptions : 测试collect的用法
*&---------------------------------------------------------------------*
REPORT ZTEST_COLLECT.
*----------------------------------------------------------------------*
* 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.
本文档为【abap collect的用法与实例】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
该文档来自用户分享,如有侵权行为请发邮件ishare@vip.sina.com联系网站客服,我们会及时删除。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。