This function returns the extent of an array
field or variable as an INTEGER value. More specifically, it returns:
- The constant or variable extent value for a field or variable defined
as a determinate array
- The Unknown value (?) for a field or variable defined
as an unfixed indeterminate array
- The extent for a field or variable defined as a fixed indeterminate array
- Zero for a field or variable that is not an array
Note: The EXTENT function corresponds to the EXTENT
attribute.
Syntax
-
array
- Any array field or variable.
Example
In
the following example, the EXTENT function is used to set the limit
of a DO loop that cycles through all elements of an array:
r-arrext.p
DEFINE VARIABLE int_value AS INTEGER NO-UNDO EXTENT 3 INITIAL [1, 2, 3].
DEFINE VARIABLE ix AS INTEGER NO-UNDO .
DEFINE VARIABLE tot AS INTEGER NO-UNDO LABEL "The total is".
DO ix = 1 TO EXTENT(int_value):
tot = tot + int_value[ix].
END.
DISPLAY tot.
|