ストアドプロシージャの作成

この前、テーブル全削除のPL/SQLを作成しました。

しかし毎回テキストを開いて貼り付けて実行って手順が面倒になってきたのでプロシージャとして作成することにしました。

基本構文は

create or replace procedure

なんですが久々だったので結構忘れちゃって苦労しました(^_^;)

最終的にはこんな↓感じにしてみました。

create or replace procedure table_init
is
　wk_sql varchar2(1000);
　usertable user_tables%rowtype;
　cursor cu is select * from user_tables;
begin
　open cu;
　loop
　　fetch cu into usertable;
　　exit when cu%notfound;
　　wk_sql := 'truncate table ' || usertable.table_name;
　　EXECUTE IMMEDIATE wk_sql;
　end loop;
　close cu;
exception
　when OTHERS then
　　dbms_output.put_line(SQLCODE || ',' || SQLERRM);
end;
/