MQSeries.net :: View topic - MQAX Dynamic Remote Queue Problem in VBScript

ChrisCr · Posted: Mon Jul 21, 2003 7:19 am Post subject:

I am trying to write code in VBScript that will allow me to Get data from a message that includes the DynamicQueueName property and Put reply data to that Dynamic Queue. The Environment is that I have a Request coming in from an IBM Mainframe to a Windows 2000 Server. The Win2k box processes the request and puts a message back to a remote queue that has been setup with a channel. Here is a snippet of the code I am using:

Dim MQAXSession, QMgr, inQueue, outQueue, GetMsg, PutMsg
Dim CID, PutString,

'Open up the MQ Session
Set MQAXSession = CreateObject ("MQAX200.MQSession")
Set QMgr = MQAXSession.AccessQueueManager ("QM_nyrofcs2ksatn01")
Set inQueue = QMgr.AccessQueue("PSC.T1.REQUEST.QUEUE",1)
Set GetMsg = MQAXSession.AccessMessage

'Connect and get the CircuitID
QMgr.Connect
inQueue.Open
inQueue.Get(GetMsg)
CID = GetMsg.ReadString(GetMsg.MessageLength)

'<CID gets processed and reply data gets put in PutString>
PutString = "DummyData"

'Put the Message to the Outgoing Queue
Set outQueue = QMgr.AccessQueue("MQX1",16)
Set PutMsg = MQAXSession.AccessMessage
'outQueue.DynamicQueueName = GetMsg.ReplyToQueueName
'outQueue.RemoteQueueManagerName = "MQX1"
'outQueue.RemoteQueueName = GetMsg.ReplyToQueueName
outQueue.Open
PutMsg.WriteString PutString
outQueue.Put (PutMsg)

If I uncomment the lines in the Put Message section I get an error. If commented the message seems to go to the Remote Queue but doesn't appear in the proper Dynamic Queue on the Mainframe side. What exactly am I missing here? How can I Put that message into the proper queue?

Thanks very much for your time.

...Chris