回滾操作存儲過程

create or replace procedure roll_tab as
v_tab      varchar2(3000);
v_roll_tab varchar2(3000);
v_sql varchar2(1000);
v_sql_01 varchar2(1000);
cursor cur_tab is
        select table_name from user_tables where table_name like '%/_K'  escape '/';
begin
 open cur_tab;
 loop
  fetch cur_tab into v_tab;
  exit when cur_tab%notfound;
  --insert into u02 values(v_tab);
    select substr(v_tab,1,length(v_tab)-2) into v_roll_tab from dual;
    --insert into u01 values(v_roll_tab);
    begin
       v_sql_01:='drop view '||v_roll_tab;
       --dbms_output.put_line(v_sql_01);
       EXECUTE IMMEDIATE  v_sql_01;
         exception
          when others then
          null;
     end;
      begin
         v_sql:='alter table '||v_tab||' rename to ' ||v_roll_tab;
         --dbms_output.put_line(v_sql);
        EXECUTE IMMEDIATE  v_sql;
      exception
    when others then
   null;
     end;
  end loop;
 close cur_tab;
end;

--在每個執行命令下創建一個異常捕獲，可以避免由於出現的異常而導致下面的命令不能持續執行。

--begin
      -- v_sql_01:='drop view '||v_roll_tab;
       --dbms_output.put_line(v_sql_01);
       --EXECUTE IMMEDIATE  v_sql_01;
        -- exception
          --when others then
          --null;
    -- end;
--局部的異常處理要有begin......end;
--like '%/_K'  escape '/' (是取出於_k相匹配的字符串，用/將通配符%與_分開，並由函數escape將/去除。
--substr(v_tab,1,length(v_tab)-2) into v_roll_tab from dual;  
-- substr（字符串名，從第一個字符取，要取多少個字符）
--length(字符串名，去掉幾個字符）用來計算某個字符串的長度
--過程中不能直接使用DDL語句，要將DDL語句賦予一個變量，然後動態執行這個SQL變量（ EXECUTE IMMEDIATE  v_sql;）