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