Function gen_dyn_fetch

src/gpre/languages/ada.cpp:1417–1433

//

static void gen_dyn_fetch( const act* action, int column)
{
	TEXT s[MAX_CURSOR_SIZE];

	const dyn* statement = (dyn*) action->act_object;
	if (statement->dyn_sqlda)
		printa(column, "firebird.embed_dsql_fetch (isc_status, SQLCODE, %s, %d, %s'address);",
			   make_name(s, statement->dyn_cursor_name), gpreGlob.sw_sql_dialect,
			   statement->dyn_sqlda);
	else
		printa(column, "firebird.embed_dsql_fetch (isc_status, SQLCODE, %s, %d);",
			   make_name(s, statement->dyn_cursor_name), gpreGlob.sw_sql_dialect);

	printa(column, "if SQLCODE /= 100 then");
	printa(column + INDENT, "SQLCODE := firebird.sqlcode (isc_status);");
	endif(column);
}


//____________________________________________________________