33 lines
450 B
C
33 lines
450 B
C
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();
|