Bookmarks

Yahoo Gmail Google Facebook Delicious Twitter Reddit Stumpleupon Myspace Digg

Search queries

sqldatasource dal, wwwxxxenden, convert raid5 to raid 10 mdadm, apache force chunked, nrao wwwxxx, xxxxxdup, procmail change subject header, wwwXxx not20, Wwwxxx.doks sas, linux raid resync after reboot

Links

XODOX
Impressum

#1: FW: Lost the capacity to get paramters

Posted on 2008-04-20 15:52:28 by venefax

------=_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 \@sessionid varchar(64), \@IPAddress varchar(40) ,
\@ReceivedNumber varchar(30) , \@ANI varchar(20) , \@protocol int ,
\@timeout int

select \@sessionid = '1120019620.8', \@IPAddress = '', \@ReceivedNumber =
'17274907253', \@ANI = '16463835040', \@protocol = 1, \@timeout = 0 exec

SoftRoutingQ \@sessionid , \@IPAddress OUTPUT, \@ReceivedNumber OUTPUT,
\@ANI OUTPUT , \@protocol OUTPUT, \@timeout 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






------=_NextPart_000_01B6_01C8A2CC.3F4E66F0--

Report this message