$recname='DATA';
$fieldsep = $recref->{$recname}->{'FIELD_DELIMITER'};