my $pcol = new EDF::KeyColumn;
$pcol->type = EDF::KeyColumn::PVAL;
$pcol->id = "Color";
my $dcol = new EDF::KeyColumn;
$dcol->type = EDF::KeyColumn::DVAL;
$dcol->id = 1000;