COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-51
RANGE Function
Example 14-34. RANGE Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMERIC-ARRAY.
05 PICTURE 9V99 VALUE 0.05.
05 PICTURE 9V99 VALUE 1.15.
05 PICTURE 9V99 VALUE 2.50.
05 PICTURE 9V99 VALUE 3.75.
05 PICTURE 9V99 VALUE 4.55.
01 NUM-ARRAY REDEFINES NUMERIC-ARRAY.
05 NUM OCCURS 5 TIMES PICTURE 9V99.
PROCEDURE DIVISION.
DISPLAY FUNCTION RANGE (NUM(ALL))
DISPLAY FUNCTION RANGE (9 2 5 3.5)
DISPLAY FUNCTION RANGE (1.5 3.6 7.8 4.9)
Output:
4.50
7.0
6.3