>>108
うちは富士通汎用機ＣＯＢＯＬＧですが・・・
PERFORM文は

PERFORM A01 THRU AEX.

A01.
****
A02.
****
AEX.
EXIT.

のようにPERFORMする処理の出口に形式的に付けてます。
ちなみに省略可。（PERFORM A01 THRU A02と同じ意味）
ちょっとわかりにくくて済みません。なんでEXIT PERFORMは
みたことないです