COBOL Manual for TNS/E Programs (H06.03+)

Intrinsic Functions
HP COBOL Manual for TNS/E Programs—520347-003
14-63
VARIANCE Function
Example 14-43. VARIANCE 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.
01 A PICTURE 9V99.
PROCEDURE DIVISION.
MOVE FUNCTION VARIANCE (NUM(ALL)) TO A
DISPLAY A..
MOVE FUNCTION VARIANCE (9 2 5 3) TO A.
DISPLAY A.
MOVE FUNCTION VARIANCE (1.5 3.6 7.8 4.9) TO A.
DISPLAY A.
MOVE FUNCTION VARIANCE (5) TO A.
DISPLAY A.
Output:
2.70
7.18
5.21
0.00