一、数据库程序包全局变量
在程序实现过程中，经常用遇到一些全局变量或常数。在程序开发过程中，往往会将该变量或常数存储于临时表或前台程序的全局变量中，由此带来运行效率降低<频繁读取临时表>或安全隐患<存于前台程序变量，可跟踪内存变量获得>。
本节主要论述将全局变量或常数存取程序包的优点和实现方法。
1、优点
（1）执行效率比存储于临时表高，不需要频繁存取临时表。
（2）将全局变量藏于最后防线<数据库>，安全性较高。
（3）在视图中可以调用程序包的变量，实现动态视图。
2、实现方法
实例：
--定义程序包
create or replace package PKG_System_Constant is
C_SystemTitle nVarChar2(100):='测试全局程序变量'; --定义常数
--获取常数<系统标题>
Function FN_GetSystemTitle
Return nVarChar2;
G_CurrentDate Date:=SysDate; --定义全局变量
--获取全局变量<当前日期>
Function FN_GetCurrentDate
Return Date;
--设置全局变量<当前日期>
Procedure SP_SetCurrentDate
(P_CurrentDate In Date);
End PKG_System_Constant;
/
create or replace package body PKG_System_Constant is
--获取常数<系统标题>
Function FN_GetSystemTitle
Return nVarChar2
Is
Begin
Return C_SystemTitle;
End FN_GetSystemTitle;
--获取全局变量<当前日期>
Function FN_GetCurrentDate
Return Date
Is
Begin
Return G_CurrentDate;
End FN_GetCurrentDate;
--设置全局变量<当前日期>
Procedure SP_SetCurrentDate
(P_CurrentDate In Date)
Is
Begin
G_CurrentDate:=P_CurrentDate;
End SP_SetCurrentDate;
End PKG_System_Constant;
/
测试：
--测试读取常数
Select PKG_System_Constant.FN_GetSystemTitle From Dual;
--测试设置全局变量
Declare
Begin
PKG_System_Constant.SP_SetCurrentDate(To_Date('2001.01.01','yyyy.mm.dd'));
End;
/
--测试读取全局变量
Select PKG_System_Constant.FN_GetCurrentDate From Dual;
二、SYS_CONTEXT
SYS_CONTEXT 函数是Oracle提供的一个获取环境上下文信息的预定义函数。该函数用来返回一个指定namespace下的parameter值。该函数可以在SQL和PL/SQL语言中使用。
SYS_CONTEXT 实际上就是一个Oracle存储和传递参数的容器访问函数。我们登入Oracle服务器，是带有会话信息session_info和其他一些属性信息。其中，有一些是Oracle预定义的，登录系统的时候自动填入到指定的变量中。还有一些是我们自己定义到其中，用于传递值使用的。
SYS_CONTEXT 语法格式：SYS_CONTEXT('namespace','parameter'{,LENGTH});其中，namespace是存储信息的一个组group单位，namespace是按照类别进行分类的。一个namespace下可以有多个参数值，通过不同的parameter进行区分。namespace是预先定义好的SQL标识符，而parameter是可以任意大小写非敏感的字符串，不超过30位长度。函数返回值为varchar2类型，长度默认为256位。如果需要限制这个默认值，可以数据length参数作为新的返回长度值。设置namespace指定parameter值，可以使用dbms_session.set_context方法进行。
1、创建、设置、读取context
SQL> create context test using set_test_context;
Context created.
SQL> create or replace procedure set_test_context(value in varchar2) is
2 begin
3 dbms_session.set_context('test','key',value);
4 end set_test_context;
5 /
Procedure created.
SQL> exec set_test_context('This is a context set value!');
PL/SQL procedure successfully completed.
SQL> select sys_context('test','key') show_value from dual;
SHOW_VALUE
--------------------------------------------------------------------------------
This is a context set value!
2、Oracle预定义的context
SELECT SYS_CONTEXT ('USERENV', 'TERMINAL') terminal,
SYS_CONTEXT ('USERENV', 'LANGUAGE') language,
SYS_CONTEXT ('USERENV', 'SESSIONID') sessionid,
SYS_CONTEXT ('USERENV', 'INSTANCE') instance,
SYS_CONTEXT ('USERENV', 'ENTRYID') entryid,
SYS_CONTEXT ('USERENV', 'ISDBA') isdba,
SYS_CONTEXT ('USERENV', 'NLS_TERRITORY') nls_territory,
SYS_CONTEXT ('USERENV', 'NLS_CURRENCY') nls_currency,
SYS_CONTEXT ('USERENV', 'NLS_CALENDAR') nls_calendar,
SYS_CONTEXT ('USERENV', 'NLS_DATE_FORMAT') nls_date_format,
SYS_CONTEXT ('USERENV', 'NLS_DATE_LANGUAGE') nls_date_language,
SYS_CONTEXT ('USERENV', 'NLS_SORT') nls_sort,
SYS_CONTEXT ('USERENV', 'CURRENT_USER') current_user,
SYS_CONTEXT ('USERENV', 'CURRENT_USERID') current_userid,
SYS_CONTEXT ('USERENV', 'SESSION_USER') session_user,
SYS_CONTEXT ('USERENV', 'SESSION_USERID') session_userid,
SYS_CONTEXT ('USERENV', 'PROXY_USER') proxy_user,
SYS_CONTEXT ('USERENV', 'PROXY_USERID') proxy_userid,
SYS_CONTEXT ('USERENV', 'DB_DOMAIN') db_domain,
SYS_CONTEXT ('USERENV', 'DB_NAME') db_name,
SYS_CONTEXT ('USERENV', 'HOST') HOST,
SYS_CONTEXT ('USERENV', 'OS_USER') os_user,
SYS_CONTEXT ('USERENV', 'EXTERNAL_NAME') external_name,
SYS_CONTEXT ('USERENV', 'IP_ADDRESS') ip_address,
SYS_CONTEXT ('USERENV', 'NETWORK_PROTOCOL') network_protocol,
SYS_CONTEXT ('USERENV', 'BG_JOB_ID') bg_job_id,
SYS_CONTEXT ('USERENV', 'FG_JOB_ID') fg_job_id,
SYS_CONTEXT ('USERENV', 'AUTHENTICATION_TYPE') authentication_type,
SYS_CONTEXT ('USERENV', 'AUTHENTICATION_DATA') authentication_data
FROM DUAL;
三、DBMS_SESSION包详解
1）、set_identifier
说明：用于设置会话的客户ID号。
语法：dbms_session.set_identifier(client_id varchar2);
其中client_id指定当前会话的应用标识符。
2）、set_context
说明：用于设置应用上下文属性
语法：
dbms_session.set_context(namespace varchar2,attribute varchar2,value varchar2);
dbms_session.set_context(namespace varchar2,attribute varchar2,value varchar2,username varchar2,client_id varchar2);
其中namespace指定应用上下文的命名空间，attribute指定应用上下文的属性，value指定属性值，username指定应用上下文的用户名属性。
3）、clear_context
说明：用于清除应用上下文的属性设置
语法：dbms_session.clear_context(namespace varchar2,client_identifier varchar2,attribute varchar2);
其中client_identifier只适用于全局上下文。
4）、clear_identifier
说明：用于删除会话的set_client_id.
语法：dbms_session.clear_identifier();
5）、set_role
说明：用于激活或禁止会话角色，与sql语句set role作用完全相同。
语法：dbms_seesion.set_role(role_cmd varchar2);
例子：在sql*plus使用该过程激活或禁止角色如下
dbms_session.set_role(‘DBA’)
dbms_session.set_role(‘none’)
6）、set_sql_trace
说明：用于激活或禁止当前会话的SQL跟踪，其作用与SQL语句alter session set sql_trace= 完全相同。
语法如下:dbms_session.set_sql_trace(sql_strace boolean);
其中sql_strace用于指定布尔值，true表示激活sql跟踪，false表示禁止。
例子：在sql*plus使用该过程
exec dbms_session.set_sql_trace(true);
exec dbms_session.set_sql_trace(false);
7）、set_nls
说明：用于设置NLS特征，其作用与sql语句alter session set =完全相同。
语法：dbms_session.set_nls(param varchar2,value varchar2);
其中param指定nls参数，value指定nls参数
例子：在sql*plus使用该过程
exec dbms_seesion.set_nls(‘nls_date_format’,’’‘YYYY-MM-DD’’’);
select sysdate from dual;
8）、close_database_link
说明：用于关闭已经打开的数据库链，其作用与SQL语句alter session close datebase link完全相同。
语法：dbms_session.close_database_link(dbline varchar2);
其中用于指定要关闭的数据库连接名。
9）、reset_package
说明：用于复位当前会话的所有包,并且会释放包状态。
语法：dbms_session.reset_package;
10）、modify_package_state
说明：用于修改当前会话的PL/SQL程序单元的状态
语法:dbms_session.modify_package_state(action_flags in pls_integer);
其中，action_flags指定pl/sql程序单元标记，当设置为1是，会释放plsql程序单元所占用的内存；2则会重新初始化pl/sql包。
11）、unique_session_id
说明：用于返回当前会话的惟一ID标识符
例子：select dbms_session.unique_session_id from dual;
12）、is_role_enabled
说明：用于确定当前会话是否激活了特定角色.
语法:dbms_session.is_role_enabled(rolename varchar2) return boolean;
其中rolename指定角色名。返回true表示已激活，false表示未激活。
例子：set serveroutput on
begin
if dbms_session.is_role_enabled(‘DBA’) then
dbms_output.put_line(‘激活了’);
else dbms_output.put_line(‘没激活’);
end if;
end;
13）、is_session_alive
说明：用于确定特定会话是否处于活动状态.
语法：dbms_session.is_session_alive(uniqueid varchar2) return boolean;
其中uniqueid指定会话ID号，处于活动返回true，否则false。
14）、set_close_cached_open_cursors
说明：用于打开或关闭close_cached_open_cursors，其作用与alter session set close_cached_open_cursors完全相同。
语法：dbms_session.set_close_cached_open_cursors(close_cursors boolean);
其中close_cursors指定布尔值，设置为true打开，false关闭。
15）、free_unused_user_meory
说明：用于在执行了大内存操作(超过100K)之后回收未用内存
语法：dbms_session.pree_unused_user_memory;
16）、set_context
说明：设置应用上下文属性的值.
语法：dbms_session.set_context(namespare varchar2,attribute varchar2,value varchar2,username varchar2,client_id varchar2);
17）、list_context
说明：用于返回当前会话原命名空间和上下文列表
语法：
type appctxrectyp is record(namespace varchar2(30),attribute varchar2(30),value varchar2(256));
type appctxtabtyp is table of appctxrectyp index by binary_integer;
dbms_session.list_context(list out appctxtabtyp,size out number);
其中list用于取得当前会话的列表集，size用于返回列表个数。
18）、swith_current_consumer_group
说明：用于改变当前会话的资源使用组
语法：dbms_session.switch_current_consumer_group(new_group in varchar2,old_group out varchar2,initial_group in boolean);
其中new_group指定新资源使用组；old_group指定原有资源实用组；initial_group指定布尔值，true表示出错后使用原有资源使用组。
参考博客：