通过例子学习ABAP－－ABAP编程语言 数据处理（一）

REPORT demo_data_calculate .

* / DIV MOD

DATA: pack TYPE p DECIMALS 4,
n TYPE f VALUE '+5.2',
m TYPE f VALUE '+1.1'.

pack = n / m.
WRITE pack. “pack=4.7273

pack = n DIV m.
WRITE / pack. "pack=4.0000

pack = n MOD m. "pack=0.8000
WRITE / pack.

ULINE. "一条横线

* MULTIPLY-CORRESPONDING

DATA: BEGIN OF rate,
usa TYPE f VALUE '0.6667',
frg TYPE f VALUE '1.0',
aut TYPE f VALUE '7.0',
END OF rate.

DATA: BEGIN OF money,
usa TYPE i VALUE 100,
frg TYPE i VALUE 200,
aut TYPE i VALUE 300,
END OF money.

MULTIPLY-CORRESPONDING money BY rate.

WRITE / money-usa. "money-sua=100*0.6667=67
WRITE / money-frg. "money-frg=200*1.0=200
WRITE / money-aut. "money-aut=300*7.0=2100

ULINE. "一条横线

* ADD ...

DATA: BEGIN OF series,
n1 TYPE i VALUE 10,
n2 TYPE i VALUE 20,
n3 TYPE i VALUE 30,
n4 TYPE i VALUE 40,
n5 TYPE i VALUE 50,
n6 TYPE i VALUE 60,
END OF series.

DATA sum TYPE i.

ADD series-n1 THEN series-n2 UNTIL series-n5 GIVING sum.
WRITE sum. "sum=10+20+30+40+50=150

ADD series-n2 THEN series-n3 UNTIL series-n6 TO sum.
WRITE / sum. "sum=20+30+40+50+60+150(上次运算中SUM的值)=350