#ifndef __MACROS_H_LOADED
#define __MACROS_H_LOADED 1


#define INIT_SDESC(dsc, len, ptr)       {(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
                        (dsc).dsc$b_class = DSC$K_CLASS_S; (dsc).dsc$w_length = (short) (len);\
                        (dsc).dsc$a_pointer = (char *) (ptr);}

#define INIT_DDESC(dsc) {(dsc).dsc$b_dtype = DSC$K_DTYPE_T;\
                        (dsc).dsc$b_class = DSC$K_CLASS_D;(dsc).dsc$w_length = 0;\
                        (dsc).dsc$a_pointer = NULL;}

#define $min(x,y)       ((x > y)?y:x)
#define $max(x,y)       ((x < y)?y:x)

#define	RETRY_COUNT	(-1)

#define DEBUG   if(conf.conf_v_dbg)printf("%-24.24s:%-08.0u ",__MODULE__,__LINE__);if(conf.conf_v_dbg)printf


#define $ascic(a)     sizeof(a)-1,(a)

#endif /* __MACROS_H_LOADED */