利用ADD横向求和

最新推荐文章于 2023-06-23 00:55:24 发布

zhouxu841023

最新推荐文章于 2023-06-23 00:55:24 发布

阅读量1.3w

点赞数

分类专栏： SAP ABAP技术文章标签： numbers report c

本文链接：https://blog.csdn.net/zhouxu841023/article/details/6019232

版权

SAP ABAP技术专栏收录该内容

34 篇文章 2 订阅

订阅专栏

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