Help. plsql callback of a jms message. Not working

Question

had examples of AQ working in my 10g r2 database using simple queues.
however my problem is I want to use a jms queue. I can enqueue onto it all the time but it never notifies my subscriber and I am drawing a blank. Can anyone help me? Thanks in advance.
Using the example below the data just sits in the queue for ever.
Here is the example assuming installing into oracle user : demo.
begin
dbms_aqadm.create_queue_table
(Queue_table => 'jms_message'
,Queue_payload_type => 'sys.aq$_jms_message'
,multiple_consumers => true
,comment => 'demo queue table'
dbms_aqadm.create_queue
(queue_name => 'jms_message_request',
queue_table => 'jms_message');
dbms_aqadm.start_queue
(queue_name => 'jms_message_request');
end;
drop table demo_data;
drop sequence s_demo_data_id;
create table demo_data
(id number(10)
,stuff varchar2(2000)
create sequence s_demo_data_id;
create or replace procedure plsql_subscriber
(context raw,
reginfo sys.aq$_reg_info,
descr sys.aq$_descriptor,
payload sys.aq$_jms_message,
payloadl number
) is
dequeue_options dbms_aq.dequeue_options_t;
message_properties dbms_aq.message_properties_t;
message_handle RAW(16);
message sys.aq$_jms_message;
v_stuff demo_data.stuff%type;
begin
dequeue_options.msgid := descr.msg_id;
dequeue_options.consumer_name := descr.consumer_name;
dbms_aq.dequeue(queue_name => 'JMS_MESSAGE_REQUEST',
dequeue_options => dequeue_options,
message_properties => message_properties,
payload => message,
msgid => message_handle);
v_stuff:=
'Type: ' || message.get_type ||
' UserId: ' || message.get_userid ||
' AppId: ' || message.get_appid ||
' GroupId: ' || message.get_groupid ||
' GroupSeq: ' || message.get_groupseq;
insert into demo_data values ( s_demo_data_id.nextval,v_stuff);
commit;
end;
-- ADD plsql SUBSCRIBERS AND REGISTER THE QUEUES
prompt -- create subscriber
declare
o_agent sys.aq$_agent;
begin
o_agent:=new sys.aq$_agent
(name => 'SUBSCRIBER1'
,address => null
,protocol=> null
dbms_aqadm.add_subscriber
(queue_name => 'jms_message_request'
,subscriber => o_agent
,rule => null
end;
declare
t_reg_list sys.aq$_reg_info_list;
o_reg_info sys.aq$_reg_info;
begin
-- note as this is a multi consumer q we need the name to be in the format schema.queue:consumer_name
o_reg_info:=new sys.aq$_reg_info
(name =>'demo.jms_message_request:subscriber1'
,namespace =>dbms_aq.namespace_aq -- ie AQ streams
,callback => 'plsql://demo.plsql_subscriber'
,context => hextoraw('FF')
t_reg_list:=new sys.aq$_reg_info_list();
t_reg_list.extend();
t_reg_list(1):=o_reg_info;
/* -- note this suffers from oracle bug : 'count' is a reserved word and use of such a keyword causes this error
-- when using a procedure call in PL/SQL.
-- This is resolved by the fix for Bug 3966513 which will be in 10g Release 2.
-- see below for fix
dbms_aq.register
(reg_list => t_reg_list
,count => 1);
dbms_aq.register(t_reg_list,1);
commit;
end;
DECLARE
id pls_integer;
agent sys.aq$_agent;
map_message sys.aq$_jms_map_message;
message sys.aq$_jms_message;
enqueue_options sys.dbms_aq.enqueue_options_t;
message_properties sys.dbms_aq.message_properties_t;
msgid raw(16);
BEGIN
agent:= new sys.aq$_agent
(name=>'producer' -- name of the producer
,address=>null -- return address
,protocol=>0 -- 0 default
-- Consturct a empty map message object
map_message := sys.aq$_jms_map_message.construct;
-- Shows how to set the JMS header
map_message.set_replyto(agent);
map_message.set_type('myType');
map_message.set_userid('me');
map_message.set_appid('plsql_enq');
map_message.set_groupid('myGroup');
map_message.set_groupseq(1); -- is this messing it up
-- Shows how to set JMS user properties
id := map_message.clear_body(-1);
map_message.set_string(id, 'STRING', 'Hello World!');
map_message.flush(id);
sys.aq$_jms_map_message.clean_all();
message := sys.aq$_jms_message.construct(map_msg=>map_message);
dbms_aq.enqueue(
queue_name => 'jms_message_request',
enqueue_options => enqueue_options,
message_properties => message_properties,
payload => message,
msgid => msgid);
commit;
end;
/

Answer 1

Update:
If I go to network in the dashboard it DOES see the airport but will not let me connect. I keep getting "connection failed." I know I have the right password ect. but no idea why it will not let me join.
Do I need to get the paperclip out and reset the airport???