| |
|
RSS Feed - WebSphere MQ Support
|
RSS Feed - Message Broker Support
|
  |
|
| MQSeries::Command - Perl module - How to query remote queue |
« View previous topic :: View next topic » |
| Author |
Message
|
| any2xml |
 Posted: Fri Sep 24, 2004 9:17 am Post subject: MQSeries::Command - Perl module - How to query remote queue |
 |
|
Apprentice
Joined: 18 May 2004
Posts: 42
|
Using MQSeries::Command perl modlue I want to send commands to a remote queue manager across the network. I understand it requires channel definition on the remote queue manager, presence of SYSTEM.ADMIN.COMMAND.QUEUE and the command server daemon. Has anyone done this? Can you please post some sample code?
Thanks
_________________
A Perl Hacker
http://www.goreliance.com
http://www.any2xml.com |
|
| Back to top |
|
 |
| mrlinux |
| Posted: Mon Sep 27, 2004 3:13 pm Post subject: |
|
|
Grand Master
Joined: 14 Feb 2002
Posts: 1261
Location: Detroit,MI USA
|
sub DoChannelInquire
{
my $eQMGRName = shift;
my $eChannelName = shift;
my $command = MQSeries::Command::->new('QueueManager' => $qmgr);
{
my @attr = $command->InquireChannelStatus (ChannelName => $eChannelName, ChannelInstanceType => 'Current',);
foreach $attr (@attr)
{
unless ( keys %$attr )
{
warn "Unable to query Current channel status for '$eChannelName'\n";
next;
}
next if $attr->{ChannelStatus} eq 'NotFound';
next unless $attr->{ChannelStatus};
print "Channel '$attr->{ChannelName}' has Current status '$attr->{ChannelStatus}'\n";
print FH_LOG_FILE timeStamp(),',',"$eHost$ePort,",$eQMGRName,',',$attr->{ChannelName},',',$attr->{ChannelStatus},',',$SystemType,"\n";
}
}
}
_________________
Jeff
IBM Certified Developer MQSeries
IBM Certified Specialist MQSeries
IBM Certified Solutions Expert MQSeries |
|
| Back to top |
|
|
|
|
|
| |
|
Page 1 of 1 |
|
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
|
|
|
|
