Advanced Queuing - Oracle

EXEC SQL CONNECT :user;
/* On an oracle error print the error number :*/
EXEC SQL WHENEVER SQLERROR DO sql_error("Oracle Error :");
Enqueuing and Dequeuing Of Messages
/* Allocate memory for the host variable from the object cache : */
EXEC SQL ALLOCATE :message;
/* ENQUEUE */
strcpy(subject, "NORMAL ENQUEUE");
strcpy(txt, "The Enqueue was done through PLSQL embedded in PROC");
/* Initialize the components of message : */
EXEC SQL OBJECT 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;
msgid RAW(16);
BEGIN
/* Bind the host variable ’message’ to the payload: */
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);
/* Dequeue */
/* Embedded PLSQL call to the AQ dequeue procedure : */
EXEC SQL EXECUTE
DECLARE
message_properties dbms_aq.message_properties_t;
dequeue_options dbms_aq.dequeue_options_t;
Oracle Advanced Queuing by Example A-13