Oracle EBS 加锁解锁程序

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了Oracle EBS 加锁解锁程序，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1448字，纯文字阅读大概需要3分钟。

内容图文

request_lock(p_lock_name IN VARCHAR2) RETURN BOOLEAN IS l_lock_name VARCHAR2(128); l_lock_ret INTEGER; l_ret_val BOOLEAN := TRUE; l_lock_handle VARCHAR2(240); BEGIN IF p_lock_name IS NOT NULL THEN --增加数据库锁，以保证一个批次同时只运行一次 l_lock_name := p_lock_name; dbms_lock.allocate_unique(lockname => l_lock_name, lockhandle => l_lock_handle); g_lock_handle := l_lock_handle; --获取数据库锁 l_lock_ret := dbms_lock.request(lockhandle => l_lock_handle, lockmode => 6, timeout => 10, release_on_commit => FALSE); IF l_lock_ret <> 0 THEN --状态不为(成功) l_ret_val := FALSE; END IF; ELSE l_ret_val := FALSE; END IF; cux_conc_utl.log_msg(‘request lock‘); RETURN l_ret_val; END request_lock;

 PROCEDURE release_lock(p_lock_name IN VARCHAR2) IS
    l_lock_name   VARCHAR2(128);
    l_lock_handle VARCHAR2(128);
    l_lock_ret    INTEGER;
  BEGIN
    IF g_lock_handle IS NOT NULL THEN
      l_lock_ret := dbms_lock.release(g_lock_handle);
    ELSE
      l_lock_name := p_lock_name;
      dbms_lock.allocate_unique(lockname   => l_lock_name,
                                lockhandle => l_lock_handle);
      l_lock_ret    := dbms_lock.release(l_lock_handle);
      g_lock_handle := l_lock_handle;
    END IF;
    cux_conc_utl.log_msg(‘release_lock: ‘ || l_lock_ret);
  END release_lock;

 

Oracle EBS 加锁解锁程序

标签：arch   lease   log   bsp   locate   数据   else   com   uniq   

本文系统来源：https://www.cnblogs.com/jenrry/p/10006867.html

内容总结

以上是互联网集市为您收集整理的Oracle EBS 加锁解锁程序全部内容，希望文章能够帮你解决Oracle EBS 加锁解锁程序所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---