FW: Lost the capacity to get paramters

[Venefax]

Subject: Lost the capacity to get paramters

 

I installed a new machine with CENTOS 5 64 Bits and DBI 1.604, later svn,
DBD-Sybase 1.08, I execute this perl script

 

#!/usr/bin/perl

use strict;

use DBI;

my $server = "";

my $db = "minixel";

my $username = "sa";

my $password = "";

 

my $dbh = DBI->connect("dbi:Sybase:lucidux:1433", 'user', 'password',
{PrintError => 0});

die "Unable for connect to server $DBI::errstr"

    unless $dbh;

$dbh->do("use $db");

my $query = "declare [EMAIL PROTECTED] varchar(64), [EMAIL PROTECTED] 
varchar(40) ,
[EMAIL PROTECTED] varchar(30) , [EMAIL PROTECTED] varchar(20) , [EMAIL 
PROTECTED] int  ,
[EMAIL PROTECTED] int

select [EMAIL PROTECTED] = '1120019620.8', [EMAIL PROTECTED] = '', [EMAIL 
PROTECTED] =
'17274907253', [EMAIL PROTECTED] = '16463835040', [EMAIL PROTECTED] = 1, [EMAIL 
PROTECTED] = 0  exec

SoftRoutingQ [EMAIL PROTECTED] , [EMAIL PROTECTED] OUTPUT, [EMAIL PROTECTED] 
OUTPUT,
[EMAIL PROTECTED] OUTPUT , [EMAIL PROTECTED] OUTPUT, [EMAIL PROTECTED] OUTPUT";

my $sth = $dbh->prepare($query);

          $sth->execute();

do {

      while(my $dat = $sth->fetch) {

print "TYPE $sth->{syb_result_type}\n";

print "Data @$dat[0] , @$dat[1] , @$dat[2] \n";

         if($sth->{syb_result_type} == 4042) { # it's a PARAM result

           print "Number:  $dat->[0]  \n";

            print "Varpar:  $dat->[1]  \n";

         }

      }

   } while($sth->{syb_more_results});

$sth=undef;

$dbh->disconnect;

 

The only thing that I don't get back are the 4042 type results (parameter
values). What is happening? Is it DBD or DBI or Perl? What are the steps to
troubleshoot this? I can test the same script from another machine with
identical software 64 Bits and it works. What can be different in a machine
to crate this issue?? I even yum-erased perl* and reinstalled perl, to no
avail.

Thanks in advance

Philip Orleans