cursor.ec

text/plain

Filename: cursor.ec
Type: text/plain
Part: 0
Message: Re: Problems with variable cursorname in ecpg
/* exec sql whenever sqlerror sqlprint; */
exec sql whenever sqlerror stop;

void runit(char *);

main()
{
	exec sql begin declare section;
		char *cursor = strdup("A");
	exec sql end declare section;

	exec sql connect to 'test';
	exec sql declare :cursor cursor for select 1 from dummy where id = 1;
	runit(cursor);
	exec sql close :cursor;
	exec sql declare :cursor cursor for select 2 from dummy where id = 1;
	runit(cursor);
	exec sql close :cursor;
	exec sql disconnect all;
}

void runit(char *name)
{
	exec sql begin declare section;
		char *mycursor = name;
		int i;
	exec sql end declare section;

	exec sql open :mycursor;
	exec sql fetch :mycursor into :i;
	printf("Found %d\n", i);
}