sub makeMapCSV
{ # $downloadfile="$ICSdir/Download/MasterDB.$yyyymmddhhmmss.csv";
  my $address = $_[0];
  my $mapName = &NearestMapToAddress($address);
  $mapName="$mapName.MapLonLatByAddress";
  open L3,">$ICSdir/DB/Downloads/$mapName.$yyyymmddhhmmss.csv";
  for(my $i=0;$i<2;$i++) # header
  { my $rec=$DBmaster{ $i };
    my @col=split(/\t/, $rec);
    &PrintCol(L3,@col);
  }

  &TIE("$mapName");
  my @mapAddress = keys %mapName ;
  for(my $imap=0;$imap<=$#mapAddress;$imap++)
  { my $mapAddress = $mapAddress[$imap];
    @recs=$DBrecAddress{$mapAddress};
    foreach $irec (@recs)
    { next if ($irec < 2);
      my $rec=$DBmaster{ $irec };
      $rec=~s/\n/; /g;
      my @col=split(/\t/, $rec);
      &PrintCol(L3,@col);
    }
  }
  close L3;
};