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.