e i g h t - c u b e d . c o m 

/* Copyright 2003-2013 James F. Duff */
/* License and disclaimer: http://www.eight-cubed.com/disclaimer.html */

#ifndef __jfd__errchk
#define __jfd__errchk

#include <stsdef.h>
#include <lib$routines.h>

#define errchk_ret(arg) if (!($VMS_STATUS_SUCCESS(arg))) \
			    return(arg);

#define errchk_sig(arg) if (!($VMS_STATUS_SUCCESS(arg))) \
			    (void)lib$signal(arg);

#define errchk_stop(arg) if (!($VMS_STATUS_SUCCESS(arg))) \
		    	     (void)lib$stop(arg);

#endif /* __jfd__errchk */