my $sthTestProc1 = $dbhTestInsert->prepare(qq/exec spTestSelectAndUpdate/);
$sthTestProc1->execute();

do {
   my @row;
   while (@row = $sthTestProc1->fetchrow_array()) {
      # do stuff here
   }
} while ($sthTestProc1->{odbc_more_results});