<?php
require 'testdb.inc';
$C = new PDO('firebird:dbname='.$test_base, $user, $password) or die;
$C->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION);
$C->exec('create table test_mail(idtm_mail integer, read_date timestamp)');
$C->exec('insert into test_mail(idtm_mail) values (1)');
$S = $C->prepare('update test_mail set read_date = current_timestamp where idtm_mail = 1 returning read_date');
try{
  $S->execute();
  $D = $S->fetch(PDO::FETCH_NUM);
  echo $D[0];
  $S->closeCursor();
} catch (Exception $e) {
  echo $e->getMessage();
  unset($S);
  unset($C);
}
?>

static int firebird_stmt_cursor_closer(pdo_stmt_t *stmt) /* {{{ */
{
	pdo_firebird_stmt *S = (pdo_firebird_stmt*)stmt->driver_data;

	/* close the statement handle */
	if ((*S->name || S->cursor_open) && isc_dsql_free_statement(S->H->isc_status, &S->stmt, DSQL_close)) {
		RECORD_ERROR(stmt);
		return 0;
	}
	*S->name = 0;
	S->cursor_open = 0;
	return 1;
}

static int firebird_stmt_execute(pdo_stmt_t *stmt) /* {{{ */
...
		switch (S->statement_type) {
			case isc_info_sql_stmt_insert:
			case isc_info_sql_stmt_update:
			case isc_info_sql_stmt_delete:
			case isc_info_sql_stmt_exec_procedure:
...
		S->cursor_open = (S->out_sqlda.sqln > 0);	/* A cursor is opened, when more than zero columns returned */

                /* A cursor is opened, when more than zero columns returned.
                 * We must also check the statement type since only SELECT and 
                 * SELECT FOR UPDATE statements open a cursor.
                 */
		S->cursor_open = (S->out_sqlda.sqln > 0) && (S->statement_type == isc_info_sql_stmt_select || S->statement_type == isc_info_sql_stmt_select_for_upd);

S->cursor_open = S->out_sqlda.sqln && (S->statement_type != isc_info_sql_stmt_exec_procedure);