表要素の添え字の最適化例

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

 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 です。