Advanced Queuing - Oracle

tkaqdoca.sql: Script to Create Users, Objects, Queue Tables, Queues & Subscribers
subscriber := aq$_agent('BOOKED_ORDER', 'CS.CS_bookedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'OE.OE_bookedorders_que',
subscriber => subscriber);
end;
/
connect WS/WS;
declare
subscriber aq$_agent;
begin
/* Subscribe to the WS back orders queue */
subscriber := aq$_agent('BACK_ORDER', 'CS.CS_backorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'WS.WS_backorders_que',
subscriber => subscriber);
end;
/
declare
subscriber aq$_agent;
begin
/* Subscribe to the WS shipped orders queue */
subscriber := aq$_agent('SHIPPED_ORDER', 'CS.CS_shippedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'WS.WS_shippedorders_que',
subscriber => subscriber);
end;
/
connect CBADM/CBADM;
declare
subscriber aq$_agent;
begin
/* Subscribe to the BILLING billed orders queue */
subscriber := aq$_agent('BILLED_ORDER', 'CS.CS_billedorders_que', null);
dbms_aqadm.add_subscriber(queue_name => 'CBADM.CBADM_billedorders_que',
subscriber => subscriber);
end;
/
Rem
Rem BOLADM will Start all the queues
Rem
C-14 Oracle9i Application Developer’s Guide - Advanced Queuing