MQSeries.net :: View topic

cliao · Posted: Fri Sep 10, 2004 6:52 am Post subject:

This is the code I have, the error message I got is wrong selector, but I am not sure what's wrong with it.

/**************************************************/
Dim mqQMgr As MQQueueManager '* MQQueueManager instance
Dim mqQueue As MQQueue '* MQQueue instance
Dim queueName As String '* Name of queue to use
Dim qMgrName As String '* Name of Q Mgr to use
Dim strInput As Array
Dim lSelector As Integer()
Dim cCharByte() As Byte

cCharByte = New Byte() {1}

lSelector = New Integer() {MQC.MQIA_CURRENT_Q_DEPTH}

System.Console.WriteLine("Sample VMQSGET start")
If (CmdArgs.Length = 0) Then
System.Console.WriteLine("Required parameter missing - queue name")
Return (99)
Else
strInput = Split(CmdArgs.GetValue(0), "/")
queueName = strInput(1)
qMgrName = strInput(0)
End If

'*
'* Try to create an MQQueueManager instance
'*
Try
mqQMgr = New MQQueueManager(qMgrName)
Catch mqe As IBM.WMQ.MQException
'* stop if failed
System.Console.WriteLine("create of MQQueueManager ended with {0}", mqe.Message)
Return (mqe.Reason)
End Try

'*
'* Try to open the queue
'*
Try
mqQueue = mqQMgr.AccessQueue(queueName, MQC.MQOO_INQUIRE + MQC.MQOO_BROWSE + MQC.MQOO_FAIL_IF_QUIESCING) '* open queue for input but not if MQM stopping
mqQMgr.Inquire(lSelector, lSelector, cCharByte)
System.Console.WriteLine(lSelector(0))
Catch mqe As IBM.WMQ.MQException
'* stop if failed
System.Console.WriteLine("MQQueueManager::AccessQueue ended with {0}", mqe.Message)
Return (mqe.Reason)
End Try
/*********************************************************/

Please help.