Browse message from MQSeries queue using perl API for MQSeries(WMQ)

Hi Monks ,

I got request to display message from MQSeries queue with non-destructive manner using perl . I tried to get some clues from google but no luck as of now , after long try I am posting this

I tried with MQOO_BROWSE without MQOO_INPUT_* options while initialize the queue and used MQGMO_BROWSE_* options while access the queue . But script reads message in destructive manner .

any clues which option I should use here to overcome from this

Comment on Browse message from MQSeries queue using perl API for MQSeries(WMQ)
Re: Browse message from MQSeries queue using perl API for MQSeries(WMQ) by Anonymous Monk on Jan 27, 2012 at 09:16 UTC
You tried what? how? Sadly http://search.cpan.org/grep?cpanid=MQSERIES&release=MQSeries-1.32&string=browse&i=1&n=1&C=0 doesn't show any example of MQOO_BROWSE	[reply]
Re^2: Browse message from MQSeries queue using perl API for MQSeries(WMQ) by sselva (Novice) on Jan 30, 2012 at 13:57 UTC
Hi , I tried with below code snippet while get message (MQGET) from queue my $mh = MQSeries::Message->new ( MsgDesc => { CodedCharSetId => 1208}, Options => (MQGMO_BROWSE_FIRST), BufferLength => 16 * 1024 * 1024 ) ; and queue initialize (MQ OPEN) code snippet $inqh = MQSeries::Queue->new ( QueueManager => $qmh, Queue => "QL.TEST", Options => (MQOO_BROWSE\|), ) here I tried with both MQOO_INPUT_* as well . While tried with MQOO_BROWSE option I am getting 2037 error " Queue not opend for input" , but when I tried with MQOO_INPUT_* its getting message with destructive manner . I have checked the below link and they recommend to use MQOO_BROWSE :http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CSQZAL05/2.5.10?SHELF=AMQZA90E&DT=20001013121047&CASE= but its not working :(	[reply]


P is for Practical
	PerlMonks

Browse message from MQSeries queue using perl API for MQSeries(WMQ)

The best material for plates (tableware) is: