Posted: Tue Sep 21, 2004 11:10 am Post subject: Perl remote queue
Newbie
Joined: 06 Aug 2004 Posts: 4
I am trying to respond to a remote queue that is being sent to me in the header of the message that I read from. I don't know how to specify the remote queue manager, however, on the open. Here's what I have: (with this I get a 2085).
my $returnMsgDesc = $::returnUNIXmessage->MsgDesc();
my $ISSQMgr = $returnMsgDesc->{ReplyToQMgr};
my $ISSQName = $returnMsgDesc->{ReplyToQ};
my $homeQMgr = $::qmgr;
#
# open the put queue
#
$::putq = MQSeries::Queue->new
(
QueueManager => $homeQMgr, (this is my local queue manager)
Queue => $ISSQName, (this is the remote queue name)
Options => MQSeries::MQOO_FAIL_IF_QUIESCING |
MQSeries::MQOO_OUTPUT,
) || dieweb "Unable to open queue $ISSQName\n";
print "Put queue $ISSQName is opened\n";
&servlogger::write_to_log( "Put queue $::putq->Queue is opened\n") ;
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum