RC -205

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  (<<GO));
truncate table  $tablename
GO
print "Return_Code is ($dbh->{RC})\n" if  $debug;
return $dbh->{RC}; 
} else  {
($dbh->ct_sql (<<GO));
truncate table  $tablename
GO
($dbh->ct_sql  (<<GO));
truncate table  TESTLERG6_Shadow
GO
print "Return_Code is ($dbh->{RC})\n"  if $debug;
return $dbh->{RC};  
}

}