select upper(program)
into my_program
from v$session
where sid=my_sid;
if usr in ('USR1','USR2') and
(my_program like '%SQL%' or
or my_program like '%MSACCESS%'
or my_program like '%DEV%'
) then
RAISE_APPLICATION_ERROR (-20000, '!');
end if;