#!/usr/bin/perl
require DBI;
import DBI;

$t- >{'t'} = "t";

$drh = DBI- >install_driver('Linter');

print "Version = $drh- >{Version}";

$database='';
$username='SYSTEM';
$auth='MANAGER8';
$dbh = DBI- >connect($database, $username, $auth, \%attr, 'Linter');

if(defined $dbh){
 $dbh- >do('drop table bigint_test;');
 $dbh- >do('create table bigint_test(b boolean, i int, j int, bi bigint, ch varchar(15), ch1 char(20));');
 $dbh- >do('insert into bigint_test values(true, 10, 10, 42949672950, \'ddd\',\'\');');
 $dbh- >do('insert into bigint_test values(false, 20, 10, 429496729500, \'ddd\',\'\');');
 $dbh- >do('insert into bigint_test values(true, 30, 10, -42949672950, \'ddd\',\'\');');
 $dbh- >do('insert into bigint_test values(false, 40, 10, -429496729500, \'ddd\',\'\');');


$sth=$dbh- >prepare('insert into bigint_test values(?,?,?,?,?,?);');
if(defined $sth){
# @param=(100, 100, "-42949672950", "fff, "ff");
 @param=(1, 100, 100, -42949672950000, "fff", "ff");
 $sth- >execute(@param);
 $sth- >execute(@param);
 $sth- >execute(@param);
}

$sth- >finish;
$sth=$dbh- >prepare('select b,i,bi,j,ch,ch1 from bigint_test;');
$t = $sth- >{TYPE};

print  "\n$t- >[0], $t- >[1], $t- >[2], $t- >[3], $t- >[4], $t- >[5]\n";

#die "\n";

$rv = $sth- >execute();
while(1){
 @row=$sth- >fetchrow_array;
 last unless defined $row[0];
 print "\n- > $row[0] $row[1] $row[2] $row[3] $row[4] $row[5]< -\n";
 print $row[1] /100, "\n";
};

}else{
 die("\nconnection error\n");
}

die "\n";