#!/usr/bin/perl -w

#
# This is an example how to create new table, if you have field
# specification.
#

use strict;
use XBase;

my @fieldnames = ( 'ID', 'NAME', 'ACTIVE' );
my @fieldtypes = ( 'N', 'C', 'L' );
my @fieldlengths = ( '6', '30', '1' );
my @fielddecimals = ( '0', '0', '0' );

my $krtek;
$krtek = create XBase('name' => 'krtek',
	'field_names' => \@fieldnames,
	'field_types' => \@fieldtypes,
	'field_lengths' => \@fieldlengths,
	'field_decimals' => \@fielddecimals) or die XBase->errstr();

print STDERR $krtek->get_header_info();

$krtek->set_record(0, 1, 'Alexis', 1) or die $krtek->errstr();
$krtek->set_record(1, 51, 'Bob', 0) or die $krtek->errstr();

$krtek->dump_records();

$krtek->close();