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

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

句 3:

1? WITH
1.1 TEST
1.2 BEFORE
1.2 AFTER
2 VARYING
3 ID-2
3 指標名-1
4 FROM
5 ID-3
5 指標名-2
5 リテラル-1
6 BY
7 ID-4
7 リテラル-2
8 UNTIL 条件-1
9? 
9+ 
9 %句 4

句 4:

1 AFTER
2 ID-5
2 指標名-3
3 FROM
4 ID-6
4 指標名-4
4 リテラル-3
5 BY
6 ID-7
6 リテラル-4
7 UNTIL 条件-2