Here's a sample code:
-------------------------------------------
Const CCHBUFFER = 272
Private Function Get_All()
Dim md As MQMD 'message desciptor
Dim gmo As MQGMO 'get message options
Dim buflen As Long 'length of get buffer
Dim Buffer As String * CCHBUFFER 'got...
Use Reference messages as stated in IBM MQ Series Application Programming Guide on page 144.
It works as MQ FTP. They have sample programs in different languages there as well.
You have to have an MQClient or MQServer installed on your NT. Then have a program that would read from a queue, extract the message data and send it to Oracle.
I have done it in C and not sure how it is done in VB, but
in MQGET function specify the following values:
/*Set MatchOptoons to search by Correlation ID , this is in a GET Message Option Attribute*/
gmo.MatchOptions = MQMO_MATCH_CORREL_ID;
/*Copy the message id from MQPUT into a Correlation...
Get yourself or download IBM's "MQSeries Application Programming Reference". It has everything that you are looking for. IBM book ref# SC33-1673-05
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.