利用ADD横向求和

*&---------------------------------------------------------------------*
*& Report  YZXUTEST14
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yzxutest14.

DATA: BEGIN OF numbers,
        c(100) TYPE c,
            c1(100) TYPE c,
f1   TYPE p LENGTH 8 DECIMALS 0 VALUE 10,
f2   TYPE p LENGTH 8 DECIMALS 0 VALUE 20,
f3 TYPE p LENGTH 8 DECIMALS 0 VALUE 30,
f4  TYPE p LENGTH 8 DECIMALS 0 VALUE 40,
f5  TYPE p LENGTH 8 DECIMALS 0 VALUE 50,
f6  TYPE p LENGTH 8 DECIMALS 0 VALUE 50,
END OF numbers,
sum     TYPE i.
SELECT-OPTIONS position FOR sum.

ADD   numbers-f1   THEN numbers-f2
                UNTIL numbers-f5
                ACCORDING TO position
                GIVING sum.

WRITE sum.