#!/efs/dist/perl5/core/5.10/exec/bin/perl

use EFSPerl::Version 'DBI' => '1.607', 'DBD-Sybase' => '1.09';
use 5.010;
use DBI qw(:sql_types);

my %attr        = (     'RaiseError' => 1,
                        'PrintError' => 0,
                        'ChopBlanks' => 1,
                        'AutoCommit' => 0,
                  );
print "establishingh connection\n";
my $dbh = DBI->connect("dbi:Sybase:server=ETMA_NYDEV_DS;database=some_db","some_uid","some_pwd", \%attr);

print "preparing call to PerlTest sp\n";
my $sth = $dbh->prepare("exec PerlTest2 \@RetVal = ? OUTPUT, \@SomeParam = ? ");

print "starting transaction\n";
$dbh -> begin_work;   # <<<<< error here ....  DBD::Sybase::db begin_work failed: Already in a transaction

$sth->bind_param(1, undef, SQL_INTEGER);
$sth->bind_param(2, "val1", SQL_VARCHAR);

print "executing...\n";
$sth->execute;

print "rolling back...\n";
# lets rollback
$dbh->rollback;

print "finishing...\n";
$sth -> finish;
$dbh->disconnect;

close dbh;
print "----disconnected------\n";
exit 0;