Function gen_ddl

src/gpre/languages/pas.cpp:1313–1349

//

static void gen_ddl( const act* action, int column)
{
	if (gpreGlob.sw_auto)
	{
		printa(column, "if (gds__trans = nil) then");
		column += INDENT;
		t_start_auto(action, 0, status_vector(action), column + INDENT);
		column -= INDENT;
	}

	// Set up command type for call to RDB$DDL

	const gpre_req* request = action->act_request;

	if (gpreGlob.sw_auto)
	{
		printa(column, "if (gds__trans <> nil) then");
		column += INDENT;
	}

	align(column);
	fprintf(gpreGlob.out_file, "GDS__DDL (%s, %s, gds__trans, %d, gds__%d);",
			   status_vector(action),
			   request->req_database->dbb_name->sym_string,
			   request->req_length, request->req_ident);

	if (gpreGlob.sw_auto)
	{
		column -= INDENT;
		printa(column, "if (gds__status [2] = 0) then");
		printa(column + INDENT, "GDS__COMMIT_TRANSACTION (%s, gds__trans);", status_vector(action));
		printa(column, "if (gds__status [2] <> 0) then");
		printa(column + INDENT, "GDS__ROLLBACK_TRANSACTION (gds__null^ , gds__trans);");
	}

	set_sqlcode(action, column);
}


//____________________________________________________________