Advanced Queuing - Oracle

* Bind the host variable ’message’: to payload */
dbms_aq.enqueue(queue_name => ’msg_queue’,
message_properties => message_properties,
enqueue_options => enqueue_options,
payload => :message,
msgid => msgid);
END;
END-EXEC;
/* Commit work: */
EXEC SQL COMMIT;
printf("Enqueued Message \n");
printf("Subject :%s\n",subject);
printf("Text :%s\n",txt);
/* First dequeue - by correlation */
EXEC SQL EXECUTE
DECLARE
message_properties dbms_aq.message_properties_t;
dequeue_options dbms_aq.dequeue_options_t;
msgid RAW(16);
BEGIN
/* Dequeue by correlation in host variable ’correlation2’: */
dequeue_options.correlation := :correlation2;
/* Return the payload into host variable ’message’: */
dbms_aq.dequeue(queue_name => ’msg_queue’,
message_properties => message_properties,
dequeue_options => dequeue_options,
payload => :message,
msgid => msgid);
END;
END-EXEC;
/* Commit work : */
EXEC SQL COMMIT;
Enqueuing and Dequeuing Of Messages
/* Extract the values of the components of message: */
EXEC SQL OBJECT GET subject, text FROM :message INTO :subject,:txt;
printf("Dequeued Message \n");
printf("Subject :%s\n",subject);
printf("Text :%s\n",txt);
/* SECOND DEQUEUE - by MSGID */
Oracle Advanced Queuing by Example A-41