Enqueue works fine Dequeue works when run manually but not via Notification

Question

Hi,
My Enqueue works fine. My Dequeue procedure works fine when run manually. But when I register a notification the procedure is not called.
The log file shows:
ORACLE_HOME = /u01/app/oracle/product/10.2.0
System name: Linux
Node name: gooch.com
Release: 2.4.21-50.ELsmp
Version: #1 SMP Tue May 8 17:18:29 EDT 2007
Machine: i686
Instance name: xml
Redo thread mounted by this instance: 1
Oracle process number: 25
Unix process pid: 7761, image: [email protected] (J000)
*** 2010-03-06 14:09:22.167
*** ACTION NAME:() 2010-03-06 14:09:22.167
*** MODULE NAME:() 2010-03-06 14:09:22.167
*** SERVICE NAME:(SYS$USERS) 2010-03-06 14:09:22.167
*** SESSION ID:(145.99) 2010-03-06 14:09:22.167
Error in PLSQL notification of msgid:8128C090A10BE480E0407E0A660F1B97
Queue :"XML4"."TEST14_Q"
Consumer Name :TEST14
PLSQL function :xml4.test14_proc
: Exception Occured, Error msg:
ORA-00604: error occurred at recursive SQL level 2
ORA-06550: line 1, column 7:
PLS-00306: wrong number or types of arguments in call to 'TEST14_PROC'
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored
my code is
BEGIN
  DBMS_AQADM.CREATE_QUEUE_TABLE(
     queue_table        => 'test14_t',
     comment            => 'Queue Table to process incoming ORDER XML messages from Management Dynamics',
     multiple_consumers => TRUE,
     queue_payload_type => 'SYS.XMLTYPE',
     compatible         => '8.1');
END;
BEGIN
  DBMS_AQADM.CREATE_QUEUE(
    queue_name  => 'test14_q',
    queue_table => 'test14_t');
END;
BEGIN
dbms_aqadm.start_queue('test14_q');
END;
BEGIN
  DBMS_AQADM.ADD_SUBSCRIBER (
     queue_name => 'test14_q',
     subscriber => SYS.AQ$_AGENT('test14', NULL, NULL)
END;
CREATE or replace PROCEDURE test14_proc AS
  deq_opts dbms_aq.dequeue_options_t;
  mess_prop dbms_aq.message_properties_t;
  mess_handle RAW(16);
  message XMLTYPE;
  buffer varchar2(100);
  msglen number;
begin
  deq_opts.wait := dbms_aq.FOREVER;
  deq_opts.consumer_name := 'test14';
  dbms_aq.dequeue(queue_name=> 'test14_q',
                  dequeue_options => deq_opts,
                  message_properties => mess_prop,
                  payload => message,
                  msgid => mess_handle);
  commit;
  insert into testxml values(message);
  commit;
  insert into hello select extractvalue(xml1, '/Hello') from testxml;
  commit;
end test14_proc;
DECLARE
  queue_options DBMS_AQ.ENQUEUE_OPTIONS_T;
  message_properties DBMS_AQ.MESSAGE_PROPERTIES_T;
  message_id RAW(16);
  message SYS.XMLType;
BEGIN
  message := sys.XMLType.createXML('<?xml version="1.0"?><Hello>Test</Hello>');
  DBMS_AQ.ENQUEUE( queue_name => 'test14_q',
                   enqueue_options => queue_options,
                   message_properties => message_properties,
                   payload => message,
                   msgid => message_id);
  COMMIT;
END;
BEGIN
  DBMS_AQ.REGISTER (
      SYS.AQ$_REG_INFO_LIST(
        SYS.AQ$_REG_INFO(
          'xml4.test14_q:test14',
           DBMS_AQ.NAMESPACE_AQ,
           'plsql://xml4.test14_proc?PR=0',
           HEXTORAW('FF'))),1);
  END;Any ideas?
Thanks in advance!

Answer 1

I actually changed it to process RAW as well i.e.
BEGIN
  DBMS_AQ.REGISTER (
      SYS.AQ$_REG_INFO_LIST(
        SYS.AQ$_REG_INFO(
          'xml4.test14_q:test14',
           DBMS_AQ.NAMESPACE_AQ,
           'plsql://xml4.test14_proc?PR=0',
           HEXTORAW('FF'))),1);
  END;and it still is failing with the same error