存储过程2.txt

很简单的小程序

create procedure zdel is
v_jsl base.jsl%type;
cursor cur_1 is select jsl from base
       where jsl=0;
begin
open cur_1;
loop
fetch cur_1 into v_jsl;
exit when cur_1%NOTFOUND;
delete from base;
end loop;
close cur_1;
end;