固定小数点演算と浮動小数点演算に示されている例において、次の方法でデータ項目を定義すると、
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, 2006. All Rights Reserved.