porter::export_tags('all');
}
Thanks,
Santosh
____
From: Santosh Sadangi
Sent: Thursday, March 01, 2012 9:18 AM
To: perl-mqser...@morganstanley.com; modules@perl.org
Subject: FW: CPAN Mqseries Module for Solaris5.10
Hi Team,
Many thanks for your help and suggestion. I am new to
print "---\n";
$Hconn = MQCONN($qm_name,
\$compCode,
\$Reason,
)|| die "Unable to Connect to Queuemanager\n";
Thanks,
Santosh
________
print "---\n";
$Hconn = MQCONN($qm_name,
\$compCode,
\$Reason,
)|| die "Unable to Connect to Queuemanager\n";
Thanks,
Santosh
_________
( $self->{"Reason"} == MQRC_NOT_AUTHORIZED) {
print "not authorize errorr\n";
} elsif ( $self->{"Reason"} == MQRC_Q_MGR_NAME_ERROR) {
print "Queue Manager errorr\n";
}
else {
pr
elsif ( $self->{"Reason"} == MQRC_NOT_AUTHORIZED) {
print "not authorize errorr\n";
} elsif ( $self->{"Reason"} == MQRC_Q_MGR_NAME_ERROR) {
print "Queue Manager errorr\n";
}
else {
pri
} elsif ( $self->{"Reason"} == MQSeries::MQRC_Q_MGR_NAME_ERROR) {
print "Queue Manager errorr\n";
}
else {
print "Reason is $Reason\n";
print "\n";
}
print "After MQCONN\n";
}
Step-4-i
Hi Team,
I am new to perl and Cpan Mqseries.I have written one script to connect to local queuemanager by using perl.However it is not connecting to my Queuemanager and the error code and completion code which i am getting
is a junk value.
Upon investigation i have found from the following c
