oracle锁的应用(DMS_LOCK)

前提：授予用户使用锁的权限：grant execute on dbms_lock to username(apps);

使用：

declare

l_lock_name varchar2(100);--锁的名字(一般是由包名+存储过程名+参数组成)

l_lockhandle varchar2(100);--锁标识

l_lock_output number;

begin

l_lock_name :=g_pkg_name||'.'||g_procedure_name||to_char(p_org_id);--锁的名字

/*

给锁分配唯一的标识

*/

dbms_lock.allocate_unique(lockname=>l_lock_name,

lockhandle=>l_lockhandle);

/*

请求一个锁:

l_lock_output 返回值：0--成功，1--超时，2--死锁，3--参数错误，4--已经分配锁重复申请，5---无效的lock_handle

*/

l_lock_output:=dbms_lock.request(l_lockhandle,

dbms_lock.x_mode,

5,--等待请求锁的时间

FALSE,---COMMIT OR ROLLBACK 是否释放锁，默认FALSE,共享模式下设置true

);

if l_lock_output<>0 then

fnd_file.put_line(fnd_file.log,'主程序正在运行,不能重复提交');

end if;

/*

业务代码

*/

/*

释放锁

*/

l_lock_output:=dbms_lock.release(l_lockhandle);

--exception 也要释放锁

exception when others then

l_lock_output:=dbms_lock.release(l_lockhandle);

end;