09.12.2012 Views

Advanced Queuing - Oracle

Advanced Queuing - Oracle

Advanced Queuing - Oracle

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

* Dequeue the orders: */<br />

CONNECT ES/ES;<br />

/* Dequeue all rush order titles for East_Shipping: */<br />

EXECUTE BOLADM.get_rushtitles(’East_Shipping’);<br />

Visual Basic (OO4O): Example Code<br />

set oraaq1 = OraDatabase.CreateAQ("WS.WS_backorders_que")<br />

set oraaq2 = OraDatabase.CreateAQ("ES.ES_backorders_que")<br />

set oraaq3 = OraDatabase.CreateAQ("CBADM.deferbilling_que")<br />

Set OraMsg = OraAq.AQMsg(ORATYPE_OBJECT, "BOLADM.order_typ")<br />

Set OraBackOrder = OraDatabase.CreateOraObject("BOLADM.order_typ")<br />

Private Sub Requeue_backorder<br />

Dim q as oraobject<br />

If sale_region = WEST then<br />

q=oraaq1<br />

else if sale_region = EAST then<br />

q=oraaq2<br />

else<br />

q=oraaq3<br />

end if<br />

OraMsg.delay = 7*60*60*24<br />

OraMsg = OraBackOrder 'OraOrder contains the order details<br />

Msgid = q.enqueue<br />

End Sub<br />

Java (JDBC): Example Code<br />

public static void getRushTitles(Connection db_conn, String consumer)<br />

{<br />

AQSession aq_sess;<br />

Order deq_order;<br />

byte[] deq_msgid;<br />

AQDequeueOption deq_option;<br />

AQMessageProperty msg_prop;<br />

AQQueue bookedorders_q;<br />

AQMessage message;<br />

AQObjectPayload obj_payload;<br />

boolean new_orders = true;<br />

try<br />

{<br />

Dequeue Features<br />

A Sample Application Using AQ 8-61

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!