存储过程2.txt

来自「很简单的小程序」· 文本 代码 · 共 13 行

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;