VPD Question - Not executing Policy?

Question

Hi, I followed the script and my results are below:
But I do a select * from T and get all 5 rows:
Can anyone see anything missing?
select
namespace, attribute, value
from
session_context
where namespace = 'MYCTX';
create or replace function rls_examp ( p_schema in varchar2,
p_object in varchar2
return varchar2
as
l_x number;
begin
select sys_context( 'myctx', 'X' ) into l_x from dual;
if ( nvl(l_x,-1)) != -1
--sys_context( 'myctx', 'x' ) is not null )
then
return ' data = ''data 01'' ';
-- return 'X = to_number( sys_context(''myctx'',''x''))';
else
return 'X = 3 ';
end if;
end;
drop table t;
create table t ( X number,data varchar2(10) );
insert into t values ( 1,'data 01' );
insert into t values ( 2,'data 02' );
insert into t values ( 3,'data 03' );
insert into t values ( 4,'data 04' );
insert into t values ( 1234,'data 1234' );
begin
begin
dbms_rls.drop_policy( user, 'T', 'T_POLICY' );
exception
when others then null;
end;
begin
dbms_rls.add_policy
( object_schema => user,
object_name => 'T', --table name
policy_name => 'T_POLICY',
function_schema => user,
policy_function => 'rls_examp',
statement_types => 'SELECT,INSERT,UPDATE,DELETE',
update_check => FALSE, -- set back to FALSE
enable => TRUE,
static_policy => FALSE);
end;
end;
create or replace procedure set_ctx( p_val in varchar2 )
as
begin
-- dbms_session.clear_all_context( 'myctx' );
dbms_session.set_context( 'myctx', 'X', p_val );
end;
create or replace context myctx using set_ctx;
begin
set_ctx( null );
end;
select rls_examp(' ',' ') from dual;
select * from t;
select
namespace, attribute, value
from
session_context
where namespace = 'MYCTX';
begin
set_ctx( 99 ) ;
end;
select rls_examp(' ',' ') from dual;
select * from t;
select
namespace, attribute, value
from
session_context
where namespace = 'MYCTX';
select rls_examp(' ',' ') from dual;

Answer 1

Here is what I tried just to get an error...
Could I have created the function somewhere else and be accessing it instead where I would get errors but still would get no altered results?
Bill
select
namespace, attribute, value
from
session_context
where namespace = 'MYCTX';
drop table t;
create table T ( X number,data varchar2(10) );
insert into T values ( 1,'data 01' );
insert into T values ( 2,'data 02' );
insert into T values ( 3,'data 03' );
insert into t values ( 4,'data 04' );
insert into T values ( 1234,'data 1234' );
create or replace function RLS_EXAMP(p_schema in varchar2,
p_object in varchar2 )
return varchar2
as
l_x number;
begin
return 'owner = 3 ';
end;
begin
dbms_rls.drop_policy( 'BOLINF', 'T', 'T_POLICY' );
exception
when others then null;
end;
begin
dbms_rls.add_policy
( object_schema => 'BOLINF',
object_name => 'T', --table name
policy_name => 'T_POLICY',
function_schema => 'BOLINF',
policy_function => 'RLS_EXAMP',
statement_types => 'SELECT,UPDATE,DELETE');
end;
CREATE OR REPLACE PROCEDURE show_context_info
IS
context_info DBMS_SESSION.AppCtxTabTyp;
info_count PLS_INTEGER;
indx PLS_INTEGER;
BEGIN
DBMS_SESSION.LIST_CONTEXT (
context_info,
info_count);
indx := context_info.FIRST;
LOOP
EXIT WHEN indx IS NULL;
DBMS_OUTPUT.PUT_LINE (
context_info(indx).namespace || '.' ||
context_info(indx).attribute || ' = ' ||
context_info(indx).value);
indx := context_info.NEXT (indx);
END LOOP;
END;
create or replace procedure set_ctx( p_val in varchar2 )
as
begin
-- dbms_session.clear_all_context( 'myctx' );
dbms_session.set_context( 'myctx', 'X', p_val );
end;
create or replace context myctx using set_ctx;
begin
set_ctx( '3' );
end;
/