src/interfaces/ecpg/test/header_test.h


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

exec sql include sqlca;

void Finish(msg)
{
	fprintf(stderr, "Error in statement '%s':\n", msg);
	sqlprint();
	
	/* finish transaction */
	exec sql rollback;
	
	/* and remove test table */
	exec sql drop table meskes;
	exec sql commit;

	exec sql disconnect;
		
	exit(-1);
}

void warn(void)
{
	fprintf(stderr, "Warning: At least one column was truncated\n");
}

exec sql whenever sqlerror do Finish(msg);
exec sql whenever sqlwarning do warn();