Trapping error condition from log()

Hi,

 

            I am writing a perl script to execute several stored proc on
SQL Server 2005 and the stored proc uses the log function. When the
argument to the log function is -1, it is outside the domain for the

Log function and the SQL Server rightly generates an error message to
that effect:

 

Msg 3623, Level 16, State 1, Line 1

A domain error occurred.

 

             "select log(-1)" generates this error.

 

            The thing is I want to detect this error condition and take
appropriate course of action. I wrote this script and it doesn't seem to
catch it. It seems to work if the update statement is taken out. Or
placed at the end. What needs to be done here?

            

            The stored proc is:

 

            ALTER proc [dbo].[udp_test] 

as

      

update tb_test set j = j + 1 where i=1

 

      declare @f float

      set @f = -1

      select log(@f)

 

            return

 

            =============

            The perl script is:

 

use strict;

 

use DBI;

 

 

my $data_source = q/dbi:ODBC:xxxsql04/;

my $user = q/sa/;

my $password = q/xxx/;

 

my $dbh = DBI->connect($data_source, $user, $password, { RaiseError =>
1} )

    or die "Can't connect to $data_source: $DBI::errstr";

 

 

$dbh->{odbc_err_handle} = \&err_handler;

 

my $sql = "exec Volatility.dbo.udp_test";

 

# Prepare the statement.

my $sth = $dbh->prepare($sql)

    or die "Can't prepare statement: $DBI::errstr";

 

# Execute the statement.

eval {

            $sth->execute();

};

 

if ( $@ ) {

            print STDERR "Error encountered. Msg = $@" . "\n";

}

 

 

# Fetch and display the result set value.

while ( my @row = $sth->fetchrow_array ) {

   print "$row[0] \n";

}

 

# Disconnect the database from the database handle.

$dbh->disconnect;

 

 

sub err_handler {

   my ($sqlstate, $msg, $nativeerr) = @_;

   # Strip out all of the driver ID stuff

   $msg =~ s/^(\[[\w\s:]*\])+//;

   print $msg;

   print "Oh No !!!===> state: $sqlstate msg: $msg nativeerr:
$nativeerr\n";

   return 0;

}

 

Ramakrishna Raju ( "Raju" )

rraju@kcmoptions.com <mailto:rraju@kcmoptions.com> 

 


DISCLAIMER: NOTICE REGARDING PRIVACY AND CONFIDENTIALITY 

This e-mail, and any attachments thereto, is intended only for use by the addressee(s) named herein and may contain legally privileged and/or confidential information. If you are not the intended recipient of this e-mail, you are hereby notified that any dissemination, distribution or copying of this e-mail, and any attachments thereto, is strictly prohibited. If you have received this e-mail in error, please immediately notify me and permanently delete the original and any copy of any e-mail and any printout thereof. E-mail transmission cannot be guaranteed to be secure or error-free. The sender therefore does not accept liability for any errors or omissions in the contents of this message which arise as a result of e-mail transmission. TJM Proprietary Trading, LLC ("TJMPT") may, at its discretion, monitor and review the content of all e-mail communications. TJMPT is a registered  joint back office broker dealer with the Chicago Board of Options Exchange "CBOE".  TJMPT's office is located at 318 W. Adams Floor 9, Chicago, IL 60606. For more information about  TJMPT, please call us at (312)-432- 5100 or fax (312)-432-4498.

• Trapping error condition from log() by Ramakrishna Raju
• RE: Trapping error condition from log() by Ramakrishna Raju