1 PERFORM
2 プロシージャー名-1
2.1? 
2.1.0 THROUGH
2.1.0 THRU
2.1.1 プロシージャー名-2
2.1.2 ID-1
2.1.2 整数-1
2.1.3 TIMES
2.0 ID-1
2.0 整数-1
2.1 TIMES
2.2? 命令ステートメント-1
2.3 END-PERFORM