SQL> connect max
Введите пароль:
Соединено.
SQL>
SQL> create or replace package GlobalCtx is
2 procedure Set_Value(attr in varchar2, val in varchar2);
3 end;
4 /
Пакет создан.
SQL>
SQL> create or replace package body GlobalCtx is
2 procedure Set_Value(attr in varchar2, val in varchar2) is
3 begin
4 dbms_session.set_context('GLOBAL_CTX', attr, val);
5 end;
6 end;
7 /
Тело пакета создано.
SQL> create or replace context GLOBAL_CTX
2 using GlobalCtx
3 ACCESSED GLOBALLY;
Контекст создан.
SQL> exec GlobalCtx.Set_Value('TEST', 'SUCCESS');
Процедура PL/SQL успешно завершена.
SQL> select sys_context('GLOBAL_CTX', 'TEST') Test from dual;
TEST
-----------------------------------------------------------------
SUCCESS
SQL> connect ttt
Введите пароль:
Соединено.
SQL>
SQL> select sys_context('GLOBAL_CTX', 'TEST') Test from dual;
TEST
-----------------------------------------------------------------
SUCCESS
SQL> |