MQSeries.net :: View topic - .NET WMQ failing Put Message with reason code 2102

rafi_net · Posted: Thu May 17, 2007 8:16 am Post subject:

I am currently working on an .net console application that needs to put a file on MQ Queue.
The following is the module I use for MQ Put. The problem I face is the application runs fine the first two times and the messages are seen in the target queus as expected but on the third run application fails at >> InputQueue.Put(MQMsg, pmo) <<
I am not able to figure the reason, I am totally new to MQ.

I use VS.net 2003 and Web Sphere MQ 6.0

Hopw I am clear in the post, let me know of any questions and/or comments.

Thanks,
Rafi

Imports System
Imports System.IO
Imports System.IO.FileStream
Imports System.Text
Imports System.Text.StringBuilder
Imports IBM
Imports IBM.WMQ

Module MQModule

Public Sub PutMessageOnMQ(ByVal FileName As String, ByVal QueManager As String, ByVal InQueName As String, ByVal FileName_Archieve As String)

'Dim QueManager As String
'Dim InQueName As String
Dim qMgr As MQQueueManager
Dim InputQueue As MQQueue
Dim MQMsg As MQMessage
Dim pmo As MQPutMessageOptions
Dim oFileStream As FileStream
Dim btFile As Byte()
Dim btMsg As Byte()

' Read file and convert into byte() for transfer to MQ

oFileStream = File.Open(FileName, FileMode.Open)

ReDim btFile(oFileStream.Length)

oFileStream.Read(btFile, 0, Convert.ToInt32(oFileStream.Length))

oFileStream.Close()

Try

qMgr = New MQQueueManager(QueManager)

Dim InOpenOptions As Integer = MQC.MQOO_OUTPUT Or MQC.MQOO_FAIL_IF_QUIESCING

InputQueue = qMgr.AccessQueue(InQueName, InOpenOptions)

MQMsg = New MQMessage
MQMsg.Write(btFile)

pmo = New MQPutMessageOptions
InputQueue.Put(MQMsg, pmo)

Catch ex As MQException

Console.WriteLine(ex.Message.ToString())
Dim ofs As FileStream
Dim osw As StreamWriter

ofs = File.Open("C:\XXX\ErrorLog.txt", FileMode.Append, FileAccess.Write)
osw = New StreamWriter(ofs)
osw.WriteLine("Error: " & ex.Message.ToString() & " occurred on " & DateTime.Now().ToString("MM/dd/yyyy HH:mm:ss"))
osw.WriteLine("Reason Code: " & ex.ReasonCode)
osw.WriteLine(vbCrLf)

osw.Close()
ofs.Close()

Catch e As Exception

Console.WriteLine(e.Message.ToString())

Finally

InputQueue.Close()
qMgr.Disconnect()

File.Move(FileName, FileName_Archieve) 'Archieve the file after dumping the data on MQ Queue

End Try

End Sub

End Module