回滚操作存储过程

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;）