次の例は、固定小数点演算と浮動小数点演算を使用して評価されるステートメントを示しています。
従業員表のデータ項目を次のように定義すると仮定します。
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 average-hours pic 9(3)v9.
01 whole-hours pic 9(4).
以下のステートメントは、浮動小数点演算を使用して評価されます。
compute report-matrix-col = (emp-count ** .5) + 1 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
compute report-matrix-max =
function max(report-matrix-max report-matrix-tot)
if whole-hours not = function integer-part((average-hours) + 1)