COBOL Manual for TNS and TNS/R Programs

Intrinsic Functions
HP COBOL Manual for TNS and TNS/R Programs—522555-006
14-32
MEDIAN Function
MEDIAN Function
MEDIAN, a numeric function, returns the value that would be the middle value in a list
formed by sorting its arguments numerically.
argument
is a numeric argument.
argument can be an array; for example,
FUNCTION MEDIAN (ARRAY1(ALL))
returns the median element of the array ARRAY1.
Example 14-22. MEAN Function
Code:
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NUMERIC-ARRAY.
05 PICTURE 9(1) VALUE 4.
05 PICTURE 9(1) VALUE 9.
05 PICTURE 9(1) VALUE 3.
05 PICTURE 9(1) VALUE 7.
05 PICTURE 9(1) VALUE 5
01 NUM-ARRAY REDEFINES NUMERIC-ARRAY.
05 NUM OCCURS 5 TIMES PICTURE 9(1).
01 A PICTURE S9V9.
PROCEDURE DIVISION.
MOVE FUNCTION MEAN (NUM(ALL)) TO A.
DISPLAY A.
MOVE FUNCTION MEAN (NUM(1) NUM(3) NUM(5)) TO A.
DISPLAY A.
MOVE FUNCTION MEAN (3.4 5 6.2 9) TO A.
DISPLAY A.
Output:
5.6
4.0
5.9
( )
MEDIANFUNCTION argument
VST441.vsd