フォーマット 3: UNTIL 句を含む PERFORM ステートメント 

1 PERFORM
2 プロシージャー名-1
2.1? 
2.1.0 THROUGH
2.1.0 THRU
2.1.1 プロシージャー名-2
2.1.2 %句 1
2 %句 1
2.1? 命令ステートメント-1
2.2 END-PERFORM

句 1

1? WITH
1.1 TEST
1.2 BEFORE
1.2 AFTER
2 UNTIL 条件-1