繰り返し処理中で結果が常に同じになるような式や代入を繰り返し処理の前に移動することによって,繰り返し内の実行命令数を削減します。
:
:
:
PERFORM VARYING I
FROM 1 BY 1 UNTIL I = 100
MULTIPLY A BY B GIVING C(I)
MOVE 10 TO D
END-PERFORM.
:
MULTIPLY A BY B GIVING temp.
MOVE 10 TO D.
PERFORM VARYING I
FROM 1 BY 1 UNTIL I = 100
MOVE temp TO C(I)
END-PERFORM.
: