sub sql_prepare
{
	my ($tbl) = @_;
	
	print "\n\n\tPreparing Table: $tbl\n\n";
	
	$dbh->do("IF NOT EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[$tbl]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) 
				CREATE TABLE [dbo].[$tbl] (@{$tables->{$tbl}})");
	
	my $temp = $dbh->selectcol_arrayref("SELECT constraint_name FROM INFORMATION_SCHEMA.CONSTRAINT_COLUMN_USAGE WHERE TABLE_NAME = '$tbl'");
	foreach my $rel (@$temp){
		
		next unless ($rel=~/Relation/);
		print "\n\t\tFORIEGN KEY: $rel\n";

		$dbh->do("ALTER TABLE $tbl DROP CONSTRAINT $rel");	}
	
	$dbh->do("IF EXISTS (SELECT * FROM sysobjects WHERE id = object_id(N'[dbo].[$tbl]') AND OBJECTPROPERTY(id, N'IsUserTable') = 1) 
				DROP TABLE [dbo].[$tbl]; 
				CREATE TABLE [dbo].[$tbl] (@{$tables->{$tbl}})");	}

print "\nPreparing DataBase tables:\n";
&sql_prepare('SAN_Devices');
&sql_prepare('SAN_LUNs');
&sql_prepare('SAN_WWN');