Hi Team,

I am writing one perl script to connect to my local queue.
i am getting the below error message while connectting to the queueman
+ager.
-------------------------------------------------------------

Mandatory parameter 'AutoConnect' missing in call to MQSeries::QueueMa
+nager::Connect
        MQSeries::QueueManager::Connect('MQSeries::QueueManager=HASH(0
+x7ae7ec)') called at Mqutils.pm line 63
        Mqutils::openQueueMgr('Mqutils=HASH(0x32590)', 'QM.A108020', 1
+0.225.98.86, 1414, 'QM.A108020', 'request') called at ./mq_put.pl lin
+e 25
-------------------------------------------------------------
Following is my script where it is creating problem-

I have used all the arguments inside new to resolve argument mismatch 
+error.After resolving this error when in the below code i am calling 
+the Connect function it is giving the error as "Mandatory parameter '
+AutoConnect' missing in call to MQSeries::QueueManager::Connect
",However it is already there in the qm object,which created sucessful
+ly through "MQSeries::QueueManager->new".


  my $qm = MQSeries::QueueManager->new(
                              QueueManager         => $qm_name,
                              Carp                 => 0,
                              CompCode             => 0,
                              Reason               => 0,
                              GetConvert           => 0,
                              PutConvert           => 0,
                              RetryCount           => 0,
                              RetrySleep           => 0,
                              RetryReasons         => 0,
                              ConnectTimeout       => 0,
                              ConnectTimeoutSignal => 0,
                              ClientConn           => 0,
                              SSLConfig            => 0,
                              AutoConnect          => 0,
                              AutoCommit           => 0,
    )|| die "Unable to instantiate MQSeries::QueueManager object\n";
print "After new and before connect\n";
#  kick it off and see if it connects
#    eval {
        $qm->Connect()
            || die(sprintf("Connect failed with CompCode: %s",
                               "Reason %sn",$qm->CompCode(),$qm->Reaso
+n()));
#    };


The error is comming from the below validation connect function while 
+validating Connect.
sub Connect {
    my $self = shift;
    my @combined_params = ( %{$self->{ConnectArgs}}, @_ );
   print "Santosh before Validate\n";
    my %args = validate(@combined_params,
                        { 'RetryCount'           => 0,
                          'RetrySleep'           => 0,
                          'RetryReasons'         => 0,
                          'ConnectTimeout'       => 0,
                          'ConnectTimeoutSignal' => 0,
                          'ClientConn'           => 0,
                          'SSLConfig'            => 0,
                          'AutoConnect'          => 0,
                        });

Thanks,
Santosh
[download]