PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: Jeff Pogodzinski <jrpogodzinski at fedex dot com>
Subject: Linux RH5.1 and sybperl error
Date: Jun 19 1998 9:38PM

I loaded sybperl-2.09_05 on my Linux system, RH5.1, and I am getting the following 
strange errors.  I have included both the OUTPUT and the SOURCE code.

Please help if you can. 

Thanks.

OUTPUT:
==================================================
The available DBD drivers are: ExampleP NullP Sponge Sybase.
Use of uninitialized value at /usr/lib/perl5/site_perl/DBD/Sybase.pm line 68.
(I could not see which value was uninitialized when I ran the debugger.)
Can't connect: Open Client Message:
Message number: LAYER = (5) ORIGIN = (3) SEVERITY = (4) NUMBER = (8)
Message String: ct_connect(): network packet layer: internal net library error: Could not find addressing dictionary
Operating System Error: Operating System Error - 135554004
 
SOURCE:
==================================================
#!/usr/bin/perl -w

$ENV{'SYBASE'}        = "/usr/local/sybase";
$ENV{'DSQUERY'}       = "COG_DMH2_SY01";

my (@available_drivers, $dbh, $sql_statement, $sth, @array) = ();
my ($data_source)       = 'dbi:Sybase:interfaces=./interfaces:';
my ($username)          = 'sa';
my ($password)          = '';

use DBI;

#Prints a list of the available DBD drivers.
@available_drivers = DBI->available_drivers;
print ("The available DBD drivers are: @available_drivers.\n");

#Connect to the Sybase db server.
$dbh = DBI->connect($data_source,$username,$password,"Sybase") ||
   die "Can't connect: $DBI::errstr";

$dbh->disconnect;

exit 0