Advanced Queuing - Oracle

Enqueue Features
the message: */
msgprop.priority := shipping_priority;
dbms_aq.enqueue('OE.OE_bookedorders_que', enqopt, msgprop,
OE_enq_order_data, enq_msgid);
COMMIT;
END;
/
/* At each region, similar booked order queues are created. The orders are
propagated from the central Order Entry's booked order queues to the regional
booked order queues.For example, at the western region, the booked orders
queue is created.
Create a priority queue table for WS shipping: */
EXECUTE dbms_aqadm.create_queue_table( \
queue_table => 'WS_orders_pr_mqtab',
sort_list =>' priority,enq_time', \
comment => 'West Shipping Priority \
MultiConsumer Orders queue table',\
multiple_consumers => TRUE, \
queue_payload_type => 'BOLADM.order_typ', \
compatible => '8.1');
/* Booked orders are stored in the priority queue table: */
EXECUTE dbms_aqadm.create_queue ( \
queue_name => 'WS_bookedorders_que', \
queue_table => 'WS_orders_pr_mqtab');
/* At each region, the shipping application dequeues orders from the regional
booked order queue according to the orders' shipping priorities, processes
the orders, and enqueues the processed orders into the shipped orders queues
or the back orders queues. */
Visual Basic (OO4O): Example Code
Dim OraSession as object
Dim OraDatabase as object
Dim OraAq as object
Dim OraMsg as Object
Dim OraOrder,OraCust,OraBook,OraItem,OraItemList as Object
Dim Msgid as String
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("dbname", "user/pwd", 0&)
8-40 Oracle9i Application Developer’s Guide - Advanced Queuing