sybperl-l Archive

From: "Ioffe, Dimitry" <Dimitry dot Ioffe at gs dot com>
Subject: bug/feature in CTlib 2.14(perl5.6.1) vs. 2.07(perl5.004)
Date: Mar 15 2002 3:45PM

Hello all,

I'm running following:

$dbh= Sybase::CTlib ->ct_connect (sa,xxxxx,zzzz);
$dbh->ct_execute("select suid,altsuid from sysalternates");
while (($status=$dbh->ct_results($restype)) == CS_SUCCEED)  {
                if ($restype == CS_CMD_DONE || $restype == CS_CMD_FAIL ||
$restype == CS_CMD_SUCCEED ) {
			$rowCount=$dbh->ct_res_info(CS_ROW_COUNT);
			errorH($debug, "Total num. of rows selected -->
$rowCount");
		}
                next unless $dbh->ct_fetchable($restype);
                while (@dat=$dbh->ct_fetch) {
			print "@dat";
                }
}
print "CS_END_RESULTS\n" if($status == CS_END_RESULTS);

$dbh->ct_execute("select suid,altsuid from sysalternates");


In sybperl ver. 2.14 perl5.6 second ct_execute gets
Open Client Message:
Message number: LAYER = (1) ORIGIN = (1) SEVERITY = (1) NUMBER = (16)
Message String: ct_cmd_drop(): user api layer: external error: This routine
cannot be called while results are pending for a command that has been sent
to the server.

It works as expected with earlier ver. of CTlib and perl5.004, that is no
err. is being produced.
Am I missing something?

Thanks,