#define	DBERR	    sqlca.sqlcode
#define	NOREC	    sqlca.sqlcode==1403||sqlca.sqlerrd[2]==0
#define	rows_read   sqlca.sqlerrd[2]
#define	NOTFOUND    1403
#define	SQLNOTFOUND 1403
#define	DBNOTFOUND  1403

#define spaces(X) {int l;for(l=0;l<sizeof(X);l++) X[l]=' ';X[sizeof(X)-1]=0;}
#define	orafix(V) V.arr[V.len] = '\0'
#define	orasetlen(V) V.len = strlen(V.arr)
#define	orastrcpy(D, S)	{strcpy(D.arr, S); orasetlen(D); orafix(D);}
#define orastrget(D, S) {strncpy(D, S.arr, (int)S.len); D[S.len] = '\0';}
#define orasetchar(V, C) {V.arr[0] = C;V.arr[1] = '\0';V.len = 1;}




#define dbabend(X)	{char *err_msg; return ((void)sprintf(err_msg, "%s %d", X, DBERR), -1);}