sybperl-l Archive

From: Tan Saw Phaik <sptan at epss02 dot fairchildsemi dot com>
Subject: Re: Return Status of Stored Procedure
Date: Jun 1 1999 7:25AM

Michael,

       Thanks for the solution! I tried the foll. codes 
         
       @rows = $dbh->ct_sql(<<'SQL_EOF');
       exec ahsekeep_oper_rem_ret
       SQL_EOF       
      
       $i = 1
       foreach (@rows) {
         $status[$i] = $$_[0];
         $i++;
       }
      print OUTFILE "$status[$i-1]\n";
      
      and managed to get the return status (ie " $status[$i-1]")
      of the stored procedure.
      
       Is there another way to get the return status without writing to another  
 array ?
              
 TIA.       
 rgds...sp tan        
                                               
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> To: SybPerl Discussion List 
> Subject: Return Status of Stored Procedure
> X-Listprocessor-Version: 8.2.07 -- ListProc(tm) by CREN
> 
> Tan Saw Phaik writes:
>  > Hi Gurus,
>  > 
>  >    I'm a newcomer to Perl and SYBPERL. I use the foll. commands  
>  > 
>  >   $rows = $dbh->ct_sql(<<'SQL_EOF');
>  >         exec ahsekeep_oper_rem_ret
>  >   SQL_EOF
>  > 
>  >   and I need to check for the return status of the SYBASE stored procedure
>  >   (ahsekeep_oper_rem_ret).
>  >  
> 
> The return status of the stored proc will be the first row in the
> @$rows array.
> 
> Michael
> -- 
> Michael Peppler         -||-  Data Migrations Inc.
> mpeppler@peppler.org    -||-  http://www.mbay.net/~mpeppler
> Int. Sybase User Group  -||-  http://www.isug.com
> Sybase on Linux mailing list: ase-linux-list@isug.com
>