表要素の添字の最適化例

次は、添字を最適化して使用するコード例です。

 01 a pic xx occurs 10.
 01 b pic xx occurs 10.
 01 c pic xx occurs 10.
 01 d pic xx occurs 10.
  ...
     move a(i) to b(i)
     if c(i) = d(i)
         display "pass"
     end if

上記では、添字 i が 2 つの文で 4 回使用されますが、1 回しか評価されません。 これらのテーブルの各 ストライド は同じ 2 です。