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

[sselva]

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

[Anonymous Monk]

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

[sselva]

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 :(