使用DBMS_LOCK控制程序并发

在调用并发的程序时，假设两个人同时提交了某一个并发请求，并且传入了同样的参数，假设在程序中使用了对状态的控制，例如在刚进入main函数的时候马上就将状态update了，那么其中某一个人就会查不到该条数据最后请求没有执行。

也可以使用另外一种方法，使用lock，将提交的并发锁住，其他提交的只能排队。

 

-- lockl_lockname VARCHAR2(100);l_lockhandle VARCHAR2(200);l_lock_output NUMBER;l_locked BOOLEAN := FALSE; //阻止并发导入同一批数据l_lockname := G_PKG_NAME||'_RESERVE'; //lockname类似一把锁，它定义了一个唯一的名字，当并发请求执行main函数的时候，lockname会自己得到，//如果在执行中的并发程序与其重名那么并发就不能执行。这里可以灵活应用，//例如传入的参数为Header_id，而我们允许不同的HeaderId同时执行但是不允许相同的HeaderId同时执行，//那么可以使l_lockname := G_PKG_NAME||p_header_id，那么就可以锁住相同的HeaderId。 dbms_lock.allocate_unique( lockname => l_lockname, lockhandle => l_lockhandle);-- release when session out, request time out 1分钟l_lock_output := dbms_lock.request(l_lockhandle, 6, 60, FALSE);IF l_lock_output <> 0 THEN xxfnd_api.set_message( p_app_name => xxfnd_api.g_app_name, p_msg_name => 'XXFND_CONC_LOCKED_ERR', p_token1 => 'EVENT', p_token1_value => 'Reserve Batch', p_token2 => 'DATA', p_token2_value => ''); RAISE fnd_api.g_exc_error;END IF; l_locked := TRUE; /**要特别注意的是一定要lockname释放掉，否则这个并发就永远别想执行**///需要释放lockname的地方除了程序正常的结束部分还有异常处理部分，都要使用 IF l_locked THEN l_lock_output := dbms_lock.release(l_lockhandle);END IF;

 

补充说明：

锁定模式 描 述 对应到TM锁中的模式
nl_mode null锁定模式 Null
ss_mode subshared锁定模式 RS
sx_mode subexclusive锁定模式 RX
s_mode shared锁定模式 S
ssx_mode subshared exclusive锁定模式 RSX
x_mode exclusive锁定模式 X

 

调用dbms_lock.request函数以后的返回值包括：

返 回 值 含 义
0 申请锁定成功
1 申请锁定时超时
2 申请锁定时发生死锁
3 传入参数错误
4 已经获得了锁定，重复申请了锁
5 传入的锁定句柄错误

释放锁定

 

 

来源：http://oracleseeker.com/2009/09/24/control_concurrent_program_by_oracle_supplied_package_dbms_lock/