declare
l_Lnum number default 1;
l_Sdrow number default 0;
l_Edrow number default 0;
begin
l_Sdrow :=&Sdrow;
l_Edrow :=&Edrow;
while l_Lnum <= trunc(l_Sdrow/l_Edrow) loop
delete from test1 where rownum <=l_Edrow;
commit;
l_Lnum :=l_Lnum + 1;
end loop;
if mod(l_Sdrow,l_Edrow) <> 0 then
delete from test1 where rownum <=mod(l_Sdrow,l_Edrow);
commit;
end if;
dbms_output.put_line('finished');
expcetion when others
dbms_output.put_line(sqlerrm(sqlcode));
end;
/[@more@]
l_Lnum number default 1;
l_Sdrow number default 0;
l_Edrow number default 0;
begin
l_Sdrow :=&Sdrow;
l_Edrow :=&Edrow;
while l_Lnum <= trunc(l_Sdrow/l_Edrow) loop
delete from test1 where rownum <=l_Edrow;
commit;
l_Lnum :=l_Lnum + 1;
end loop;
if mod(l_Sdrow,l_Edrow) <> 0 then
delete from test1 where rownum <=mod(l_Sdrow,l_Edrow);
commit;
end if;
dbms_output.put_line('finished');
expcetion when others
dbms_output.put_line(sqlerrm(sqlcode));
end;
/[@more@]
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/46907/viewspace-957179/ ，如需转载，请注明出处，否则将追究法律责任。
下一篇：
RevStr
请登录后发表评论
登录
全部评论
