use warnings;
use strict;
use DBI;


# Create connection string to database point.csv 
my $dbh = DBI->connect ("dbi:CSV:", undef, undef, {
      f_ext      => ".csv/r",
      f_encoding => "utf-8",
      });

my $sth = $dbh->prepare ("select * from point where ID_DEVTYP like 'INTELI%' AND ID_POINT like 'AUTO%'");
$sth->execute;

# Create AFS CSV with Columns
open (DAT_OUTPUT,">AFS.csv");
print DAT_OUTPUT "RECORD,SUBSCRIPT,ID_SUBSTN,CO_SUBSTN,AREA_SUBSTN,ID_DEVTYP,ID_DEVICE,NAME_DEVICE,AREA_DEVICE,ID_MEAS,ID_POINT,SITE_POINT,AREA_POINT\n";

# Cycle through SQL results on ROW basis and print to AFS CSV file
while (my $row = $sth->fetchrow_hashref) 
{
      print DAT_OUTPUT "$row->{RECORD},$row->{SUBSCRIPT},$row->{ID_SUBSTN},$row->{CO_SUBSTN},$row->{AREA_SUBSTN},$row->{ID_DEVTYP},$row->{ID_DEVICE},$row->{NAME_DEVICE},$row->{AREA_DEVICE},$row->{ID_MEAS},$row->{ID_POINT},$row->{SITE_POINT},$row->{AREA_POINT}\n";
}
# Close file	
close DAT_OUTPUT;