ADD的用法

*&---------------------------------------------------------------------*
*& Report  ZADD
*& 作成者：張玉剛
*&---------------------------------------------------------------------*
*& 作成日  :2009/07/31
*& 処理概要:ADDの使い方
*&---------------------------------------------------------------------*

REPORT  ZADD.

*&---------------------------------------------------------------------*
*& ADD n TO m
*&---------------------------------------------------------------------*
DATA: NUMBER TYPE I VALUE 3,
      SUM    TYPE I VALUE 5.
ADD NUMBER TO SUM.

WRITE SUM.

"結果：8

*&---------------------------------------------------------------------*
*& ADD n1 THEN n2 UNTIL nz GIVING m
*&---------------------------------------------------------------------*
DATA: BEGIN OF NUMBERS,
        ONE   TYPE P VALUE 10,
        TWO   TYPE P VALUE 20,
        THREE TYPE P VALUE 30,
        FOUR  TYPE P VALUE 40,
        FIVE  TYPE P VALUE 50,
        SIX   TYPE P VALUE 60,
      END   OF NUMBERS,
      SUM TYPE I VALUE 1000.
ADD NUMBERS-ONE THEN  NUMBERS-TWO
                UNTIL NUMBERS-FIVE GIVING SUM.
WRITE SUM.

"結果：150

*&---------------------------------------------------------------------*
*& ADD n1 THEN n2 UNTIL nz TO m
*&---------------------------------------------------------------------*
DATA: BEGIN OF NUMBERS,
        ONE   TYPE P VALUE 10,
        TWO   TYPE P VALUE 20,
        THREE TYPE P VALUE 30,
        FOUR  TYPE P VALUE 40,
        FIVE  TYPE P VALUE 50,
      END   OF NUMBERS,
      SUM TYPE I VALUE 1000.
ADD NUMBERS-ONE THEN  NUMBERS-TWO
                UNTIL NUMBERS-FIVE TO SUM.

"結果：1150

*&---------------------------------------------------------------------*
*& ADD n1 THEN n2 UNTIL nz ...ACCORDING TO sel ...GIVING m
*&---------------------------------------------------------------------*
DATA: BEGIN OF NUMBERS,
        ONE   TYPE P VALUE 10,
        TWO   TYPE P VALUE 20,
        THREE TYPE P VALUE 30,
        FOUR  TYPE P VALUE 40,
        FIVE  TYPE P VALUE 50,
      END   OF NUMBERS,
      SUM   TYPE I VALUE 1000,
      INDEX TYPE I.
RANGES SELECTION FOR INDEX.

SELECTION-SIGN   = 'I'.
SELECTION-OPTION = 'BT'.
SELECTION-LOW    = 2.
SELECTION-HIGH   = 4.
APPEND SELECTION.

ADD NUMBERS-ONE THEN NUMBERS-TWO
                UNTIL NUMBERS-FIVE
                ACCORDING TO SELECTION
                GIVING SUM.

"結果：90

*&---------------------------------------------------------------------*
*& ADD n1 FROM m1 TO mz GIVING m
*&---------------------------------------------------------------------*
DATA: BEGIN OF NUMBERS,
        ONE   TYPE P VALUE 10,
        TWO   TYPE P VALUE 20,
        THREE TYPE P VALUE 30,
        FOUR  TYPE P VALUE 40,
        FIVE  TYPE P VALUE 50,
      END   OF NUMBERS,
      START TYPE I VALUE 2,
      SUM   TYPE I VALUE 1000.
ADD NUMBERS-ONE FROM START TO 4 GIVING SUM.

"結果：90