MQSeries.net :: View topic

igals · Posted: Sun Oct 03, 2004 9:17 am Post subject:

Hello professionals.
Need help on my prog, trying to print the MsgId for debugging purpose
and after printing i see some garbage and same MsgId. May be anyone
can help by looking on my code
use strict;

use MQSeries;
use Benchmark;

my $expiry = 10000;
my $qmgrname = 'QM_4_Perl';
my $requestqname = 'PERL.EXAMPLES.RR1.REQUEST';
my $replyqname = 'PERL.EXAMPLES.RR1.REPLY';
my ($CompCode,$Reason,$COptions);
my $bufferlen=32000;

# start timer
my $start = new Benchmark;

#
# Step 1: connect to the queuemanager.
#
my $Hconn = MQCONN($qmgrname, $CompCode, $Reason);
#
# Step 2: Open Put queue
#
my $Correl_Id;
my $POptions = MQOO_OUTPUT | MQOO_FAIL_IF_QUIESCING;
my $PObjDesc = { ObjectName => $requestqname };
my $PHobj = MQOPEN($Hconn,$PObjDesc,$POptions,$CompCode,$Reason);
#Set MQMD
my $PMsgDesc = { CorrelId => MQPMO_NEW_CORREL_ID,
MsgId => MQPMO_NEW_MSG_ID,
Format=> MQFMT_STRING,
MessageType => MQMT_REQUEST };

my $PutMsgOpts = { Options=> MQPMO_FAIL_IF_QUIESCING | MQPMO_NEW_MSG_ID |
MQPMO_NEW_CORREL_ID ,

};
my $Buff;
#
# Step 3: Open Get queue
#
my $GOptions = MQOO_INPUT_AS_Q_DEF | MQOO_FAIL_IF_QUIESCING;
my $GObjDesc = { ObjectName => $replyqname};
#Set MQMD
my $GMsgDesc = { CorrelId => $Correl_Id,
MsgId => MQSeries::MQMI_NONE };
my $GetMsgOpts = { Options => MQGMO_FAIL_IF_QUIESCING |
MQGMO_WAIT, WaitInterval => 600000,
MatchOptions => MQSeries::MQMO_MATCH_CORREL_ID };
my $GHobj = MQOPEN($Hconn,$GObjDesc,$GOptions,$CompCode,$Reason);
print"OPEN: $Reason\n";

#
# Step 4: Put message on request queue
#
$Buff = "The Message";
MQPUT($Hconn, $PHobj, $PMsgDesc, $PutMsgOpts, $Buff, $CompCode, $Reason);
print"Put reason: $Reason\n";
print "Put msgid is from MQMD $PMsgDesc->{MsgId}\n";
print "Put msgid is from Options $PutMsgOpts->{MsgId}\n";
_________________
Igal