Global Variable in PL/SQL .

来源:互联网 发布:php好书推荐 编辑:程序博客网 时间:2024/05/20 07:38

Non-Across Sessions

[sql] view plaincopyprint?
  1. create or replace package test_pkg  
  2. as  
  3.   global_var number :=1;  
  4.   constant_var CONSTANT NUMBER := 2;  
  5. end;  

Across Sessions

[sql] view plaincopyprint?
  1. create table global_value ( x int );  
  2. insert into global_value values ( 0 );  
  3.   
  4.   
  5. create or replace package get_global  
  6. as  
  7.    function val return number;  
  8.    procedure set_val( p_x in number );  
  9. end;  
  10. /  
  11.   
  12. create or replace package body get_global  
  13. as  
  14.   
  15. function val return number  
  16. as  
  17.    l_x number;  
  18. begin  
  19.    select x into l_x from global;  
  20.    return l_x;  
  21. end;  
  22.   
  23. procedure set_val( p_x in number )  
  24. as  
  25.   pragma autonomous_transaction;  
  26. begin  
  27.    update global set x = p_x;  
  28.    commit;  
  29. end;  
  30.   
  31. end;  
  32. /  
原创粉丝点击