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