Help Me!!关于内表modify之后进行求和的问题

ERP俱乐部
ERP爱好者、ERP从业者互相交流、互相学习的乐园；我们的愿景是成为全球一流的中文ERP(Enterprise Resource Planning)交流平台

网站首页

论坛首页

搜索

用户列表

FAQ

ERP俱乐部 -> SAP专栏 -> ABAP -> Help Me!!关于内表modify之后进行求和的问题

Help Me!!关于内表modify之后进行求和的问题

帖子发起人: 浪客发起时间: 2008-06-24 03:32 下午 回复数: 8

楼主

2008-06-24, 03:32 下午

浪客

等级: 10级
注册: 2008年6月10日
经验: 15
积分: 15
精华: 0
发贴: 13
排名: 2,088

Help Me!!关于内表modify之后进行求和的问题

代码如下：
   MODIFY W_IT_LEVEL_EDIT FROM W_STR_LEVEL_EDIT
TRANSPORTING RACCT TXT20 WHERE RACCT IS NOT INITIAL .

内表W_IT_LEVEL_EDIT 的数据如下：
   a1 b1 c1 d1 space space 1 2 3 4
   a1 b1 c1 d1 space space 2 3 4 5
   a1 b1 c1 d1 space space 1 2 3 4

要求：不用loop。。。endloop的方法进行求和。得到的结果是：
   a1 b1 c1 d1 space space 4 7 10 13

那位高手有批处理的方法！！！！！！！教教偶吧！！！！！

在线等待。。。。。。。。。。。。。。。。。。

分享按钮

IP 地址: 已登录来自: 已登录

第 2 楼

2008-06-24, 04:08 下午

qhjn

等级: 30级
注册: 2006年6月14日
经验: 65
积分: 45
精华: 0
发贴: 40
排名: 413

Re: Help Me!!关于内表modify之后进行求和的问题

用COLLECT命令应该可以实现。

IP 地址: 已登录来自: 已登录

第 3 楼

2008-06-24, 04:12 下午

浪客

等级: 10级
注册: 2008年6月10日
经验: 15
积分: 15
精华: 0
发贴: 13
排名: 2,088

Re: Help Me!!关于内表modify之后进行求和的问题

恩。用COLLECT命令可以实现。但是用它的时候是不是还要在LOOP。。。。ENDLOOP下进行？
如果不在LOOP。。。。ENDLOOP下进行话还有其他办法吗？
不想再LOOP。。。。ENDLOOP下处理的目的是为了提高处理速度。

分享按钮

IP 地址: 已登录来自: 已登录

第 4 楼

2008-06-24, 04:43 下午

qhjn

等级: 30级
注册: 2006年6月14日
经验: 65
积分: 45
精华: 0
发贴: 40
排名: 413

Re: Help Me!!关于内表modify之后进行求和的问题

TYPES:BEGIN OF TYP_DATA,
FIELD1(2) TYPE C,
FIELD2(2) TYPE C,
FIELD3(2) TYPE C,
FIELD4(2) TYPE C,
FIELD5(2) TYPE C,
FIELD6(2) TYPE C,
FIELD7 TYPE I,
FIELD8 TYPE I,
FIELD9 TYPE I,
FIELD10 TYPE I,
END OF TYP_DATA.
DATA:IT_DATA TYPE TABLE OF TYP_DATA,
IT_SUM TYPE TABLE OF TYP_DATA.
DATA:WA_DATA LIKE LINE OF IT_DATA.

CLEAR:WA_DATA.
WA_DATA-FIELD1 = 'a1'.
WA_DATA-FIELD2 = 'b1'.
WA_DATA-FIELD3 = 'c1'.
WA_DATA-FIELD4 = 'd1'.
WA_DATA-FIELD5 = ''.
WA_DATA-FIELD6 = ''.
WA_DATA-FIELD7 = '1'.
WA_DATA-FIELD8 = '2'.
WA_DATA-FIELD9 = '3'.
WA_DATA-FIELD10 = '4'.
APPEND WA_DATA TO IT_DATA.

CLEAR:WA_DATA.
WA_DATA-FIELD1 = 'a1'.
WA_DATA-FIELD2 = 'b1'.
WA_DATA-FIELD3 = 'c1'.
WA_DATA-FIELD4 = 'd1'.
WA_DATA-FIELD5 = ''.
WA_DATA-FIELD6 = ''.
WA_DATA-FIELD7 = '2'.
WA_DATA-FIELD8 = '3'.
WA_DATA-FIELD9 = '4'.
WA_DATA-FIELD10 = '5'.
APPEND WA_DATA TO IT_DATA.

CLEAR:WA_DATA.
WA_DATA-FIELD1 = 'a1'.
WA_DATA-FIELD2 = 'b1'.
WA_DATA-FIELD3 = 'c1'.
WA_DATA-FIELD4 = 'd1'.
WA_DATA-FIELD5 = ''.
WA_DATA-FIELD6 = ''.
WA_DATA-FIELD7 = '1'.
WA_DATA-FIELD8 = '2'.
WA_DATA-FIELD9 = '3'.
WA_DATA-FIELD10 = '4'.
APPEND WA_DATA TO IT_DATA.

CLEAR:WA_DATA.
READ TABLE IT_DATA INTO WA_DATA INDEX 1.
COLLECT WA_DATA INTO IT_SUM.

CLEAR:WA_DATA.
READ TABLE IT_DATA INTO WA_DATA INDEX 2.
COLLECT WA_DATA INTO IT_SUM.

CLEAR:WA_DATA.
READ TABLE IT_DATA INTO WA_DATA INDEX 3.
COLLECT WA_DATA INTO IT_SUM.

CLEAR:WA_DATA.
READ TABLE IT_SUM INTO WA_DATA INDEX 1.
WRITE: WA_DATA-FIELD7,WA_DATA-FIELD8,WA_DATA-FIELD9,WA_DATA-FIELD10.

IP 地址: 已登录来自: 已登录