循环获取锁资源

declare 
i integer;
v_sql varchar2(300);
v_owner varchar2(30);
begin
-- Test statements here
for j in 1..100 loop
for i in 1..100000 loop
v_sql := 'sql_need_to_execute' ;
begin 
execute immediate v_sql;
dbms_output.put_line(i);
dbms_output.put_line(j);
exit;
exception when others then 
if i mod 10000 = 0 then
dbms_lock.sleep(5);
end if;

end ;
end loop;
commit;
end loop;
end;

/