次は、添字を最適化して使用するコード例です。
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 です。