sub addrecord {
    #****m* DataFile/addrecord
    # USAGE
    # $bdlfile->addrecord([field => value, field => value...])
    # Create a record and initialize it according
    # to file format (POF, BDL)
    # RETURNS
    # obj ref DataRecord
    #***
    my $self = shift;

    my %data = @_;
}