/* SQLSYS_2.H  -  15 11 1990

	system dependend #defines and declarations for the SQLSVR class

	OS/2 SQL Server

*/

#ifndef SQLSYS
#define SQLSYS

#include "sqlusr.h"
 
/* SQL Descriptor Area - SQLDA */

typedef struct sqlname		/* Variable Name */
{
	 short		length; 	/* Name length [1..30] */
	 unsigned char data[30];	/* Variable or Column name */
} ;

typedef struct sqlvar
{	short	     sqltype;		/* Variable data type */
	short	     sqllen;		/* Variable data length */
	unsigned char *sqldata;	/* Pointer to variable data value */
	short	    *sqlind;		/* Pointer to Null indicator */
	struct sqlname sqlname;	/* Variable Name */
} ;

struct sqlda
{
   unsigned char  sqldaid[8];	/* Eye catcher = 'SQLDA   ' */
   long 	  sqldabc;		/* SQLDA size in bytes = 16+44*SQLN */
   short	  sqln; 		/* Number of SQLVAR elements */
   short	  sqld; 		/* # of used SQLVAR elements */
   struct sqlvar sqlvar[1];
};

/* macro for allocating SQLDA */
#define   SQLDASIZE(n) (sizeof(struct sqlda) + (n-1)*sizeof(struct sqlvar))
 

 short far pascal sqlaaloc(unsigned short,
                           unsigned short,
                           unsigned short,
                           void far *);
 short far pascal sqlacall(unsigned short,
                           unsigned short,
                           unsigned short,
                           unsigned short,
                           void far *);
 short far pascal sqladloc(unsigned short,
                           void far *);
 short far pascal sqlasets(unsigned short,
                           unsigned char far *,
                           void far *);
 short far pascal sqlasetv(unsigned short,
                           unsigned short,
                           unsigned short,
                           unsigned short,
                           void far *,
                           void far *,
                           void far *);
 short far pascal sqlastop(void far *);
 short far pascal sqlastrt(void far *,
                           void far *,
                           struct sqlca far *);
 short far pascal sqlausda(unsigned short,
                           struct sqlda far *,
                           void far *);

#define SYS_SUBSTVAR(n) "?"

#define SS_MAXCURSORS   10   /* house number... */

#define SS_DEFINSZ      0
#define SS_DEFOUTSZ     0
#define SS_DEFCURSZ     0

#define   CB_MAX_PTYPES 13      /* SQLPDTM + 1 for 0 - based array      */
#define   CB_MAX_SYSTYPES 15    /* all cb system types  (SQLPDTM + 2)   */
#define   CB_MAX_ERRCOUNT 3     /* number of defined cb errors          */
#define   CB_MAX_ERRTXTLEN  132 /* max error text length                */
#define   CB_MAX_COLNAMELEN 50  /* max column name length               */

/*  OS/2 program data types  */

#define   OS2_PBUFFER    452 /* char* or void* buffer        */
#define   OS2_PSTR       460 /* char* (\0 terminated)        */
#define   OS2_PUCHAR     452 /* unsigned char                */
#define   OS2_PCHAR      452 /* char                         */
#define   OS2_PUINT      500 /* unsigned int                 */
#define   OS2_PINT       500 /* int                          */
#define   OS2_PULONG     496 /* unsigned long                */
#define   OS2_PLONG      496 /* long                         */
#define   OS2_PFLOAT     480 /* float                        */
#define   OS2_PDOUBLE    480 /* double                       */

#define   OS2_PLSTRING   456 /* LONG string type */
#define   OS2_PLSTREAM   456 /* LONG stream type */

#define   OS2_LSTRSIZE  32700	/* maximum LONG VARCHAR size */

extern short pdlen[];
extern int pdtype[];

void init_data_tables();



#endif