PERFORM xx
VARYING id-2 FROM id-3 BY id-4 UNTIL cond-1
AFTER id-5 FROM id-6 BY id-7 UNTIL cond-2
AFTER id-8 FROM id-9 BY id-10 UNTIL cond-3.
MOVE id-3 TO id-2.
MOVE id-6 TO id-5
MOVE id-9 TO id-8
PERFORM UNTIL cond-1
PERFORM UNTIL cond-2
PERFORM UNTIL cond-3
PERFORM xx
ADD id-10 TO id-8
END-PERFORM
MOVE id-9 TO id-8
ADD id-7 TO id-5
END-PERFORM
MOVE id-6 TO id-5
ADD id-4 TO id-2
END-PERFORM
この例では、すべての id-x が ID であると仮定しています。いずれかが索引名である場合は、MOVE ステートメントではなく SET ステートメントを使用しなければなりません。
MOVE id-3 TO id-2.
MOVE id-6 TO id-5.
PERFORM UNTIL cond-1
PERFORM UNTIL cond-2
PERFORM VARYING id-8 FROM id-9 BY id-10 UNTIL cond-3
PERFORM XX
END-PERFORM
ADD id-7 TO id-5
END-PERFORM
MOVE id-6 TO id-5
ADD id-4 TO id-2
END-PERFORM