Advanced Queuing - Oracle

Enqueuing and Dequeuing Of Messages
EXEC SQL OJECT SET subject, text OF :message TO :subject, :txt;
/* Embedded PLSQL call to the AQ enqueue procedure: */
EXEC SQL EXECUTE
DECLARE
message_properties dbms_aq.message_properties_t;
enqueue_options dbms_aq.enqueue_options_t;
BEGIN
/* Bind the host variable ’correlation1’: to message correlation*/
message_properties.correlation := :correlation1;
/* Bind the host variable ’message’ to payload and
return message id into host variable ’msgid’: */
dbms_aq.enqueue(queue_name => ’msg_queue’,
message_properties => message_properties,
enqueue_options => enqueue_options,
payload => :message:imsg, /* indicator has to be specified */
msgid => :msgid);
END;
END-EXEC;
/* Commit work: */
EXEC SQL COMMIT;
printf("Enqueued Message \n");
printf("Subject :%s\n",subject);
printf("Text :%s\n",txt);
/* Second enqueue */
strcpy(correlation2, "2nd message");
strcpy(subject, "NORMAL ENQUEUE2");
strcpy(txt, "The Enqueue was done through PLSQL embedded in PROC");
/* Initialize the components of message: */
EXEC SQL OBJECT SET subject, text OF :messsage TO :subject,:txt;
/* Embedded PLSQL call to the AQ enqueue procedure: */
EXEC SQL EXECUTE
DECLARE
message_properties dbms_aq.message_properties_t;
enqueue_options dbms_aq.enqueue_options_t;
msgid RAW(16);
BEGIN
/* Bind the host variable ’correlation2’: to message correlaiton */
message_properties.correlation := :correlation2;
A-40 Oracle9i Application Developer’s Guide - Advanced Queuing