------=_NextPart_000_01B6_01C8A2CC.3F4E66F0
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: 7bit
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 \ [at] sessionid varchar(64), \ [at] IPAddress varchar(40) ,
\ [at] ReceivedNumber varchar(30) , \ [at] ANI varchar(20) , \ [at] protocol int ,
\ [at] timeout int
select \ [at] sessionid = '1120019620.8', \ [at] IPAddress = '', \ [at] ReceivedNumber =
'17274907253', \ [at] ANI = '16463835040', \ [at] protocol = 1, \ [at] timeout = 0 exec
SoftRoutingQ \ [at] sessionid , \ [at] IPAddress OUTPUT, \ [at] ReceivedNumber OUTPUT,
\ [at] ANI OUTPUT , \ [at] protocol OUTPUT, \ [at] timeout OUTPUT";
my $sth = $dbh->prepare($query);
$sth->execute();
do {
while(my $dat = $sth->fetch) {
print "TYPE $sth->{syb_result_type}\n";
print "Data [at] $dat[0] , [at] $dat[1] , [at] $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
------=_NextPart_000_01B6_01C8A2CC.3F4E66F0--
