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博客 ” ,链接:http://blog.itpub.net/46907/viewspace-957179/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/46907/viewspace-957179/