Asynchronous Notifications problem

Question

Hi all,
Now I am developing with Oracle Advance Queuing.
In order to dequeue message from queue automatically when it arrives I have procedure dequeue as following:
PROCEDURE dequeue(CONTEXT RAW
,reginfo sys.aq$_reg_info
,descr sys.aq$_descriptor
,payload RAW
,payloadl NUMBER) IS
dq_opt dbms_aq.dequeue_options_t;
msg_pro dbms_aq.message_properties_t;
msg_id RAW(16);
msg xmltype;
Begin
dq_opt.msgid := descr.msg_id;
dq_opt.consumer_name := descr.consumer_name;
dbms_aq.dequeue(queue_name => descr.queue_name
,dequeue_options => dq_opt
,message_properties => msg_pro
,payload => msg
,msgid => msg_id);
End;
Register dequeue procedure:
declare
reginfolist sys.aq$_reg_info_list;
reginfo sys.aq$_reg_info;
Begin
reginfo := sys.aq$_reg_info(queue_in||':'||subscriber_name
,dbms_aq.namespace_aq
,'plsql://DEMO.dequeue'
,HEXTORAW('FF'));
reginfolist := sys.aq$_reg_info_list(reginfo);
dbms_aq.register(reginfolist, 1);
End;
subscriber_name is name of subscriber created as following command:
s:=sys.aq$_agent(subscriber_name,queue_in||db_link,NULL);
dbms_aqadm.add_subscriber(queue_name => qname, subscriber => s);
queue_in: queue to receive message named DEMO.QUEUEIN
qname : queue to send message named DEMO.QUEUEOUT
But when DEMO.QUEUEOUT propagated messages to DEMO.QUEUEIN it
was same no action in DEMO.QUEUEIN (message was stil in QUEUEIN until when I ran dequeue manually).
Please show me How to debug this problem?

Answer 1

Hello ,
for your coding itself I had the following variation/suggestion:
METHOD dialog_with_asynchronous_call.
   swc_container cont.
   REFRESH cont.
   swc_set_element cont 'Sourcer' source.
   swc_raise_event self 'Sourcer_assigned' cont.
   COMMIT WORK.
ENDMETHOD.
After the commit work statement, leave method immediatly.
Best regards,
Florin