Advanced Queuing - Oracle

tkaqdoca.sql: Script to Create Users, Objects, Queue Tables, Queues & Subscribers
dbms_aqadm.create_queue_table(
queue_table => 'CBADM_orders_sqtab',
comment => 'Customer Billing Single Consumer Orders queue table',
queue_payload_type => 'BOLADM.order_typ',
compatible => '8.1');
dbms_aqadm.create_queue_table(
queue_table => 'CBADM_orders_mqtab',
comment => 'Customer Billing Multi Consumer Service queue table',
multiple_consumers => TRUE,
queue_payload_type => 'BOLADM.order_typ',
compatible => '8.1');
dbms_aqadm.create_queue (
queue_name => 'CBADM_shippedorders_que',
queue_table => 'CBADM_orders_sqtab');
end;
/
Rem Grant dequeue privilege on the shopped orders queue to the Customer Billing
Rem application. The CB application retrieves shipped orders (not billed yet)
Rem from the shopped orders queue.
execute dbms_aqadm.grant_queue_privilege('DEQUEUE', 'CBADM_shippedorders_que',
'CB', FALSE);
begin
dbms_aqadm.create_queue (
queue_name => 'CBADM_billedorders_que',
queue_table => 'CBADM_orders_mqtab');
end;
/
Rem Grant enqueue privilege on the billed orders queue to Customer Billing
Rem application. The CB application is allowed to put billed orders into
Rem this queue.
execute dbms_aqadm.grant_queue_privilege('ENQUEUE', 'CBADM_billedorders_que',
'CB', FALSE);
Rem Customer support tracks the state of the customer request in the system
Rem
Rem At any point, customer request can be in one of the following states
Rem A. BOOKED B. SHIPPED C. BACKED D. BILLED
Rem Given the order number the customer support will return the state
Scripts for Implementing BooksOnLine C-11