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;