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

句 1:

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

句 2:

1+ 
1 AFTER
1.1 ID-5
1.1 指標名-3
1.2 FROM
1.3 ID-6
1.3 指標名-4
1.3 リテラル-3
1.4 %句 3

句 3:

1 BY
2 ID-7
2 リテラル-4
3 UNTIL 条件-2