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

#ifndef __MACRO_H
#define __MACRO_H

DBIResult DBIError(HGLOBAL hglbCorrectTableInfo, DBIResult retVal, 
                   pCHAR szBuffer);

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

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

#define NOCLEANUP_DISPLAYERR(parm); \
             MessageBox(NULL, parm,\
                        "Restructure Error", MB_TASKMODAL);

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

#define CLEANUP_NODISPLAY goto CleanUp ;

#endif