MQSeries.net :: View topic - Problem in putting mesages in the Remote Q with VB Code

rajagopalan · Posted: Fri May 26, 2006 5:19 am Post subject:

Dear Gurus,

Iam facing a strange type of error in my Application while accessing my Queue Manager, i.e when my application try to put the messages in the remote queue definiton of my Queue Manager it throws the following error.

MQAX200.MQQueueManager::AccessQueue CompletionCode = 2, ReasonCode = 2045, ReasonName = MQRC_OPTION_NOT_VALID_FOR_TYPE

However i am able to put the message in the local queue of the Queue Manager.

Iam using VB application.

Mqseries 5.3 for windows CSD1 has been installed in my MQserver and the MQclient where my VB application is running is being installed with MQseries Client 5.3.

Please find enclosed the piece of code what iam using in the application code.

Public Sub PutMQString(ByVal str As String)
Dim MQPutMessageOptions As MQAX200.MQPutMessageOptions
Dim MQMessage As MQAX200.MQMessage

On Error GoTo ErrorPlace
Err.Clear

Set MQPutMessageOptions = gMQSession.AccessPutMessageOptions()
With MQPutMessageOptions
.Options = MQPMO_NO_SYNCPOINT
End With

Set MQMessage = gMQSession.AccessMessage()
gMQSession.ExceptionThreshold = 3

With MQMessage
.CharacterSet = MQCCSI_Q_MGR
.Format = "MQSTR"
.WriteInt2 Len(str)
.WriteString str
End With
Debug.Print str
gMQQueue.Put MQMessage, MQPutMessageOptions
Select Case gMQSession.ReasonCode
Case MQRC_NONE

Case Else
Call ShowMessage(gMQSession.ReasonName)
End Select
Set MQPutMessageOptions = Nothing
Exit Sub.

Suggest me to solve this issue

Venkat