Oracle AQ - Microsoft MQ

Question

Hi all,
I want to dequeue Message from Microsoft MQ to put it in Oracle AQ mecanism. Is there any way to configure it ? I cannot find a "Oracle" solution.
I followed the note below (metalink) to make a PL/SQL Dequeue using ORDCOM and it works but I want to make a 'WAIT dequeue ' from Oracle AQ connectors. Is there any solutions to make this working ?
REgards,
Olivier
In this Document
Goal
Solution
Applies to:
Oracle COM Automation - Version: 8.1.7.0
Information in this document applies to any platform.
Goal
The Goal of this article is to show a way to interface the Microsoft Message Queuing
using Oracle COM Automation
Message Queuing
==============
Message Queuing is a message infrastructure and a development platform for creating distributed, loosely coupled messaging applications for the Microsoft® Windows® operating system. Message Queuing applications can use the Message Queuing infrastructure to communicate across heterogeneous networks and with computers that may be offline. Message Queuing provides guaranteed message delivery, efficient routing, security, transaction support, and priority-based messaging
see
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnanchor/html/messgqueuecomps.asp
Oracle COM Automation
===================
The Oracle COM Automation Feature provides PL/SQL and Java packages that allow stored procedure developers to call COM Automation servers, such as Microsoft Office. These packages expose APIs that allow developers to instantiate COM objects, get and set their properties, and invoke their methods. Developers can call these APIs from PL/SQL and Java subprograms, stored procedures, stored functions, and triggers. With the COM Automation Feature, the Oracle database can be programmed to automatically populate Microsoft Excel spreadsheets or send emails with selected data based on pre-programmed events.
see
http://otn.oracle.com/tech/windows/com_auto/index.html
Solution
Requisites
-MS Windows
-MSQM (it is available as a Windows component)
-Oracle Client Sw
-Oracle COM Automation (Available in the Oracle Client cd or the OTN web site)
and only for this specific sample ,to create the
Step by Step instructions
a)create a MSMQ called "helloworldq"
Win 2000 ->Settings->Control Panel->Administrative Tools ->Computer Management->
Services and Application->Message Queuing->Private Queues
press the right click to invoke the shortcut menu and select
new->private queue
call the queue "HelloWorldq" and
change the type ID in {711A7B92-20BA-11D1-8379-006097C4CEFD}
(the label should appera in the form "private$\HelloWorldq")
b)TO SEND A MESSAGE TO MSMQ
run the following plsql code in sqlplus
set serveroutput on;
declare
SendQ Binary_integer:=-1;
SendQInfo Binary_integer:=-1;
SendQMsg Binary_integer:=-1;
Qresult Binary_integer:=-9999;
QValue Binary_integer:=-9999;
Vv_Text_File Varchar2(300);
Procedure P_Q_Err(Q_Res in Binary_integer,P_Msg in varchar2)
is
err_src VARCHAR2(255);
err_desc VARCHAR2(255);
err_help VARCHAR2(255);
err_helpID BINARY_INTEGER;
begin
dbms_output.put_line(to_char(sysdate,'dd/mon/yyyy hh24:mi')||' '||P_msg || ' Hres '||Q_Res);
ORDCOM.GetLastError(err_src,err_desc,err_help,err_helpID);
dbms_output.put_line(' Err src : ' || err_src);
dbms_output.put_line(' Err desc : ' || err_desc);
dbms_output.put_line(' Err help : ' || err_help);
/* Raise_Application_Error(Q_Res,P_Msg);*/
end;
procedure p_logstr(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Varchar2(1000);
begin
QVal := '--Err--';
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qres || ' '||prop ||' ' ||Qval);
end;
procedure p_logint(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Integer;
begin
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qresult || ' '||prop ||' ' ||Qval);
end;
procedure p_logvar(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Integer;
begin
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qres || ' '||prop ||' ' ||Qval);
end;
begin
if SendQInfo = -1 then
Qresult := ORDCOM.CreateObject('MSMQ.MSMQQueueInfo',0,'',SendQInfo);
if Qresult != 0 or SendQInfo = -1 then
P_Q_Err(Qresult,'Create QInfo Object failed');
end if;
Qresult := ORDCOM.SetProperty(SendQInfo,'FormatName','DIRECT=OS:.\PRIVATE$\HelloWorldQ','BSTR');
if Qresult != 0 then
P_Q_Err(Qresult, 'Set format failed');
end if;
p_logstr(SendQInfo,'ServiceTypeGuid','Set format');
end if;
if SendQ = -1 then
ORDCOM.InitArg();
ORDCOM.SetArg(2,'I4'); /* MQ_SEND_ACCESS */
ORDCOM.SetArg(0,'I4'); /* MQ_DENY_NONE */
Qresult := ORDCOM.Invoke(SendQInfo,'Open',2,SendQ);
if Qresult != 0 or SendQ = -1 then
P_Q_Err(Qresult, 'Open Q failed');
end if;
end if;
dbms_output.put_line(TO_CHAR(SendQ));
if SendQMsg = -1 then
Qresult := ORDCOM.CreateObject('MSMQ.MSMQMessage',0,'',SendQMsg);
if Qresult != 0 or SendQMsg = -1 then
P_Q_Err(Qresult,'Create Q Object failed');
end if;
end if;
Vv_Text_File := 'A message';
Qresult := ORDCOM.SetProperty(SendQMsg,'Body',Vv_Text_File,'BSTR');
if Qresult != 0 then
P_Q_Err(Qresult, 'Set body failed');
end if;
Qresult := ORDCOM.SetProperty(SendQMsg,'Label',to_char(sysdate,'dd/mon/yyyy hh24:mi'),'BSTR');
if Qresult != 0 then
P_Q_Err(Qresult, 'Set label failed');
end if;
ORDCOM.InitArg();
ORDCOM.SetArg(SendQ,'pDISPATCH');
Qresult := ORDCOM.Invoke(SendQMsg,'Send',1,QValue);
if Qresult != 0 then
P_Q_Err(Qresult, 'Send failed');
end if;
p_logint(SendQ,'Access','');
p_logint(SendQ,'IsOpen','');
p_logint(SendQ,'ShareMode','');
end;
c)TO RECEIVE A MESSAGE FROM MSMQ
the one you sent at step b) run the following plsql code in sqlplus
set serveroutput on;
declare
RecvQ Binary_integer:=-1;
RecvQInfo Binary_integer:=-1;
RecvQMsg Binary_integer:=-1;
Qresult Binary_integer:=-9999;
Procedure P_Q_Err(Q_Res in Binary_integer,P_Msg in varchar2)
is
err_src VARCHAR2(255);
err_desc VARCHAR2(255);
err_help VARCHAR2(255);
err_helpID BINARY_INTEGER;
begin
dbms_output.put_line(to_char(sysdate,'dd/mon/yyyy hh24:mi')||' '||P_msg || ' Hres '||Q_Res);
ORDCOM.GetLastError(err_src,err_desc,err_help,err_helpID);
dbms_output.put_line(' Err src : ' || err_src);
dbms_output.put_line(' Err desc : ' || err_desc);
dbms_output.put_line(' Err help : ' || err_help);
/* Raise_Application_Error(Q_Res,P_Msg);*/
end;
procedure p_logstr(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Varchar2(1000);
begin
QVal := '--Err--';
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qres || ' '||prop ||' ' ||to_char(Qval));
end;
procedure p_logint(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Integer;
begin
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qresult || ' '||prop ||' ' ||Qval);
end;
procedure p_logvar(obj in Binary_integer,prop in varchar2,msg in varchar2)
is
Qres Binary_integer:=-9999;
QVal Integer;
begin
Qres := ORDCOM.GetProperty(obj,prop,0,Qval);
dbms_output.put_line(msg || ' '||'Qres ' || Qres || ' '||prop ||' ' ||Qval);
end;
begin
if RecvQInfo = -1 then
Qresult := ORDCOM.CreateObject('MSMQ.MSMQQueueInfo',0,'',RecvQInfo);
if Qresult != 0 or RecvQInfo = -1 then
P_Q_Err(Qresult,'Create QInfo Object failed');
end if;
Qresult := ORDCOM.SetProperty(RecvQInfo,'FormatName','DIRECT=OS:.\PRIVATE$\HelloWorldQ','BSTR');
if Qresult != 0 then
P_Q_Err(Qresult, 'Set format failed');
end if;
p_logstr(RecvQInfo,'ServiceTypeGuid','Set format');
end if;
if RecvQ = -1 then
ORDCOM.InitArg();
ORDCOM.SetArg(1,'I4'); /* MQ_RECEIVE_ACCESS */
ORDCOM.SetArg(0,'I4'); /* MQ_DENY_NONE */
Qresult := ORDCOM.Invoke(RecvQInfo,'Open',2,RecvQ);
if Qresult != 0 or RecvQ = -1 then
P_Q_Err(Qresult, 'Open Q failed');
end if;
end if;
Qresult := ORDCOM.Invoke(RecvQ,'Receive',0,RecvQMsg);
if Qresult != 0 then
P_Q_Err(Qresult, 'Recv failed');
end if;
p_logstr(RecvQMsg,'Body','Received');
end;
Show Related Information Related
Products
* Oracle Database Products > Oracle Database > Platform specific utilities > Oracle COM Automation
Keywords
STORED PROCEDURES; AUTOMATION; QUEUE MESSAGES

Answer 1

Hi,
Ok, just to give you a precision. The technology I found on metalink was to use ORDCOM from an old code valid for version 8i, I test it on my own system
Oracle 10.2.0.4 and Ms XP or 2003 server and it works. This is the only note I found to answer my question. That 's why I ask the question :
My question is : How to connect Oracle AQ with MS Queue in this century ;-) ?
Olivier