PERFORM ステートメント - 形式 3

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

句 2:

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