您好,欢迎来到宝玛科技网。
搜索
您的当前位置:首页SAP 累加一行的多个字段值的两种方式

SAP 累加一行的多个字段值的两种方式

来源:宝玛科技网

起因:几年前刚刚入行ABAP时,一个小伙伴问我有啥方式能累加一个工作区中多个字段值,我第一想到的是直接

N1 + N2 + N3 。。。不就行了,然后想着字段多的话,这样写起来还挺丑的,就换了个指针的方式,也就是下文的第一种方法。第二种方式是小伙伴告知的,也是最为方便的快捷的。

代码如下:

DATA:BEGIN OF L_LINE,
       VAR1  TYPE P,
       VAR2  TYPE P,
       VAR3  TYPE P,
       VAR4  TYPE P,
       VAR5  TYPE P,
       VAR6  TYPE P,
       VAR7  TYPE P,
       VAR8  TYPE P,
       VAR9  TYPE P,
       VAR10 TYPE P,
       VAR11 TYPE P,
       VAR12 TYPE P,
     END OF L_LINE.

DATA LT_TAB LIKE TABLE OF L_LINE.

DATA P TYPE I.
DATA V TYPE CHAR5.
DATA D TYPE I.
DATA VALUE TYPE P.
DATA L_VALUE TYPE P.
DATA STRC TYPE CHAR20.

FIELD-SYMBOLS:<FS> LIKE LINE OF LT_TAB.
FIELD-SYMBOLS:<ST> TYPE ANY.

L_LINE-VAR1 = 1.
L_LINE-VAR2 = 2.
L_LINE-VAR3 = 3.
L_LINE-VAR4 = 4.
L_LINE-VAR5 = 5.
L_LINE-VAR6 = 6.

APPEND L_LINE TO LT_TAB.
D = 6.

1. 指针方式代码

LOOP AT LT_TAB ASSIGNING <FS>.
  P = 0.
  DO D TIMES .
    P = P + 1.
    V = P.
    CONDENSE V.
    CONCATENATE 'VAR' V INTO STRC.
    ASSIGN COMPONENT STRC OF STRUCTURE <FS> TO <ST>.

    VALUE = VALUE + <ST>.

  ENDDO.
ENDLOOP.

WRITE:VALUE,/.

2. varying  from  语法

clear value.
do d times varying l_value from l_line-var1 next l_line-var2.
 value = value + l_value.
enddo.

WRITE VALUE.

因篇幅问题不能全部显示,请点此查看更多更全内容

Copyright © 2019- baomayou.com 版权所有 赣ICP备2024042794号-6

违法及侵权请联系:TEL:199 18 7713 E-MAIL:2724546146@qq.com

本站由北京市万商天勤律师事务所王兴未律师提供法律服务