# This script connects to an oracle database, reads columns from region based on a selection criteria and output records in a csv  
#  
use strict; 
use DBI; 
use warnings; 
use File::Copy; 
use Text::CSV; 
 
my $dbh = DBI->connect("dbi:Oracle:$db",$user,$pw) 
              or die "Database connection not made: $DBI::errstr"; 
{ 
my $sth = $dbh->prepare("SELECT * FROM region"); 
$sth->execute; 
my $names = $sth->{'NAME'}; 
my $tbl_data = $sth->fetchall_arrayref; 
print join "\n", map { join(',', map { "\"$_\""' } @$_ } @$tbl_data; 
 
$dbh->disconnect(); }

select region_date, cntr_name  from region  
where cntr_name in ('US' , 'CAN')  
and flag = 'Y' and part_key =  
(select ('S_' || v.tsched || '_' || v.cgroup) as partition_key   
from rgvars v	 
WHERE v.regdate = -- "input parameter"														and v.cgroup = -- "input parameter" 
and v.dnumber = -- "input parameter "); 
-- 
update region 
set flag = 'N'; 
          -- update the table after the file is written out in a csv format