Function act_execute

src/gpre/sql.cpp:3008–3071

//

static act* act_execute()
{
	if (MSC_match(KW_PROCEDURE))
		return act_procedure();

	// EXECUTE IMMEDIATE is a different sort of duck

	if (MSC_match(KW_IMMEDIATE))
	{
		if (gpreGlob.isc_databases && gpreGlob.isc_databases->dbb_next)
		{
			TEXT s[ERROR_LENGTH];
			sprintf(s, "Executing dynamic SQL statement in context of database %s",
					gpreGlob.isc_databases->dbb_name->sym_string);
			CPR_warn(s);
		}
		dyn* statement = (dyn*) MSC_alloc(DYN_LEN);
		par_options(&statement->dyn_trans);

		switch (gpreGlob.sw_sql_dialect)
		{
		case 1:
			if (!isQuoted(gpreGlob.token_global.tok_type) && !MSC_match(KW_COLON))
				CPR_s_error(": <string expression>");
			break;

		default:
			if (gpreGlob.token_global.tok_type != tok_sglquoted && !MSC_match(KW_COLON))
				CPR_s_error(": <string expression>");
			break;
		}
		statement->dyn_string = PAR_native_value(false, false);
		par_using(statement);
		if (statement->dyn_using)
			PAR_error("Using host-variable list not supported.");
		par_into(statement);
		statement->dyn_database = gpreGlob.isc_databases;

		act* action = (act*) MSC_alloc(ACT_LEN);
		action->act_type = ACT_dyn_immediate;
		action->act_object = (ref*) statement;
		action->act_whenever = gen_whenever();
		return action;
	}

	// Ordinary form of EXECUTE

	const TEXT* transaction;
	par_options(&transaction);
	dyn* statement = par_statement();
	statement->dyn_trans = transaction;

	par_using(statement);
	if (statement->dyn_using)
		PAR_error("Using host-variable list not supported.");
	par_into(statement);

	act* action = (act*) MSC_alloc(ACT_LEN);