sybperl-l Archive

From: Ddunleavy2 at aol dot com
Subject: RC -205
Date: Feb 23 2005 6:55PM

Hi,
 
This is my code.  The truncate works just fine but the return code is  always 
-205.  Where is my error?
 
Thanks
 
sub truncate_table($$) {
my $dbh = shift;
my  $tablename = shift;
if ($tablename !~  /TESTLERG6$/) {
($dbh->ct_sql  (<{RC})\n" if  $debug;
return $dbh->{RC}; 
} else  {
($dbh->ct_sql (<ct_sql  (<{RC})\n"  if $debug;
return $dbh->{RC};  
}

}