MQSeries.net :: View topic - How do you capture the MsgId of a msg that you've browsed?

manjo · Posted: Thu Sep 29, 2005 7:40 pm Post subject:

I'm using perl/MQSeries.pm

I'm unable to GET a message for a specific MsgId. I can read the messages on the queue just fine when not looking for a specific msg (i.e. using MQMO_NONE, and not setting MsgId). Part of my debugging is that I'd like to BROWSE the messages on the queue and capture their MsgId's so that I can ensure that I MQPUT them on the queue with a MsgId in the first place. Is there a way to do that?

In any event, my relevant MQGET code is this:

my $MsgId = "24818_31_3 test jfmiazzz";

$NextGetMsgOpts = {
MatchOptions => MQMO_MATCH_MSG_ID,
Options => MQGMO_NO_WAIT | MQGMO_CONVERT | MQGMO_BROWSE_NEXT
};

$GMsgDesc = {
MsgId=>$MsgId
};

$buffer = MQGET($Hcon,
$Hobjget,
$GMsgDesc,
$NextGetMsgOpts,
$buflen,
$CompCode,
$GReason);

foreach $key (keys %$GMsgDesc)
{
print "$key: %$GMsgDesc->{$key}\n";
}

($ReasonText) = MQReasonToText($GReason);
print " MQGET failed CompCode = $CompCode, $ReasonText -->\n";

END OF CODE EXCERPT

OUTPUT excerpt:
MsgId: %24818_31_3 test jfmiazzz
MQGET failed CompCode = 2, No message available. -->

Any suggestions would be appreciated.

Thanks,
Margaret