We do not test our ODBC driver with Perl, so there is no guarantee that it
will work. However, unofficially, at least some aspects of it will work...
with the correct Perl setup.

Go to http://www.adsm.org and do a search using this criteria:

   +perl +odbc +raibeck

You will find an informative post from Mr. Gerhard Rentschler describing
how he was able to use Dave Roth's Win32:ODBC module to get a simple SELECT
statement to work in Perl.

Regards,

Andy

Andy Raibeck
IBM Tivoli Systems
Tivoli Storage Manager Client Development
e-mail: araibeck AT tivoli DOT com
"The only dumb question is the one that goes unasked."
"The command line is your friend"


"Chibois, Herve" <Chibois_H AT ADMIRAL DOT FR>@VM.MARIST.EDU> on 06/07/2001
06:06:10 AM

Please respond to "ADSM: Dist Stor Manager" <ADSM-L AT VM.MARIST DOT EDU>

Sent by:  "ADSM: Dist Stor Manager" <ADSM-L AT VM.MARIST DOT EDU>


To:   ADSM-L AT VM.MARIST DOT EDU
cc:
Subject:  Re: DBI Connections to TSM database


Hi Mark

It's normal ! TSM DB is not a DB2 one. It is based on B-tree and
I've already tried to write a DBI::TSM driver. 99% of the job is
done but one out of 10 commands in the ODBC connection procedure
is different fro TSM. So I could not achieve my work.

When I have more time, I will ask a ODBC guru to help me to finish
my driver. At this time, if your admin box is NT, just install ODBC
and try to connect using this... But I did not manage to either using
PERL / PHP.

Keep in touch

rv

> -----Message d'origine-----
> De : Mark A. Adams [mailto:mark_adams AT CSGSYSTEMS DOT COM]
> Envoyé : mercredi 6 juin 2001 22:43
> À : ADSM-L AT VM.MARIST DOT EDU
> Objet : DBI Connections to TSM database
>
>
> I am running AIX 4.3.3.x with version 3.7.4 TSM.
> I need to connect to the TSM database using perl, using the
> DBI and the
> DBD::DB2 module.
> I am having trouble connecting to the database. Could anyone
> give me a hand.
>
> CODE
> #!/usr/local/bin/perl
>
> use DBI;
> use DBD::DB2::Constants;
> use DBD::DB2;
>
> $db = DBI->connect("dbi:DB2:adsmsrv1", user, password);
> if (!defined($db)) {
>  print "Error connecting to server1 \n";
>  #print "Error: " . DBD::DB2::Error(). "\n";
>  exit(1);
> }
> exit(0);
> ######################################################
>
> This is the error I am getting.
> DBI->connect(adsmsrv1) failed: Total Environment allocation
> failure!  Did
> you set up your DB2 client environment? at ./first.pl line 7
> Error connecting to server1
> #########################
>
> Does any one have any ideas or could help me out?
>
> Mark Adams
> Systems Programmer
> CSG Systems, Inc.
>