/* * $Source$ * $Author$ * $Header$ * * (c) Copyright 1988 by the Massachusetts Institute of Technology. * For copying and distribution information, please see the file * . * */ #ifndef lint static char *rcsid_dumprest_qc = "$Header$"; #endif lint #include #include int punt(char *msg) { perror(msg); exit(1); } int dbmserr(void) { EXEC SQL BEGIN DECLARE SECTION; char err_msg[256]; EXEC SQL END DECLARE SECTION; int bufsize = 256, msglength = 0; sqlglm(err_msg, &bufsize, &msglength); err_msg[msglength] = '\0'; fprintf(stderr, "Fatal SQL error:\n%s", err_msg); exit(1); }