Callback Function in AQ not launched

Question

Hi All,
I have registered a callback function on a queue. When I enqueue it has to call callback function. Below is my scrip for creation of Queue and Enqueue.
CREATE type xxMessage_typ as object
    ( subject VARCHAR2(30), text VARCHAR2(80));
=================================================
BEGIN
SYS.DBMS_AQADM.CREATE_QUEUE_TABLE(
                  QUEUE_TABLE           =>  'XXKNL_TEST_QTAB'
                 ,QUEUE_PAYLOAD_TYPE    =>  'xxMessage_typ'
                 ,MULTIPLE_CONSUMERS    =>  TRUE);
END;
===============================================
BEGIN
SYS.DBMS_AQADM.CREATE_QUEUE(
                  QUEUE_NAME          =>   'XXKNL_TEST_Q'
                 ,QUEUE_TABLE         =>   'XXKNL_TEST_QTAB'
END;
============================================
BEGIN
dbms_aqadm.add_subscriber
        ( queue_name => 'XXKNL_TEST_Q',
          subscriber => sys.aq$_agent( 'RECIPIENT', null, null ) );
SYS.DBMS_AQ.REGISTER ( SYS.AQ$_REG_INFO_LIST( SYS.AQ$_REG_INFO('XXKNL_TEST_Q:RECIPIENT',DBMS_AQ.NAMESPACE_AQ,
               'plsql://XXKNL_NOTIFYCB',
                HEXTORAW('FF')
          1
END;
===================================
BEGIN
  SYS.DBMS_AQADM.START_QUEUE
    QUEUE_NAME => 'XXKNL_TEST_Q'
   ,ENQUEUE => TRUE
   ,DEQUEUE => TRUE
END;
==========================================
DECLARE
enqueue_options dbms_aq.enqueue_options_t;
     message_properties dbms_aq.message_properties_t;
     message_handle RAW(16);
     message xxmessage_typ;
BEGIN
       message := xxmessage_typ('NORMAL MESSAGE',  'This is my Q..' );
       dbms_aq.enqueue(queue_name => 'xxknl_test_q',
                      enqueue_options => enqueue_options,
                      message_properties => message_properties,
                      payload => message,
                      msgid => message_handle);
end;
========================================================
create or replace procedure xxknl_notifyCB( context raw,
                                          reginfo sys.aq$_reg_info,
                                          descr sys.aq$_descriptor,
                                          payload raw,
                                          payloadl number)
    as
     dequeue_options dbms_aq.dequeue_options_t;
     message_properties dbms_aq.message_properties_t;
     message_handle RAW(16);
    message xxmessage_typ;
   BEGIN
      dequeue_options.msgid := descr.msg_id;
      dequeue_options.consumer_name := descr.consumer_name;
      DBMS_AQ.DEQUEUE(queue_name => descr.queue_name,
                      dequeue_options => dequeue_options,
                      message_properties => message_properties,
                      payload => message,
                      msgid => message_handle);
      insert into xxknl_test values
      ( 'Dequeued and processed "' || message.text || '"' );
      COMMIT;
   END;
Please let me know if something is missed.
Thanks
Rishi

Answer 1

Hi,
Kindly check below;
AQ PL/SQL Notification: PL/SQL Callback and Email Notification (Doc ID 225749.1)
Also let me know if there are any Q0** or J0** traces generated.
Thanks,