Advanced Queuing - Oracle

Dequeue Features
/* Dequeue all international North American orders for Overseas_Shipping: */
EXECUTE BOLADM.get_northamerican_orders;
Visual Basic (OO4O): Example Code
OO4O supports all the modes of dequeuing described earlier. Possible values
include:
ORAAQ_DQ_BROWSE ( 1) - Do not lock when dequeuing
ORAAQ_DQ_LOCKED ( 2) - Read and obtain a write lock on the message
ORAAQ_DQ_REMOVE (3 )(Default) -Read the message and update or delete it.
Dim OraSession as object
Dim OraDatabase as object
Dim OraAq as object
Dim OraMsg as Object
Dim OraOrder,OraItemList,OraItem,OraBook,OraCustomer as Object
Dim Msgid as String
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.DbOpenDatabase("", "boladm/boladm", 0&)
set oraaq = OraDatabase.CreateAQ("OE.OE_neworders_que")
OraAq.DequeueMode = ORAAQ_DQ_BROWSE
Java (JDBC): Example Code
public static void get_northamerican_orders(Connection db_conn)
{
AQSession aq_sess;
Order deq_order;
Customer deq_cust;
String cust_country;
byte[] deq_msgid;
AQDequeueOption deq_option;
AQMessageProperty msg_prop;
AQQueue bookedorders_q;
AQMessage message;
AQObjectPayload obj_payload;
boolean new_orders = true;
try
{
A Sample Application Using AQ 8-73