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

#ifndef __MACRO_H
#define __MACRO_H

DBIResult DBIError(DBIResult retVal, pCHAR szRetBuffer);

#define CLEANUP_DISPLAYERR(parm); \
            MessageBox(NULL, parm,\
                       "Seek Error", MB_TASKMODAL);\
                        goto CleanUp ;

#define CHKERR_CLEANUP(parm) rslt = DBIError(parm, pszRetBuffer); \
            if (rslt) { \
                goto CleanUp ;}

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

#define CLEANUP_NODISPLAY goto CleanUp ;

#endif