For the examples shown in Fixed-Point versus Floating-Point Arithmetic, if you define the data items in the following manner:
01 EMPLOYEE-TABLE. 05 EMP-COUNT PIC 9(4). 05 EMPLOYEE-RECORD OCCURS 1 TO 1000 TIMES DEPENDING ON EMP-COUNT. 10 HOURS PIC +9(5)E+99. . . . 01 REPORT-MATRIX-COL PIC 9(3). 01 REPORT-MATRIX-MIN PIC 9(3). 01 REPORT-MATRIX-MAX PIC 9(3). 01 REPORT-MATRIX-TOT PIC 9(3). 01 CURRENT-DAY PIC 9(7). 01 NUMBER-OF-DAYS PIC 9(3).
COMPUTE REPORT-MATRIX-COL = FUNCTION SQRT(EMP-COUNT) + 1 IF REPORT-MATRIX-TOT < FUNCTION SQRT(EMP-COUNT) + 1
ADD REPORT-MATRIX-MIN TO REPORT-MATRIX-MAX GIVING REPORT-MATRIX-TOT. IF CURRENT-DAY NOT = FUNCTION DAY-OF-INTEGER((NUMBER-OF-DAYS) + 1) COMPUTE REPORT-MATRIX-MAX = FUNCTION MAX(REPORT-MATRIX-MAX REPORT-MATRIX-TOT)
(C) Copyright IBM Corporation 1992, 2005. All Rights Reserved.