use strict;
use warnings;
use diagnostics;
use DBI;
#use replace;
use File::Glob ':glob';
#Variable Declarations
#############
#---Database Credentials
my $DBUserName 					= "sa";
my $DBPassword 					= "unica*03";
my $DBName 						= "dbi:ODBC:Insight";
#------Used in Database Transactions
my $dbh 						= "";
my $sqlStatement 				= "";
my $sqlCmd 						= "";
#---Variables used to gather Easy Set Table names
my @EasySetTableNames			= ();


#------Establish DB Connection
$dbh = DBI->connect( $DBName, $DBUserName, $DBPassword,{ PrintError => 0,AutoCommit => 0})
		|| die "Database connection creation failed: $DBI::errstr\n";
# Get the Easy Set Tables
#---These tables in the Insight Database all start with AI_  so get at list of those tables
$sqlStatement = "SELECT TABLE_NAME FROM INFORMATION_SCHEMA.TABLES WHERE TABLE_NAME LIKE '%AI_%'";
$sqlCmd = $dbh->prepare($sqlStatement);
$sqlCmd->execute();
@EasySetTableNames = @{$sqlCmd->selectcol_arrayref($sqlStatement)};