欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

oracle锁的应用(DMS_LOCK)

程序员文章站 2024-01-28 20:25:22
目的:为了防止多个进程同时调用一个过程 前提:授予用户使用锁的权限:grant execute on dbms_lock to username(apps); 使用: dec...
目的:为了防止多个进程同时调用一个过程

前提:授予用户使用锁的权限: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;