PEPPLER.ORG
Michael Peppler
Sybase Consulting
Menu
Home
Sybase on Linux
Install Guide for Sybase on Linux
General Sybase Resources
General Perl Resources
Freeware
Sybperl
Sybase::Simple
DBD::Sybase
BCP Tool
Bug Tracker
Mailing List Archive
Downloads Directory
FAQs
Sybase on Linux FAQ
Sybperl FAQ
Personal
Michael Peppler's resume

sybperl-l Archive

Up    Prev    Next    

From: Michael Peppler <mpeppler at peppler dot org>
Subject: Re: more results pending
Date: Aug 1 2002 2:13PM

On Thu, 2002-08-01 at 04:52, Ronan O'Ciosoig wrote:
> After running this code below.....
> 
>         $dbh->dbcmd($sql_command);
>         $dbh->dbsqlexec;
>         while($dbh->dbresults != NO_MORE_RESULTS) {
>             $status = $dbh->dbresults;
>             print "Status: $status\n";
>           while(@updates = $dbh->dbnextrow) {
>           print "Zone Update: @updates\n";
>           }
>         } # end while


The problem is the second call to dbresults() in your loop.

Change this to:

while(($status = $dbh->dbresults) != NO_MORE_RESULTS) {
....
}

and you should be OK.

Michael
-- 
Michael Peppler / mpeppler@peppler.org / http://www.mbay.net/~mpeppler
mpeppler@zetatools.com / ZetaTools, Inc / http://www.zetatools.com
ZetaTools: Call perl functions as Sybase stored procedures!