sybperl-l Archive

From: Matthew dot Persico at Lazard dot com
Subject: One-shot stored proc execution
Date: Aug 5 2002 7:39PM

Before I go and try this, has anyone else? That is, skipping the
prepare/execute/fetch/syb_last_results loop when you have a stored proc that you
know has no result sets, no output params and returns one value?

my @results = $logins_dbh->selectall_array("sp_changegroup login,
PORTIA_login");
if(@results
       &&
       $results[$#results]->[0] == 0) {
        print "Proc was ok\n";
    } else {
        print "Proc bombed\n";
   }