1.准备并发测试的内容
create or replace procedure p_task is
begin
for i in 1 .. 5000 loop
    for j in (select * from scott.emp where empno=7369) loop
      null;
    end loop;
end loop;
end;

2.通过JOB的形式实现并发
--JOB的并发度依赖于参数job_queue_processes
declare
v_job_no number;
begin
for v_parallel in 1 .. 50 loop
    dbms_job.submit(job=>v_job_no,what=>'p_task;');
    commit;
end loop;
end;

3.监控
--根据需求查询并发时的系统状态
select * from v$session_wait
where wait_class!='Idle'

4.测试完成后删除JOB
begin
for v_job in (select * from dba_jobs where what='p_task;') loop
    dbms_job.remove(v_job.job);
    commit;
end loop;
end;

oracle实用sql(13)--并发简单模拟