sdmss.pas

SQLDirect Component Library is a light-weight Borland Database Engine replacement for Borland Delphi

// Error code returns
  INT_EXIT	= 0;
  INT_CONTINUE	= 1;
  INT_CANCEL	= 2;


// dboptions
  DBBUFFER      = 0;
  DBOFFSET      = 1;
  DBROWCOUNT    = 2;
  DBSTAT        = 3;
  DBTEXTLIMIT   = 4;
  DBTEXTSIZE    = 5;
  DBARITHABORT  = 6;
  DBARITHIGNORE = 7;
  DBNOAUTOFREE  = 8;
  DBNOCOUNT     = 9;
  DBNOEXEC      = 10;
  DBPARSEONLY   = 11;
  DBSHOWPLAN    = 12;
  DBSTORPROCID	= 13;

  DBANSItoOEM	= 14;
  DBOEMtoANSI	= 15;


  DBCLIENTCURSORS	= 16;
  DBSETTIME_OPT		= 17;
  DBQUOTEDIDENT 	= 18;


// Data Type Tokens
  SQLVOID       = $1f;
  SQLTEXT       = $23;
  SQLVARBINARY  = $25;
  SQLINTN       = $26;
  SQLVARCHAR    = $27;
  SQLBINARY     = $2d;
  SQLIMAGE      = $22;
  SQLCHAR       = $2f;
  SQLINT1       = $30;
  SQLBIT        = $32;
  SQLINT2       = $34;
  SQLINT4       = $38;
  SQLMONEY      = $3c;
  SQLDATETIME   = $3d;
  SQLFLT8       = $3e;
  SQLFLTN       = $6d;
  SQLMONEYN     = $6e;
  SQLDATETIMN   = $6f;
  SQLFLT4       = $3b;
  SQLMONEY4     = $7a;
  SQLDATETIM4   = $3a;
  SQLDECIMAL    = $6a;
  SQLNUMERIC    = $6c;

// Data stream tokens
  SQLCOLFMT     = $a1;
  OLD_SQLCOLFMT = $2a;
  SQLPROCID     = $7c;
  SQLCOLNAME    = $a0;
  SQLTABNAME    = $a4;
  SQLCOLINFO    = $a5;
  SQLALTNAME    = $a7;
  SQLALTFMT     = $a8;
  SQLERROR      = $aa;
  SQLINFO       = $ab;
  SQLRETURNVALUE= $ac;
  SQLRETURNSTATUS= $79;
  SQLRETURN     = $db;
  SQLCONTROL    = $ae;
  SQLALTCONTROL = $af;
  SQLROW        = $d1;
  SQLALTROW     = $d3;
  SQLDONE       = $fd;
  SQLDONEPROC   = $fe;
  SQLDONEINPROC = $ff;
  SQLOFFSET     = $78;
  SQLORDER      = $a9;
  SQLLOGINACK   = $ad; // NOTICE: change to real value

// Ag op tokens
  SQLAOPCNT	= $4b;
  SQLAOPSUM	= $4d;
  SQLAOPAVG	= $4f;
  SQLAOPMIN	= $51;
  SQLAOPMAX	= $52;
  SQLAOPANY	= $53;
  SQLAOPNOOP	= $56;

// Error numbers (dberrs) DB-Library error codes
  SQLEMEM	= 10000;
  SQLENULL	= 10001;
  SQLENLOG	= 10002;
  SQLEPWD 	= 10003;
  SQLECONN	= 10004;
  SQLEDDNE	= 10005;
  SQLENULLO	= 10006;
  SQLESMSG 	= 10007;
  SQLEBTOK 	= 10008;
  SQLENSPE 	= 10009;
  SQLEREAD 	= 10010;
  SQLECNOR 	= 10011;
  SQLETSIT 	= 10012;
  SQLEPARM 	= 10013;
  SQLEAUTN	= 10014;
  SQLECOFL	= 10015;
  SQLERDCN	= 10016;
  SQLEICN 	= 10017;
  SQLECLOS	= 10018;
  SQLENTXT	= 10019;
  SQLEDNTI	= 10020;
  SQLETMTD	= 10021;
  SQLEASEC	= 10022;
  SQLENTLL	= 10023;
  SQLETIME	= 10024;
  SQLEWRIT	= 10025;
  SQLEMODE	= 10026;
  SQLEOOB 	= 10027;
  SQLEITIM	= 10028;
  SQLEDBPS	= 10029;
  SQLEIOPT	= 10030;
  SQLEASNL	= 10031;
  SQLEASUL	= 10032;
  SQLENPRM	= 10033;
  SQLEDBOP	= 10034;
  SQLENSIP	= 10035;
  SQLECNULL	= 10036;
  SQLESEOF	= 10037;
  SQLERPND	= 10038;
  SQLECSYN	= 10039;
  SQLENONET	= 10040;
  SQLEBTYP	= 10041;
  SQLEABNC	= 10042;
  SQLEABMT	= 10043;
  SQLEABNP	= 10044;
  SQLEBNCR	= 10045;
  SQLEAAMT	= 10046;
  SQLENXID	= 10047;
  SQLEIFNB	= 10048;
  SQLEKBCO	= 10049;
  SQLEBBCI	= 10050;
  SQLEKBCI	= 10051;
  SQLEBCWE	= 10052;
  SQLEBCNN	= 10053;
  SQLEBCOR	= 10054;
  SQLEBCPI	= 10055;
  SQLEBCPN	= 10056;
  SQLEBCPB	= 10057;
  SQLEVDPT	= 10058;
  SQLEBIVI	= 10059;
  SQLEBCBC	= 10060;
  SQLEBCFO	= 10061;
  SQLEBCVH	= 10062;
  SQLEBCUO	= 10063;
  SQLEBUOE	= 10064;
  SQLEBWEF	= 10065;
  SQLEBTMT	= 10066;
  SQLEBEOF	= 10067;
  SQLEBCSI	= 10068;
  SQLEPNUL	= 10069;
  SQLEBSKERR	= 10070;
  SQLEBDIO	= 10071;
  SQLEBCNT	= 10072;
  SQLEMDBP	= 10073;
  SQLINIT	= 10074;
  SQLCRSINV	= 10075;
  SQLCRSCMD	= 10076;
  SQLCRSNOIND	= 10077;
  SQLCRSDIS	= 10078;
  SQLCRSAGR	= 10079;
  SQLCRSORD	= 10080;
  SQLCRSMEM	= 10081;
  SQLCRSBSKEY	= 10082;
  SQLCRSNORES	= 10083;
  SQLCRSVIEW	= 10084;
  SQLCRSBUFR	= 10085;
  SQLCRSFROWN	= 10086;
  SQLCRSBROL 	= 10087;
  SQLCRSFRAND	= 10088;
  SQLCRSFLAST	= 10089;
  SQLCRSRO   	= 10090;
  SQLCRSTAB  	= 10091;
  SQLCRSUPDTAB	= 10092;
  SQLCRSUPDNB	= 10093;
  SQLCRSVIIND	= 10094;
  SQLCRSNOUPD	= 10095;
  SQLCRSOS2	= 10096;
  SQLEBCSA 	= 10097;
  SQLEBCRO	= 10098;
  SQLEBCNE	= 10099;
  SQLEBCSK	= 10100;
  SQLEUVBF	= 10101;
  SQLEBIHC	= 10102;
  SQLEBWFF	= 10103;
  SQLNUMVAL	= 10104;
  SQLEOLDVR	= 10105;
  SQLEBCPS	= 10106;
  SQLEDTC 	= 10107;
  SQLENOTIMPL	= 10108;
  SQLENONFLOAT	= 10109;
  SQLECONNFB	= 10110;


// The severity levels are defined here
  EXINFO	= 1;	// Informational, non-error
  EXUSER	= 2;  	// User error
  EXNONFATAL	= 3;  	// Non-fatal error
  EXCONVERSION	= 4;  	// Error in DB-LIBRARY data conversion
  EXSERVER   	= 5;  	// The Server has returned an error flag
  EXTIME     	= 6;  	// We have exceeded our timeout period while
                     	// waiting for a response from the Server - the
                     	// DBPROCESS is still alive
  EXPROGRAM	= 7;  	// Coding error in user program
  EXRESOURCE	= 8;  	// Running out of resources - the DBPROCESS may be dead
  EXCOMM 	= 9;  	// Failure in communication with Server - the DBPROCESS is dead
  EXFATAL	= 10;	// Fatal error - the DBPROCESS is dead
  EXCONSISTENCY	= 11;	// Internal software error  - notify MS Technical Supprt

// Offset identifiers
  OFF_SELECT    = $16d;
  OFF_FROM      = $14f;
  OFF_ORDER     = $165;
  OFF_COMPUTE   = $139;
  OFF_TABLE     = $173;
  OFF_PROCEDURE = $16a;
  OFF_STATEMENT = $1cb;
  OFF_PARAM     = $1c4;
  OFF_EXEC      = $12c;

// Print lengths for certain fixed length data types
  PRINT4      = 11;
  PRINT2      = 6;
  PRINT1      = 3;
  PRFLT8      = 20;
  PRMONEY     = 26;
  PRBIT       = 3;
  PRDATETIME  = 27;
  PRDECIMAL   = (MAXNUMERICDIG + 2);
  PRNUMERIC   = (MAXNUMERICDIG + 2);

  SUCCEED 	= 1;
  FAIL    	= 0;
  SUCCEED_ABORT = 2;

  DBUNKNOWN 	= 2;

  MORE_ROWS    	= -1;
  NO_MORE_ROWS 	= -2;
  REG_ROW      	= MORE_ROWS;
  BUF_FULL     	= -3;

// Status code for dbresults(). Possible return values are SUCCEED, FAIL, and NO_MORE_RESULTS.
  NO_MORE_RESULTS	= 2;
  NO_MORE_RPC_RESULTS	= 3;

// Macros for dbsetlname()
  DBSETHOST	= 1;
  DBSETUSER	= 2;
  DBSETPWD 	= 3;
  DBSETAPP 	= 4;
  DBSETID  	= 5;
  DBSETLANG	= 6;
  DBSETSECURE	= 7;
  DBVER42 	= 8;
  DBVER60 	= 9;
  DBSETLOGINTIME_OPT= 10;
  DBSETFALLBACK = 12;

// Standard exit and error values
  STDEXIT 	= 0;
  ERREXIT 	= -1;

// dbrpcinit flags
  DBRPCRECOMPILE= $0001;
  DBRPCRESET    = $0004;
  DBRPCCURSOR   = $0008;

// dbrpcparam flags
  DBRPCRETURN   = $1;
  DBRPCDEFAULT  = $2;


{ 		Cursor related constants 		}

// Following flags are used in the concuropt parameter in the dbcursoropen function
  CUR_READONLY 	= 1;	// Read only cursor, no data modifications
  CUR_LOCKCC   	= 2; 	// Intent to update, all fetched data locked when
                 	// dbcursorfetch is called inside a transaction block
  CUR_OPTCC    	= 3;	// Optimistic concurrency control, data modifications
                 	// succeed only if the row hasn't been updated since
                 	// the last fetch.
  CUR_OPTCCVAL 	= 4; 	// Optimistic concurrency control based on selected column values