/* SQLSYS_O.C  -  08 11 1990

	db system vendor dependend functions for the SQLSVR class

	ORACLE server

*/


/*
	init globals and lookup tables (called from SqlSvr constructor)
*/

#include <sqlsys.h>


void init_sys_data()
{
/*
	misc system globals
*/

	SS_MAXCURSORS = ORA_MAXCURSORS;
	SS_DEFINSZ    = ORA_DEFINSZ;
	SS_DEFOUTSZ   = ORA_DEFOUTSZ;
	SS_DEFCURSZ   = ORA_DEFCURSZ;

	CB_MAX_SYSTYPES = ORA_MAX_SYSTYPES;
	CB_MAX_ERRTXTLEN = ORA_MAX_ERRTXTLEN;
	CB_MAX_COLNAMELEN = ORA_MAX_COLNAMELEN;

/*
	length lookup table
*/

	pdlen[CB_PBUFFER] = 0;
	pdlen[CB_PSTR]    = 0;
	pdlen[CB_PUCHAR]  = sizeof(unsigned char);
	pdlen[CB_PCHAR]   = sizeof(char);
	pdlen[CB_PUINT]   = sizeof(unsigned int);
	pdlen[CB_PINT]    = sizeof(int);
	pdlen[CB_PULONG]  = sizeof(unsigned long);
	pdlen[CB_PLONG]   = sizeof(long);
	pdlen[CB_PFLOAT]  = sizeof(float);
	pdlen[CB_PDOUBLE] = sizeof(double);

	pdlen[CB_PDATE]   = 7;
	pdlen[CB_PROWID]  = 18;
	pdlen[CB_PRECNO]  = 16;

	pdlen[CB_PLSTRING] = 0;
	pdlen[CB_PLSTREAM] = 0;

	pdtype[CB_PBUFFER] = ORA_PBUFFER;
	pdtype[CB_PSTR]    = ORA_PSTR;
	pdtype[CB_PUCHAR]  = ORA_PUCHAR;
	pdtype[CB_PCHAR]   = ORA_PCHAR;
	pdtype[CB_PUINT]   = ORA_PUINT;
	pdtype[CB_PINT]    = ORA_PINT;
	pdtype[CB_PULONG]  = ORA_PULONG;
	pdtype[CB_PLONG]   = ORA_PLONG;
	pdtype[CB_PFLOAT]  = ORA_PFLOAT;
	pdtype[CB_PDOUBLE] = ORA_PDOUBLE;
	pdtype[CB_PDATE]   = ORA_PDATE;
	pdtype[CB_PROWID]  = ORA_PROWID;
	pdtype[CB_PRECNO]  = ORA_PRECNO;
	pdtype[CB_PLSTRING] = ORA_PLSTRING;
	pdtype[CB_PLSTREAM] = ORA_PLSTREAM;

/*
	error translation table
*/

	perrors[CB_ERR_EOF] = 4;
}