sdsyb.pas

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

    take_mutex_fn:    	TCS_THRDM_FUNC;
    release_mutex_fn:	TCS_THRDM_FUNC;
    create_event_fn:	TCS_THRDC_FUNC;
    delete_event_fn:	TCS_THRDE_FUNC;
    signal_event_fn:	TCS_THRDE_FUNC;
    reset_event_fn:   	TCS_THRDE_FUNC;
    waitfor_event_fn:	TCS_THRDW_FUNC;
    thread_id_fn:     	TCS_THRDID_FUNC;
  end;
  TCS_THREAD	= _cs_thread;


{*
** Directory Service definitions
*}
const
{*
** Token name for predefined OID strings.
*}
  CS_OID_SYBASE		= '1.3.6.1.4.1.897';
  CS_OID_DIRECTORY	= '1.3.6.1.4.1.897.4';
  CS_OID_OBJCLASS	= '1.3.6.1.4.1.897.4.1';
  CS_OID_ATTRTYPE	= '1.3.6.1.4.1.897.4.2';
  CS_OID_ATTRSYNTAX	= '1.3.6.1.4.1.897.4.3';
  CS_OID_OBJSERVER	= '1.3.6.1.4.1.897.4.1.1';
  CS_OID_ATTRVERSION	= '1.3.6.1.4.1.897.4.2.1';
  CS_OID_ATTRSERVNAME	= '1.3.6.1.4.1.897.4.2.2';
  CS_OID_ATTRSERVICE	= '1.3.6.1.4.1.897.4.2.3';
  CS_OID_ATTRSTATUS	= '1.3.6.1.4.1.897.4.2.4';
  CS_OID_ATTRADDRESS	= '1.3.6.1.4.1.897.4.2.5';
  CS_OID_ATTRSECMECH	= '1.3.6.1.4.1.897.4.2.6';
  CS_OID_ATTRRETRYCOUNT	= '1.3.6.1.4.1.897.4.2.7';
  CS_OID_ATTRLOOPDELAY	= '1.3.6.1.4.1.897.4.2.8';

  CS_OID_ATTRJCPROTOCOL	= '1.3.6.1.4.1.897.4.2.9';
  CS_OID_ATTRJCPROPERTY	= '1.3.6.1.4.1.897.4.2.10';
  CS_OID_ATTRDATABASENAME='1.3.6.1.4.1.897.4.2.11';

  CS_OID_ATTRHAFAILOVER	= '1.3.6.1.4.1.897.4.2.15';
  CS_OID_ATTRRMNAME	= '1.3.6.1.4.1.897.4.2.16';
  CS_OID_ATTRRMTYPE	= '1.3.6.1.4.1.897.4.2.17';
  CS_OID_ATTRJDBCDSI	= '1.3.6.1.4.1.897.4.2.18';
  CS_OID_ATTRSERVERTYPE	= '1.3.6.1.4.1.897.4.2.19';

{*
** Current status of server object.
*}
  CS_STATUS_ACTIVE	= TCS_INT(1);
  CS_STATUS_STOPPED	= TCS_INT(2);
  CS_STATUS_FAILED	= TCS_INT(3);
  CS_STATUS_UNKNOWN	= TCS_INT(4);

{*
** Server object access type
*}
  CS_ACCESS_CLIENT	= TCS_INT(1);
  CS_ACCESS_ADMIN 	= TCS_INT(2);
  CS_ACCESS_MGMTAGENT	= TCS_INT(3);
  CS_ACCESS_CLIENT_QUERY       	= TCS_INT(1);
  CS_ACCESS_CLIENT_MASTER      	= TCS_INT(2);
  CS_ACCESS_ADMIN_QUERY        	= TCS_INT(3);
  CS_ACCESS_ADMIN_MASTER       	= TCS_INT(4);
  CS_ACCESS_MGMTAGENT_QUERY    	= TCS_INT(5);
  CS_ACCESS_MGMTAGENT_MASTER   	= TCS_INT(6);


type
{*
** String Attribute Value
**
**	This structure is used to describe a string attribute
**	value.
**
**	str_length	Length of string.
**	str_buffer	String data.
*}
  _cs_string	= record
    str_length:	TCS_INT;
    str_buffer:	array[0..CS_MAX_DS_STRING-1] of TCS_CHAR;
  end;
  TCS_STRING	= _cs_string;

{*
** Transport Address attribute value
**
**	This structure is used to describe a server address attribute
**	value.
**
**	addr_accesstype		Access type provided on transport
**				address.
**	addr_trantype		Transport address type
**	addr_tranaddress	The address string.
*}
  _cs_tranaddr	= record
    addr_accesstype:	TCS_INT;
    addr_trantype:	TCS_STRING;
    addr_tranaddress:	TCS_STRING;
  end;
  TCS_TRANADDR	= _cs_tranaddr;

{*
** Object Identifier
**
**	This structure is used to represent an Object
**		Identifier.
**
**	oid_length	Length of Object Identifier.
**	oid_buffer	Buffer containing object identifier.
*}
  _cs_oid	= record
  oid_length:	TCS_INT;
  oid_buffer:	array [0..CS_MAX_DS_STRING-1] of TCS_CHAR;
  end;
  TCS_OID	= _cs_oid;
  PCS_OID	= {$IFDEF SD_CLR}TCS_VOID{$ELSE}^TCS_OID{$ENDIF};

{*
** Attribute Value
**
**	This union is used to represent an attribute value.
**
*}
  _cs_attrvalue	= record
    value_string:	TCS_STRING;
    value_boolean:	TCS_BOOL;
    value_enumeration:	TCS_INT;
    value_integer:	TCS_INT;
    value_oid:		TCS_OID;
    value_tranaddr:	TCS_TRANADDR;
  end;
  TCS_ATTRVALUE	= _cs_attrvalue;

{*
** Attribute
**
**	This structure describes an attribute.
**
*}
  _cs_attribute	= record
    attr_type:		TCS_OID;
    attr_syntax:	TCS_INT;
    attr_numvals:	TCS_INT;
  end;
  TCS_ATTRIBUTE	= _cs_attribute;

{*
** Syntax identifier tokens for the CS_ATTRIBUTE union.
*}
const
  CS_ATTR_SYNTAX_NOOP		= TCS_INT(0);
  CS_ATTR_SYNTAX_STRING		= TCS_INT(1);
  CS_ATTR_SYNTAX_INTEGER	= TCS_INT(2);
  CS_ATTR_SYNTAX_BOOLEAN	= TCS_INT(3);
  CS_ATTR_SYNTAX_ENUMERATION	= TCS_INT(4);
  CS_ATTR_SYNTAX_TRANADDR	= TCS_INT(5);
  CS_ATTR_SYNTAX_OID		= TCS_INT(6);

{*
**	Structure for defining directory lookup criteria when using
**	ct_ds_lookup api.
*}
type
  _cs_ds_lookup_info	= record
    objclass:	PCS_OID;
    path:   	PCS_CHAR;
    pathlen:	TCS_INT;
    attrfilter:	PCS_DS_OBJECT;
    attrselect:	PCS_DS_OBJECT;
  end;
  TCS_DS_LOOKUP_INFO	= _cs_ds_lookup_info;

{*
** Predefined signal handlers for client and server signal handler
** libraries.
*}
const
  CS_SIGNAL_IGNORE	= -1;
  CS_SIGNAL_DEFAULT	= -2;
  CS_ASYNC_RESTORE	= -3;
  CS_SIGNAL_BLOCK	= -4;
  CS_SIGNAL_UNBLOCK	= -5;



{*******************************************************************************

**	cspublic.h (Sybase Open Client/Server Library) from 21.07.1997
**
** Include the core header files. These files contain the defines and
** data structures that are shared by all libraries.
*******************************************************************************}


const

{*******************************************************************************
** 	Size defines used in client/server applications.
*******************************************************************************}

{*
** Define the maximum size of a fully qualified table name.
*}
  CS_OBJ_NAME	= TCS_INT((CS_MAX_NAME * 3) + 4);

{*
** The maximum number of bytes in the server message or error message
** stored in the CS_SERVERMSG and CS_CLIENTMSG structures. If the total
** message is longer than this, multiple structures will be passed to the
** application program.
*}
  CS_MAX_MSG	= TCS_INT(1024);

{*
** The maximum number of bytes in a Sybase timestamp.
*}
  CS_TS_SIZE	= TCS_INT(8);

{*
** The maximum number of bytes in Sybase text pointers.
*}
  CS_TP_SIZE	= TCS_INT(16);

{*
** The size of the sqlstate array in the CS_SERVERMSG and CS_CLIENTMSG
** structures. Please note that this size is 2 bytes greater than what the
** standard specifies. Users should look at only the first 6 bytes in
** the array. That last 2 bytes are reserved to insure modulo 4 byte
** structure alignment.
*}
  CS_SQLSTATE_SIZE	= TCS_INT(8);

{*******************************************************************************
**
** Defines passed into Open Client/Server APIs.
**
*******************************************************************************}

{*
** Define all the library versions currently supported.
*}
  CS_VERSION_100	= TCS_INT(  112);
  CS_VERSION_110	= TCS_INT( 1100);
  CS_VERSION_125	= TCS_INT(12500);

{*
** Action flags used.
** 	CS_CACHE currently only used by OMI apis
*}
  CS_GET    		= TCS_INT(33);
  CS_SET    		= TCS_INT(34);
  CS_CLEAR		= TCS_INT(35);
  CS_INIT   		= TCS_INT(36);
  CS_STATUS		= TCS_INT(37);
  CS_MSGLIMIT		= TCS_INT(38);
  CS_SEND     		= TCS_INT(39);
  CS_SUPPORTED		= TCS_INT(40);
  CS_CACHE              = TCS_INT(41);

{*
** Bind indicator values. These are preferred when passing data into
** Client Library or Server Library, since they add the appropriate cast.
*}
  CS_GOODDATA		= TCS_SMALLINT( 0);
  CS_NULLDATA		= TCS_SMALLINT(-1);

{*
** Define ct_debug() operations.
*}
  CS_SET_FLAG		= TCS_INT(1700);
  CS_CLEAR_FLAG		= TCS_INT(1701);
  CS_SET_DBG_FILE    	= TCS_INT(1702);
  CS_SET_PROTOCOL_FILE	= TCS_INT(1703);

{*
** Define ct_debug() types of trace information.
*}
  CS_DBG_ALL		= TCS_INT($0001);
  CS_DBG_ASYNC		= TCS_INT($0002);
  CS_DBG_ERROR		= TCS_INT($0004);
  CS_DBG_MEM		= TCS_INT($0008);
  CS_DBG_PROTOCOL	= TCS_INT($0010);
  CS_DBG_PROTOCOL_STATES= TCS_INT($0020);
  CS_DBG_API_STATES	= TCS_INT($0040);
  CS_DBG_DIAG		= TCS_INT($0080);
  CS_DBG_NETWORK	= TCS_INT($0100);
  CS_DBG_API_LOGCALL	= TCS_INT($0200);

{*
** Cancel types.
*}
  CS_CANCEL_CURRENT	= TCS_INT(6000);
  CS_CANCEL_ALL		= TCS_INT(6001);
  CS_CANCEL_ATTN     	= TCS_INT(6002);
  CS_CANCEL_ABORT_NOTIF	= TCS_INT(6003);

{*
** Cursor fetch options. Currently these are not supported within Open
** Client and Open Server.
*}
  CS_FIRST		= TCS_INT(3000);
  CS_NEXT      		= TCS_INT(3001);
  CS_PREV      		= TCS_INT(3002);
  CS_LAST      		= TCS_INT(3003);
  CS_ABSOLUTE		= TCS_INT(3004);
  CS_RELATIVE		= TCS_INT(3005);

{*
** Op codes used in cs_calc().
*}
  CS_ADD     		= TCS_INT(1);
  CS_SUB     		= TCS_INT(2);
  CS_MULT    		= TCS_INT(3);
  CS_DIV     		= TCS_INT(4);
  CS_ZERO    		= TCS_INT(5);

{*
** The cs_dt_info() types.
*}
  CS_MONTH		= TCS_INT(7340);
  CS_SHORTMONTH		= TCS_INT(7341);
  CS_DAYNAME		= TCS_INT(7342);
  CS_DATEORDER		= TCS_INT(7343);
  CS_12HOUR		= TCS_INT(7344);
  CS_DT_CONVFMT		= TCS_INT(7345);

{*
** The cs_strcmp() options.
*}
  CS_COMPARE		= TCS_INT(7440);
  CS_SORT	  	= TCS_INT(7441);

{*
** Callback types.
*}
  CS_COMPLETION_CB	= TCS_INT(1);
  CS_SERVERMSG_CB	= TCS_INT(2);
  CS_CLIENTMSG_CB	= TCS_INT(3);
  CS_NOTIF_CB		= TCS_INT(4);
  CS_ENCRYPT_CB		= TCS_INT(5);
  CS_CHALLENGE_CB	= TCS_INT(6);
  CS_DS_LOOKUP_CB	= TCS_INT(7);
  CS_SECSESSION_CB	= TCS_INT(8);
  CS_SSLVALIDATE_CB	= TCS_INT(9);  

{*
** To install a signal callback, the type needs to calculated as an
** offset of the operating-system-specific signal number and the
** following define. For example, to install a callback handler for a
** SIGALRM signal, pass (CS_SIGNAL_CB + SIGALRM) to the ct_callback()
** routine.
*}
  CS_SIGNAL_CB		= TCS_INT(100);

{*
** Exit and close flags.
*}
  CS_FORCE_EXIT		= TCS_INT(300);
  CS_FORCE_CLOSE	= TCS_INT(301);

{*
** ct_diag() and cs_diag() type flags.
*}
  CS_CLIENTMSG_TYPE	= TCS_INT(4700);
  CS_SERVERMSG_TYPE	= TCS_INT(4701);
  CS_ALLMSG_TYPE 	= TCS_INT(4702);
  SQLCA_TYPE		= TCS_INT(4703);
  SQLCODE_TYPE		= TCS_INT(4704);
  SQLSTATE_TYPE		= TCS_INT(4705);

{*
** Compute info types.
*}
  CS_COMP_OP		= TCS_INT(5350);
  CS_COMP_ID		= TCS_INT(5351);
  CS_COMP_COLID		= TCS_INT(5352);
  CS_COMP_BYLIST  	= TCS_INT(5353);
  CS_BYLIST_LEN		= TCS_INT(5354);

{*
** Compute info operators.
*}
  CS_OP_SUM		= TCS_INT(5370);
  CS_OP_AVG		= TCS_INT(5371);
  CS_OP_COUNT		= TCS_INT(5372);
  CS_OP_MIN		= TCS_INT(5373);
  CS_OP_MAX		= TCS_INT(5374);

{*
** Browse types.
*}
  CS_ISBROWSE		= TCS_INT(9000);
  CS_TABNUM		= TCS_INT(9001);
  CS_TABNAME		= TCS_INT(9002);

{*
** Result types from ct_results().
*}
  CS_ROW_RESULT		= TCS_INT(4040);
  CS_CURSOR_RESULT	= TCS_INT(4041);
  CS_PARAM_RESULT 	= TCS_INT(4042);
  CS_STATUS_RESULT	= TCS_INT(4043);
  CS_MSG_RESULT		= TCS_INT(4044);
  CS_COMPUTE_RESULT	= TCS_INT(4045);
  CS_CMD_DONE		= TCS_INT(4046);
  CS_CMD_SUCCEED  	= TCS_INT(4047);
  CS_CMD_FAIL		= TCS_INT(4048);
  CS_ROWFMT_RESULT	= TCS_INT(4049);
  CS_COMPUTEFMT_RESULT	= TCS_INT(4050);
  CS_DESCRIBE_RESULT	= TCS_INT(4051);

{*
** Flags for getting result info using ct_res_info().
*}
  CS_ROW_COUNT		= TCS_INT(800);
  CS_CMD_NUMBER		= TCS_INT(801);
  CS_NUM_COMPUTES 	= TCS_INT(802);
  CS_NUMDATA		= TCS_INT(803);
  CS_ORDERBY_COLS 	= TCS_INT(804);
  CS_NUMORDERCOLS 	= TCS_INT(805);
  CS_MSGTYPE		= TCS_INT(806);
  CS_BROWSE_INFO  	= TCS_INT(807);
  CS_TRANS_STATE  	= TCS_INT(808);

{*
** Possible values for CS_TRANS_STATE.
*}
  CS_TRAN_UNDEFINED	= TCS_INT(0);
  CS_TRAN_IN_PROGRESS	= TCS_INT(1);
  CS_TRAN_COMPLETED	= TCS_INT(2);
  CS_TRAN_FAIL		= TCS_INT(3);
  CS_TRAN_STMT_FAIL	= TCS_INT(4);