ADD - THEN, UNTIL - ABAP Keyword Documentation

ABAP - Keyword Documentation → ABAP - Reference → Obsolete Language Elements → Obsolete Processing of Internal Data → Obsolete Calculation Statements →

ADD - THEN, UNTIL

Quick Reference

Obsolete Syntax

ADD { { dobj1 THEN dobj2 UNTIL dobj
      { {TO result} | {GIVING result [ACCORDING TO sel]} } }
    | { dobj FROM pos1 TO pos GIVING result } }
    [RANGE range].

Effect

This variant of the statement ADD, which is not allowed in classes, adds strings of data objects that are stored in equal distances from one another in the memory.

In the variant with THEN and UNTIL, the string is defined by the distance between the data objects dobj1 and dobj2. At all memory positions whose distances to dobj1 are multiple values of this distance (up to and including the position dobj), numeric data objects with the same technical type attributes must be stored. The content of all these data objects is added. In the variant with TO, the total is added to the content of the data object result and the result is assigned to it. In the variant with GIVING, the total is directly assigned to the data object result. The data object result must be a numeric variable. If the addition ACCORDING is used, a data object of the string is added to the total only if its position in the string meets the condition in the selection table sel. The components low and high in the selection table expect the data type i.
In the variant with TO and FROM, the string is formed by data objects directly adjacent in the memory, the first data object being dobj and all having the same numeric data type. pos1 and pos expect data objects of the type i, whose values define a subset of the string. The contents of the data objects of the substring are added and assigned to the data object result. The data object result must be a numeric variable. If pos1 or pos contain negative values or if pos1 is greater than pos, the statement is not executed and result remains unchanged.

In both variants, a non-handleable exception is raised if addresses are accessed that do not contain suitable data objects.

All data objects of the string must be within a structure. If this cannot be detected statically in the syntax check, a structure range with the addition RANGE must be specified. If the data objects of the string are not part of the specified structure when the statement is executed, a non-handleable exception is raised.

The calculation type of the addition is usually determined from the operands in question.

Note

The function of these variants of the ADD statement depends on the structure of the working memory. Memory-based operations of this type should be avoided. They are not allowed in classes and can be replaced as required by the statement ASSIGN with the addition INCREMENT.

Example

The components of the structure numbers specified on the selection screen are added and the total is assigned to variable sum.

DATA: BEGIN OF numbers,
        one   TYPE p LENGTH 8 DECIMALS 0 VALUE 10,
        two   TYPE p LENGTH 8 DECIMALS 0 VALUE 20,
        three TYPE p LENGTH 8 DECIMALS 0 VALUE 30,
        four  TYPE p LENGTH 8 DECIMALS 0 VALUE 40,
        five  TYPE p LENGTH 8 DECIMALS 0 VALUE 50,
      END OF numbers,
      sum     TYPE i.

SELECT-OPTIONS position FOR sum.

ADD numbers-one THEN numbers-two
                UNTIL numbers-five
                ACCORDING TO position
                GIVING sum.

Exceptions

Handleable Exceptions

CX_SY_ARITHMETIC_OVERFLOW

Cause: Overflow while adding, type I in additions UNTIL or FROM ... TO
Runtime Error: ADDF_INT_OVERFLOW
Cause: Overflow in arithmetic operation (type p)
Runtime Error: BCD_OVERFLOW
Cause: Integer overflow while adding
Runtime Error: COMPUTE_INT_PLUS_OVERFLOW

CX_SY_CONVERSION_OVERFLOW

Cause: Overflow in arithmetic operation (type p, with specified length)
Runtime Error: BCD_FIELD_OVERFLOW

Non-Handleable Exceptions

Cause: Access to data outside of the range specified in the RANGE addition
Runtime Error: ADD_FIELDS_NOT_IN_RANGE
Cause: Invalid access to tables, strings, field references, or object references within the range specified by the addition RANGE.
Runtime Error: ADD_FIELDS_ILLEGAL_ACCESS
Cause: p field does not contain the correct BCD format
Runtime Error: BCD_BADDATA