PROCEDUREを使用 2つのテーブル間でカーソルを使用しデータをINSERTしたい

Question

前提・実現したいこと

コマンドプロンプトでSQL*Plusを起動し、sqlファイルを実行することでデータベースの操作を行っています。
以下手順の３の添削をお願いします。(１，２は動作確認済)

１　テーブルを作成後、作成テーブルを元に別テーブルを作成
２　作成したテーブルの内、1テーブルにデータをINSERTする
３　データ投入したテーブルからもう片方のテーブルへカーソルを使用し、データをINSERTする
※③ではDECLARE文を使用せず、CREATE OR REPLACE PROCEDURE又はCREATE OR REPLACE FUNCTIONを用いる

発生している問題・エラーメッセージ

３のファイルを実行時、以下のエラーが表示される
警告：プロシージャが作成されましたが、コンパイル・エラーがあります。

該当のソースコード

１　動作確認済
--テーブル1「onetable」を作成
CREATE TABLE onetable
	(
	USER_ID VARCHAR2(10) NOT NULL,
	USER_NAME VARCHAR2(50),
	gender_f NUMBER(1,0)
	)
;
--テーブル1「onetable」を元にテーブル2「twotable」を作成
CREATE TABLE twotable
AS SELECT * FROM onetable;

２　動作確認済
--②作成したテーブルの内、1テーブルにデータ投入(INSERT)したSQLファイルを作成

--テーブル1(onetable)にデータを投入する
INSERT INTO onetable
	(
	USER_ID,
	USER_NAME,
	gender_f
	)VALUES(
	'1234',
	'testuser',
	1
	);
COMMIT;

３
/*③PROCEDUREを使用し、②でデータ投入したテーブル「onetable」から
もう片方のテーブル「twotable」へカーソルを使用しデータを投入する。*/

--プロシージャ「testproc」を作成
CREATE OR REPLACE PROCEDURE testproc(USER_ID in VARCHAR2,USER_NAME in VARCHAR2,gender_f in NUMBER)
IS
--カーソル「selcur」の宣言をする
	CURSOR selcur IS
	SELECT * FROM onetable;
	
BEGIN
--カーソルを開く
	OPEN selcur;
--1行ごとにデータを取り出す
	FETCH selcur INTO USER_NAME,USER_ID,gender_f
	INSERT INTO TABlE VALUES(USER_NAME,USER_ID,gender_f)
--カーソルを閉じる
CLOSE selcur;

COMMIT;

END;
/

試したこと

コメントを参考に/の挿入、
CREATE OR REPLACE PROCEDURE testprocの後に(USER_ID in VARCHAR2,USER_NAME in VARCHAR2,gender_f in NUMBER)を追加しました。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[KOZ6.0]

SQL*Plus では「/*」のあとにスペースか改行を入れないと、コメントとみなされず、前のSQLブロックを実行してしまいますので注意してください。

[nolyu]

知りませんでした、ありがとうございます。気を付けます。

Answer 1

PROCEDURE は LOOPがないから1行しか INSERTされません。簡単なところで
FOR LOOPのサンプル

最後の
END;
の次の行に
/
は必須です。

EXCEPTIONはきちんと書きましょう。’エラー’ とだけ表示するのでは何の意味もありません。

数年前にとてもお金を貰えるレベルではない人たちが書いた100本以上のPL/SQLでまったく使い物にならないシステムを見たことがあります。
開発費を払うなんてとんでもない。賠償請求しないとバカにされますよ、ってお客様に伝えて終わり。

Comments

[nolyu]

ありがとうございます。/を追加しました。
戴いたURLですが、DECLARE文だったので今回のファイルでは使用できませんでした。

[Orlofsky]

PROCEDURE でも最後の
/
は必要です。
PL/SQLはつまみ食いではなくきちんと勉強してください。

[Orlofsky]

何を参考にPL/SQLを書いていますか？URLか書籍があるなら質問に追記しては？

間違いを見つけ易くするため、
>２　動作確認済
のINSERTを横1行に直して、あと2行INSERTを追加してください。

今時点でのPL/SQLのBEGIN ～ END の間はコメントを含めてコードは4桁字下げに統一してください。

回答に載せたLOOPは無視で良いの？

>INSERT INTO TABlE ...

TABlE のCREATE TABLEも追加してください。

質問に追加した
/
の次にもう1行
SHOW ERROR PROCEDURE testproc
を追加して、表示されたエラー・メッセージを質問に追記しては？

PROCEDURE の実行文も質問に追記してください。

おむつ交換は有料です。

Answer 2

3ではPROCEDUREを作成しているだけですから、実行はされませんよ。

ストアドプロシージャを実行する