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