以下の例は、ALL 添え字を使用して、テーブル内の一部またはすべてのエレメントに組み込み関数を適用する方法を示しています。
Table-Two が 2 x 3 x 2 の配列であるとすると、次のステートメントによってエレメント Table-Two(1,3,1)、Table-Two(1,3,2)、Table-Two(2,3,1)、 および Table-Two(2,3,2) の値が加算されます。
Compute Table-Sum = FUNCTION SUM (Table-Two(ALL, 3, ALL))
次の例は、全従業員のさまざまな給与値を計算します。給与は Employee-Table でエンコードされています。
01 Employee-Table.
05 Emp-Count Pic s9(4) usage binary.
05 Emp-Record Occurs 1 to 500 times
depending on Emp-Count.
10 Emp-Name Pic x(20).
10 Emp-Idme Pic 9(9).
10 Emp-Salary Pic 9(7)v99.
. . .
Procedure Division.
Compute Max-Salary = Function Max(Emp-Salary(ALL))
Compute I = Function Ord-Max(Emp-Salary(ALL))
Compute Avg-Salary = Function Mean(Emp-Salary(ALL))
Compute Salary-Range = Function Range(Emp-Salary(ALL))
Compute Total-Payroll = Function Sum(Emp-Salary(ALL))