ASG
IBM
Zystems
Cressida
Icon
Netflexity
 
  MQSeries.net
Search  Search       Tech Exchange      Education      Certifications      Library      Info Center      SupportPacs      LinkedIn  Search  Search                                                                   FAQ  FAQ   Usergroups  Usergroups
 
Register  ::  Log in Log in to check your private messages
 
RSS Feed - WebSphere MQ Support RSS Feed - Message Broker Support

MQSeries.net Forum Index » IBM MQ API Support » [Solved] help with perl, MQCONNECT reason 2058

Post new topic  Reply to topic
 [Solved] help with perl, MQCONNECT reason 2058 « View previous topic :: View next topic » 
Author Message
golemwashere
PostPosted: Tue Jan 13, 2004 6:22 am    Post subject: [Solved] help with perl, MQCONNECT reason 2058 Reply with quote

Newbie

Joined: 29 Dec 2003
Posts: 8

Hello,
I have a problem with some perl scripts
using this connection code
[code]
$qmgr = MQSeries::QueueManager->new
(
QueueManager => $qmgr_name,
ClientConn => { 'ChannelName' => $channelname,
'TransportType' => 'TCP', # Default
'ConnectionName' => $connectionname,
'MaxMsgLength' => 32 * 1024 * 1024,
ConnectTimeout => 12,
RetryCount => 5,
RetrySleep => 5,
CompCode => \$QmgCompCode,
Reason => \$QmgReason,
},
) || &unabletoopenqmgr();
[\code]

the script was successfully tested in a development environment.
In production,
testing amqsputc with the proper MQSERVER environment works great...
but the script dies in the connection with Reason 2058 (unknown qmanager)
I tried also to set MQSERVER environment in the script,
[code]
$ENV{MQSERVER} = "$channelname/TCP/$connectionname";
[/code]
but nothing changes,
even
[code]
$coption = { 'ChannelName' => $channelname,
'TransportType' => 'TCP',
'ConnectionName' => $connectionname,
};

$Hconn = MQCONNX($qmgr_name, { 'ClientConn' => $coption,
}, $CompCode,$Reason) or die("MQCONNX failed ,$CompCode,$Reason");
[/code]
or a plain MQCONN with proper MQSERVER fail with a miserable 2058

any idea why?
Many thanks

Golem
Back to top
View user's profile Send private message
mrlinux
PostPosted: Tue Jan 13, 2004 7:32 am    Post subject: Reply with quote

Grand Master

Joined: 14 Feb 2002
Posts: 1261
Location: Detroit,MI USA

If the system where you are running the perl script contains MQSeries Server, then you need to specify use MQSeries::Client to override the default of using server libs.
_________________
Jeff

IBM Certified Developer MQSeries
IBM Certified Specialist MQSeries
IBM Certified Solutions Expert MQSeries
Back to top
View user's profile Send private message Send e-mail
golemwashere
PostPosted: Tue Jan 13, 2004 8:03 am    Post subject: MQServer::Client Reply with quote

Newbie

Joined: 29 Dec 2003
Posts: 8

Thanks!
It might be that!!!!!

ehm
looks like I can't find MQSeries::Client
I uncommented
# NOSERVER = 1
and rebuild the module (
make clean
perl Makefile.PL
make
make install)
but still I get
Client.pm not found....
any suggestions?
thanks again
Golem
(if it'll work I owe you a beer)
Back to top
View user's profile Send private message
golemwashere
PostPosted: Tue Jan 13, 2004 8:16 am    Post subject: use MQClient::MQSeries; Reply with quote

Newbie

Joined: 29 Dec 2003
Posts: 8

actually it was just that!!!!

use MQClient::MQSeries;

thanks a lot again
Golem
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic  Reply to topic Page 1 of 1

MQSeries.net Forum Index » IBM MQ API Support » [Solved] help with perl, MQCONNECT reason 2058
Jump to:  



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
Protected by Anti-Spam ACP
 
 


Theme by Dustin Baccetti
Powered by phpBB © 2001, 2002 phpBB Group

Copyright © MQSeries.net. All rights reserved.