qs_ia_priv.sql.old

oracle9i+j2ee开发aq oracle9i+j2ee开发aq oracle9i+j2ee开发aq

REM script name: qs_ia_priv.sql
REM grants privileges to enqueue and dequeue to user qs
REM Creates Internet users Bob and Jane
REM grants execute on dbms_aqin to qs
REM
REM version: 9.0.1
REM change:  initial version
REM


define qs_pass = &1
define master_pass = &2

REM ========================================================
REM Grant Enqueue and Dequeue privilege on new_order to queue 
REM to qs user
REM ========================================================

begin
dbms_aqadm.grant_queue_privilege(privilege => 'ALL', 
			 	queue_name => 'qs_adm.neworders_que', 
				grantee => 'qs', 
				grant_option => TRUE);
end;
/

CONNECT qs/&qs_pass

execute dbms_aqadm.drop_aq_agent(agent_name=>'bob');
execute dbms_aqadm.drop_aq_agent(agent_name=>'jane');

REM Allows access to the queues via the servlets
execute dbms_aqadm.create_aq_agent(agent_name=>'bob', enable_http =>true);
execute dbms_aqadm.create_aq_agent(agent_name=>'jane', enable_http =>true);
execute dbms_aqadm.enable_db_access('bob', 'QS');
execute dbms_aqadm.enable_db_access('jane', 'QS');

CONNECT system/&master_pass as sysdba;
grant execute on dbms_aqin to qs;