利用ADD横向求和

来源:互联网 发布:会员注册页面html源码 编辑:程序博客网 时间:2024/04/28 17:39

*&---------------------------------------------------------------------*
*& 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.

原创粉丝点击