あ、すみません、初心者なので。。。
知りたいのは

PERFORM UNTIL 〜〜
PERFROM READ_RTN
END-PERFORM.
と
PERFORM READ_RTN.
だとREAD_RTNを通る回数が同じになるのかを知りたかったんです