if($db01->FetchRow()){
    open my $fh,">",$cfg->{outfile} if(defined($cfg->{outfile}));
    unless($fh){
        warn "Unable to open output file $cfg->{outfile}\n$!\nUsing STDOUT\n" if(defined($cfg->{outfile}));
        $usestdout = TRUE;
        $fh = \*STDOUT;
    }
    do{
        ++$recnum;
        printf("\b\b\b\b\b\b\b\b\b%-9s",$recnum) if($cfg->{displaycount});
        @obrec = $db01->Data();
        $obrec[$_] = sprintf("%-*s",$oblen03[$_],($obrec[$_] || '')) foreach (0..$#obrec);
        $obstr = join("\t",@obrec);

# some troubleshooting attempts
#        print STDOUT "$obstr\n" if($obstr =~ /[[:cntrl:]]+/); #checking for control chars in rec
#        print STDOUT "$obstr\n" if($obstr =~ /[[:^print:]]+/); #checking for unprintable chars in rec
#        print STDOUT "$obstr\n";

         print $fh "$obstr\n";
    }while($db01->FetchRow());
    close($fh) unless($usestdout);
}