SQL GO TOするには？

質問

SELECTしたものを飛ばしてからINSERTしたいのですが、
どうしたら良いですか？

CURSOR A is
　SELECT～～～

BEGIN
　FOR rec IN cur_z LOOP
　　項目追加(Arec);
　END LOOP;
END;

PROCEDURE 項目追加(rec) IS　←ここでエラー
BEGIN　　
　INSERT～～～～
END 項目追加;

としてあるのですが、
PLS-00103: 記号"PROCEDURE"が見つかりました。
PLS-00103: 記号")"が見つかりました。
のエラーが出ます。

回答No.1

hakugen

的外れだったらごめんなさい。

> SELECTしたものを飛ばしてからINSERTしたいのですが、
> どうしたら良いですか？
これを実現するにはPROCEDUREを用いなくてもできるのですが、それではダメなのでしょうか。

INSERT INTO テーブルA
　SELECT 項目A, 項目B, … FROM テーブルB WHERE … ;

お礼

それが出来れば楽なんですよね。
条件の分岐が４つありまして…

もちろん最初はそれでやろうと思ってたんですけど、
IF　あ
　　なんたらかんたら
END IF
IF　い
　　なんたらかんたら
END IF

INSERT

とか考えてました…。
でもこれ（SQL文の中にIF文入れる）ができるのってACCESS特有ですよね。
今までほとんどACCESSでOracleあんまりやったことなくって。

というわけで、

BEGIN
　FOR rec カーソル１LOOP
　　IF カーソル１の条件だったら
　　　PROCEDURE 項目追加(rec)
　　END IF
　END LOOP
　・・・２
　・・・３
　・・・４
END PG

としたら楽だなぁと思ったんです。
それに、参照元のテーブルが２つで、
INSERTするテーブルが８５項目あるので少しでも楽したいと思って＞＜。

アドバイスありがと～です。