// BDE - (C) Copyright 1994 by Borland International

#ifndef __MACRO_H
#define __MACRO_H

#define CHKERR(parm) DBIError(__FILE__, __LINE__, \
                            #parm, parm) ; \
                            if (GlobalDBIErr) { \
                               return GlobalDBIErr ;}

#define CHKERR_CLEANUP(parm) DBIError(__FILE__, __LINE__, \
                            #parm, parm) ; \
                            if (GlobalDBIErr) { \
                               goto CleanUp ;}

#define CHKERR_NODISPLAY(parm) if (parm) { \
                               goto CleanUp ;}

#define CLEANUP(parm) { GlobalDBIErr = parm;\
                               goto CleanUp ;}

extern DBIResult GlobalDBIErr;

DBIResult DBIError(pCHAR, UINT16, pCHAR, DBIResult);

#endif