Problem while using column_info

[Christian LOPES]

Hi,

I'm just starting to use DBI to access an Adabas D database (I'm also using the 
DBI::Adabas module).

Everything is ok except some functions :
column_info
get_info
primary_key_info
Code :
#! /usr/bin/perl -w
use DBI;
use strict;
$ENV{'DBROOT'} = "/usr/adabas/aad/v1200";

my $dbh = DBI->connect('dbi:Adabas:oblbd42',
                       'obl',
                       'obl',
                       {
                           RaiseError => 1,
                           AutoCommit => 0
                           }
                       ) || die "Database connection not made: $DBI::errstr";
my $sth = $dbh->table_info(undef, undef, undef, undef);
warn "table_info : ".$sth;
$sth->finish;
my $database_version  = $dbh->get_info(  18 ); # SQL_DBMS_VER
warn "db_version : ".$database_version;
$sth = $dbh->column_info(undef, undef, undef, undef);
warn "column_info : ".$sth;
$sth->finish;
$dbh->disconnect;

output :
table_info : DBI::st=HASH(0x8200a04) at test.pl line 20.
Use of uninitialized value in concatenation (.) or string at test.pl line 24.
db_version :  at test.pl line 24.
Use of uninitialized value in concatenation (.) or string at test.pl line 27.
column_info :  at test.pl line 27.
Can't call method "finish" on an undefined value at test.pl line 28.
Issuing rollback() for database handle being DESTROY'd without explicit 
disconnect().

I've searched on the Internet, but I didn't found a solution.
Maybe I've done something wrong, and it's a very simple problem. Sorry :)
Thank you

--
Christian Lopes
[EMAIL PROTECTED]
"[EMAIL PROTECTED]"