############# SUB-ROUTINE TO CHECK FOR INTEGER TYPE ##############

#check for small int, big int and int data types and return a 0 if correct

# else return a 1

sub int_chk 
{
my $input = shift;
$input = $input+0;

if ($data_type eq 'SMALLINT')
{
		if ($input > -32768 && $input < 32768)
		{
			return $positive;
		}
		else
		{
			return $negative;
		}
}

elsif ($data_type eq 'INTEGER')
{
	if ($input > -2147483648 && $input < 2147483647)
	{
		return $positive;
	}
	else
	{
		return $negative;
	}
}

elsif ($data_type eq 'BIGINT')
{
	if ($input > -9223372036854770000 && $input < 9223372036854770000)
	{
		return $positive;
	}
	else
	{
		return $negative;
	}
}
else
{
	return $negative;
}
}


############ SUB-ROUTINE TO CHECK FOR DECIMAL TYPE	##############

sub decimal_chk 
{

#Here, I get a decimal input and separate it into 2 separate integers 
# say 123.45 split into 123 and 45

# I need to check if -999 < 123 < 999 and -99 < 45 < 99 . 

my $data=shift;

my $index=index($data,".")+1;


$main=substr($data,0,$index-1);
#print "Integer part is $main\n";

if ($index > 0)
{
$prec=substr($data,$index,length($data)-($index));
}
else
{
$prec='';
}

$u_len=length($main);
$l_len=length($prec);

$upper=9;
$lower=9;

for ($u_count = 1; $u_count < $u_len; $u_count++)
{
$upper=$upper."9";
}

for ($l_count = 1; $l_count < $l_len; $l_count++)
{
$lower=$lower."9";
}


# 123.45 will be declared as decimal(5,2), 2 being the decimal length


if ($main > (-1*$upper) && $main < $upper)
{
	if ($prec > (-1*$lower) && $prec < $lower)
	{
		if (($u_len <= ($data_precision-$data_dec_len)) && ($l_len <= $data_dec_len))    # Final length check with specified lengths
		{
			return $positive;
		}
		else
		{
			return $negative;
		}
	}
	else
	{
		return $negative;
	}
}
else
{
	return $negative;
}
}