ORACLE存储过程，函数加锁

最近碰到比较头痛的事情，原来单域部署的的应用变成了集群部署，这样java中锁（lock）就失去了效应，因为变成了多实例，于是实现过程采用存储过程来封装业务逻辑，但是之前没有针对于存储过程加锁的经历。

经过翻阅Oracle资料，发现Oralce可以针对存储过程上锁，保证业务逻辑单次通过，已测试验证，特分享下。

在存过的代码里加入下列代码：

 DBMS_LOCK.allocate_unique ('Lock', lockhandle);--针对当前session加锁

   LOOP
      LN := DBMS_LOCK.request (lockhandle, TIMEOUT => 0);

      IF LN NOT IN (0, 4)--判断是否被别session锁住
      THEN
         DBMS_OUTPUT.put_line ('Already run...');
         DBMS_LOCK.sleep (2);--已经被人锁住，休眠2秒
      ELSE
         EXIT;--没有锁，退出轮询
      END IF;
   END LOOP;

--你要锁住的业务逻辑代码

LN := DBMS_LOCK.release (lockhandle);--释放资源

测试方法，启动线程1，在业务逻辑处打断点，锁住存过，启动线程2执行存过，发现已经卡死；继续执行线程1存过指导解锁，发现线程2锁死情况等待2秒后解除，为了达到更好的效果，可以设置休眠时间更长一些

附：  

DBMS_LOCK.request 返回值

0 申请锁定成功

1 申请锁定时超时

2 申请锁定时发生死锁

3 传入参数错误

4 已经获得了锁定，重复申请了锁

5 传入的锁定句柄错误

DBMS_LOCK.release 返回值

0 释放锁定成功

3 传入参数错误

4 并没有获得要释放的锁定

5 传入的锁定句柄错误