使用DBMS_LOCK控制程序并发

在调用并发的程序时,假设两个人同时提交了某一个并发请求,并且传入了同样的参数,假设在程序中使用了对状态的控制,例如两个UPDATE语句在修改同一条记录时,第一个UPDATE语句修改后长时间未提交,第二个UPDATE语句修改了同一条记录,并提交,这时就两个UPDATE语句就起冲突了。

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

-- lock
l_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 传入的锁定句柄错误

释放锁定

DBMS_LOCK包的学习



评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值