grant execute on dbms_lock to USERNAME;

 

dbms_lock.sleep(time)参数单位为秒

 

create
or
replace
procedure initdata is

num number
:=
0;

begin

 

for i in
1 .. 500
loop

 

num := num +
1;

if num >=
1000
then

dbms_lock.sleep(5);

num :=
0;

dbms_output.put_line('暂停5秒');

 

end
if;

end
loop;

 

end initdata;