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;
上一篇: 常用的sql语句大全,建议收藏
下一篇: struts2标签中字符串及字符替换