update_cma2.sql

来自「学习PL/SQL时收集的一些经典的SQL源代码」· SQL 代码 · 共 24 行

create or replace procedure update_cma2
is
   query_str 	varchar2(4000);
   cursor c1 is select distinct(grade) as grade from cma;
   dummy 	c1%rowtype; 
   i		number(11);
begin
   open c1;
   fetch  c1  into   dummy;
   i:=0;
   while c1%found  loop
   	i:=i+1;
         update_cma(dummy.grade); 
      	 fetch c1 into dummy;
   end loop;
   commit;
   close c1;
exception
   WHEN OTHERS THEN  
   	rollback;
end;
/