create role TEST$ROLE;
create or alter user TEST$USER password '12345678';
grant TEST$ROLE to user TEST$USER;

recreate table TTEST ( ID   integer not null,  BLB  blob sub_type 0 segment size 80);
insert into TTEST(ID, BLB) values (1, 'тест');

set term ! ;
create or alter procedure TTEST$PROC
returns (
    id type of column ttest.id,
    blb type of column ttest.blb)
as
begin
  for select id
           , blb
      from ttest
      into :id, :blb 
  do suspend;
end!
set term ; !
grant execute on procedure TTEST$PROC to role TEST$ROLE;

create or alter view TTEST$VW(
    ID,
    BLB)
as
select T.ID
     , T.BLB
from TTEST T;
grant select on TTEST$VW to role TEST$ROLE;
grant select on table TTEST to view TTEST$VW;

grant select on table TTEST to procedure TTEST$PROC;