MQSeries.net :: View topic - Problem with Perl 1,25 for MQ for Solaris

relheop · Posted: Sun Aug 26, 2007 1:09 pm Post subject:

Hallo @,

I try to run a sample perl program on two Solaris boxes (Cluster Sol 10, MQ V6). On one it works fine and on the other it alwayes failed with following reason:2019 ( see the above source code)
Any ideas to check the system perl (/usr/perl5/5.8.4) and MQ Perl installation are wellcome?

Thx in advance.
J

#!/usr/bin/perl

## 07/23/01
## Depth Inquiry sample program.
## Arguments: [Queue Name] [Queue Manager Name]
## Connects to the queue manager specified by the command line,
## if not supplied, it will connect to the default queue manager.
## It then inquires about the queue name passed in, specifically,
## the current depth of that queue. This is displayed to the user.
## This code can easily be modified to display other queue properties.
## Furthermore, MQINQ can be used to inquire about the attributes of
## other objects, not just queues.
##
## Author: Brandon Duncan
## brandon@mqseries.net
## www.mqseries.net
##

use MQSeries;

my $qname = $ARGV[0];
my $qmgrname = $ARGV[1];

my $Hconn = MQCONN($qmgrname, $CompCode, $Reason);
print"MQCONN reason:$Reason\n";

my $ObjDesc = { ObjectType => MQOT_Q, ObjectName => $qname };

my $Options = MQOO_INQUIRE | MQOO_SET | MQOO_FAIL_IF_QUIESCING;
my $Hobj = MQOPEN($Hconn,$ObjDesc,$Options,$CompCode,$Reason);
print"MQOPEN reason:$Reason\n";

my $tst = MQINQ($Hconn,$Hobj,$CompCode,$Reason,MQIA_CURRENT_Q_DEPTH);
print"Depth of $qname is: $tst\n";

MQCLOSE($Hconn,$Hobj,$COptions,$CompCode,$Reason);
print"MQCLOSE reason:$Reason\n";
MQDISC($Hconn,$CompCode,$Reason);
print"MQDISC reason:$Reason\n";

OutPut:
./neu_test.pl LQ QM
MQCONN reason:0
MQOPEN reason:0
Depth of LQ is: 3
MQCLOSE reason:2019
MQDISC reason:0

Same problems accours with other perl get programs on this box.