例
PERFORM procedure-name-1 THROUGH procedure-name-2
VARYING identifier-2 FROM identifier-3
BY identifier-4 UNTIL condition-1
PERFORM ステートメントの実行終了時には、 ID-2 は、最後に使用された設定値を増加 / 減少値分超える値をもちます (ただし、PERFORM ステートメントの実行開始時に条件-1 が真であった場合には、 ID-2 に ID-3 の現行値が入ります)。
図 1 は、TEST BEFORE 句を使用して ID を変更する場合の PERFORM ステートメントの論理を示したものです。 図 2 は、TEST AFTER 句を使用して ID を変更する場合の PERFORM ステートメントの論理を示したものです。
図 1. TEST BEFORE を使用して 1 つの ID を変更する場合

図 2. TEST AFTER を使用して 1 つの ID を変更する場合
