前提：授予用户使用锁的权限：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;
如对本文有疑问，请在下面进行留言讨论，广大热心网友会与你互动！！ 点击进行留言回复
Oracle字符串函数length、upper、lower、initcap、 concat、instr、replace
我要评论
网友评论