declare
-- Local variables here
i integer;
v_no varchar2(30);--号
cursor c_get_no is select no from a_ist where d_no='2';
begin
-- Test statements here
for v_get_no in c_get_no loop
v_no := v_get_no.no;--号
delete from t_dfee_del where no=v_no;
end loop;
exception
when others then rollback;
v_errmsg := substr(sqlerrm,1,150);
if v_get_no%isopen then
close v_get_no;
end if;
end;
扫一扫
到【灌水乐园】发言
