Advanced Queuing - Oracle

Dequeue Features
END;
/
’ quantity: ’ || deq_item_data.quantity);
EXCEPTION
WHEN end_of_group THEN
dbms_output.put_line (’*** END OF ORDER ***’);
commit;
dopt.navigation := DBMS_AQ.NEXT_TRANSACTION;
END;
END LOOP;
EXCEPTION
WHEN no_messages THEN
dbms_output.put_line (’ ---- NO MORE NEW ORDERS ---- ’);
new_orders := FALSE;
END;
END LOOP;
CONNECT EXECUTE ON get_new_orders to OE;
/* Dequeue the orders: */
CONNECT OE/OE;
EXECUTE BOLADM.get_new_orders;
Visual Basic (OO4O): Example Code
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")
Set OraMsg = OraAq.AQMsg(ORATYPE_OBJECT, "BOLADM.order_typ")
OraAq.wait = 1
OraAq.Navigation = ORAAQ_DQ_FIRST_MESSAGE
private sub get_new_orders
Dim MsgIsDequeued as Boolean
On Error goto ErrHandler
MsgIsDequeued = TRUE
msgid = q.Dequeue
8-68 Oracle9i Application Developer’s Guide - Advanced Queuing