← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/base/ibase/ibase60.inc

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2005-05-30 11:59:10 UTC
  • mfrom: (1.2.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20050530115910-x5pbzm4qqta4i94h
Tags: 2.0.0-2
http://bugs.debian.org/310907
debian/fp-compiler.postinst.in: forgot to reapply the patch that
correctly creates the slave link to pc(1).  (Closes: #310907)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/base/ibase/ibase60.inc
 
1
{
 
2
  $Id: ibase60.inc,v 1.1 2005/04/24 19:55:55 joost Exp $
 
3
}
 
4
 
 
5
{$MODE objfpc}
 
6
{$MACRO on}
 
7
 
 
8
interface
 
9
 
 
10
{$IFDEF LinkDynamically}
 
11
uses Dynlibs, sysutils;
 
12
{$ENDIF}
 
13
 
 
14
{$IFDEF Unix}
 
15
  {$LINKLIB c}
 
16
  {$LINKLIB crypt}
 
17
  {$DEFINE extdecl:=cdecl}
 
18
  const
 
19
    gdslib = 'libgds.so';
 
20
    fbclib = 'libfbclient.so';
 
21
{$ENDIF}
 
22
{$IFDEF Win32}
 
23
  {$DEFINE extdecl:=stdcall}
 
24
  const
 
25
    gdslib = 'gds32.dll';
 
26
    fbclib = 'fbclient.dll';
 
27
{$ENDIF}
 
28
 
 
29
type
 
30
  {  Unsigned types }
 
31
 
 
32
  UChar                = Byte;
 
33
  UShort               = Word;
 
34
  UInt                 = DWord;
 
35
  ULong                = DWord;
 
36
 
 
37
  { Signed types }
 
38
 
 
39
  Int                  = LongInt;
 
40
  Long                 = LongInt;
 
41
  Short                = SmallInt;
 
42
  Float                = Single;
 
43
 
 
44
  { Pointers to basic types }
 
45
 
 
46
  PInt                 = ^Int;
 
47
  PShort               = ^Short;
 
48
  PUShort              = ^UShort;
 
49
  PLong                = ^Long;
 
50
  PULong               = ^ULong;
 
51
  PFloat               = ^Float;
 
52
  PUChar               = ^UChar;
 
53
  PVoid                = ^Pointer;
 
54
 
 
55
{$PACKRECORDS C}
 
56
 
 
57
  const
 
58
     ISC_TRUE = 1;
 
59
     ISC_FALSE = 0;
 
60
  const
 
61
     ISC__TRUE = ISC_TRUE;
 
62
     ISC__FALSE = ISC_FALSE;
 
63
 
 
64
Type
 
65
   ISC_USHORT    = word;
 
66
   ISC_STATUS    = longint;
 
67
   ISC_INT64     = int64;
 
68
   ISC_UINT64    = qword;
 
69
   ISC_LONG      = Longint;
 
70
 
 
71
   PISC_USHORT = ^ISC_USHORT;
 
72
   PISC_STATUS = ^ISC_STATUS;
 
73
   PPISC_STATUS = ^PISC_STATUS;
 
74
   PISC_INT64 = ^ISC_INT64;
 
75
   PISC_UINT64 = ^ISC_UINT64;
 
76
   PISC_LONG = ^ISC_LONG;
 
77
 
 
78
  const
 
79
     DSQL_close = 1;
 
80
     DSQL_drop = 2;
 
81
 
 
82
  {!!MVC
 
83
    Removed all ISC_FAR, ISC_EXPORT_VARARG and ISC_EXPORT
 
84
    macros.
 
85
    They confuse h2pas...
 
86
  !!MVC }
 
87
  {                                                                  }
 
88
  { Time & Date Support                                              }
 
89
  {                                                                  }
 
90
{$ifndef _ISC_TIMESTAMP_}
 
91
 
 
92
  type
 
93
 
 
94
     ISC_DATE = longint;
 
95
     ISC_TIME = dword;
 
96
     ISC_TIMESTAMP = record
 
97
          timestamp_date : ISC_DATE;
 
98
          timestamp_time : ISC_TIME;
 
99
       end;
 
100
     TISC_DATE = ISC_DATE;
 
101
     TISC_TIME = ISC_TIME;
 
102
     TISC_TIMESTAMP = ISC_TIMESTAMP;
 
103
     PISC_DATE = ^ISC_DATE;
 
104
     PISC_TIME = ^ISC_TIME;
 
105
     PISC_TIMESTAMP = ^ISC_TIMESTAMP;
 
106
  const
 
107
     _ISC_TIMESTAMP_ = 1;
 
108
{$endif}
 
109
 
 
110
  const
 
111
     ISC_TIME_SECONDS_PRECISION = 10000;
 
112
     ISC_TIME_SECONDS_PRECISION_SCALE = -4;
 
113
  {                                                                  }
 
114
  { Blob id structure                                                }
 
115
  {                                                                  }
 
116
 
 
117
Type
 
118
 
 
119
   GDS_QUAD = record
 
120
      gds_quad_high : ISC_LONG;
 
121
      gds_quad_low : ISC_LONG;
 
122
   end;
 
123
   TGDS_QUAD = GDS_QUAD;
 
124
   PGDS_QUAD = ^GDS_QUAD;
 
125
 
 
126
Type
 
127
     ISC_QUAD = GDS_QUAD;
 
128
     TISC_QUAD = ISC_QUAD;
 
129
     PISC_QUAD = ^ISC_QUAD;
 
130
 
 
131
{ !!field redefinitions !!
 
132
     isc_quad_high = gds_quad_high;
 
133
     isc_quad_low = gds_quad_low;
 
134
}
 
135
 
 
136
type
 
137
 
 
138
     ISC_ARRAY_BOUND = record
 
139
          array_bound_lower : smallint;
 
140
          array_bound_upper : smallint;
 
141
       end;
 
142
     TISC_ARRAY_BOUND = ISC_ARRAY_BOUND;
 
143
     PISC_ARRAY_BOUND = ^ISC_ARRAY_BOUND;
 
144
 
 
145
     ISC_ARRAY_DESC = record
 
146
          array_desc_dtype : byte;
 
147
          array_desc_scale : char;
 
148
          array_desc_length : word;
 
149
          array_desc_field_name : array[0..31] of char;
 
150
          array_desc_relation_name : array[0..31] of char;
 
151
          array_desc_dimensions : smallint;
 
152
          array_desc_flags : smallint;
 
153
          array_desc_bounds : array[0..15] of ISC_ARRAY_BOUND;
 
154
       end;
 
155
     TISC_ARRAY_DESC = ISC_ARRAY_DESC;
 
156
     PISC_ARRAY_DESC = ^ISC_ARRAY_DESC;
 
157
 
 
158
     ISC_BLOB_DESC = record
 
159
          blob_desc_subtype : smallint;
 
160
          blob_desc_charset : smallint;
 
161
          blob_desc_segment_size : smallint;
 
162
          blob_desc_field_name : array[0..31] of byte;
 
163
          blob_desc_relation_name : array[0..31] of byte;
 
164
       end;
 
165
     TISC_BLOB_DESC = ISC_BLOB_DESC;
 
166
     PISC_BLOB_DESC = ^ISC_BLOB_DESC ;
 
167
  {                          }
 
168
  { Blob control structure   }
 
169
  {                          }
 
170
  {!!MVC
 
171
  !!MVC }
 
172
  { Source filter  }
 
173
  {!!MVC
 
174
  !!MVC }
 
175
  { Argument to pass to source  }
 
176
  { filter  }
 
177
  { Target type  }
 
178
  { Source type  }
 
179
  { Length of buffer  }
 
180
  { Length of current segment  }
 
181
  { Length of blob parameter  }
 
182
  { block  }
 
183
  { Address of blob parameter  }
 
184
  { block  }
 
185
  { Address of segment buffer  }
 
186
  { Length of longest segment  }
 
187
  { Total number of segments  }
 
188
  { Total length of blob  }
 
189
  { Address of status vector  }
 
190
  { Application specific data  }
 
191
  TCTLSourceFunction  = function : isc_long;
 
192
 
 
193
     PISC_BLOB_CTL = ^ISC_BLOB_CTL ;
 
194
     ISC_BLOB_CTL = record
 
195
          ctl_source : TCTLSourceFunction;     //  was ISC_STATUS ( *ctl_source)();
 
196
          ctl_source_handle : pisc_blob_ctl  ; // was struct isc_blob_ctl  * ctl_source_handle;
 
197
          ctl_to_sub_type : smallint;
 
198
          ctl_from_sub_type : smallint;
 
199
          ctl_buffer_length : word;
 
200
          ctl_segment_length : word;
 
201
          ctl_bpb_length : word;
 
202
          ctl_bpb : Pchar;
 
203
          ctl_buffer : Pbyte;
 
204
          ctl_max_segment : ISC_LONG;
 
205
          ctl_number_segments : ISC_LONG;
 
206
          ctl_total_length : ISC_LONG;
 
207
          ctl_status : PISC_STATUS;
 
208
          ctl_data : array[0..7] of longint;
 
209
       end;
 
210
     TISC_BLOB_CTL = ISC_BLOB_CTL;
 
211
 
 
212
  {                          }
 
213
  { Blob stream definitions  }
 
214
  {                          }
 
215
  { Blob handle  }
 
216
  { Address of buffer  }
 
217
  { Next character  }
 
218
  { Length of buffer  }
 
219
  { Characters in buffer  }
 
220
  { (mode) ? OUTPUT : INPUT  }
 
221
 
 
222
     BSTREAM = record
 
223
          bstr_blob : pointer;
 
224
          bstr_buffer : Pchar;
 
225
          bstr_ptr : Pchar;
 
226
          bstr_length : smallint;
 
227
          bstr_cnt : smallint;
 
228
          bstr_mode : char;
 
229
       end;
 
230
     TBSTREAM = BSTREAM;
 
231
     PBstream = ^BSTREAM;
 
232
  {!!MVC
 
233
 
 
234
  #define getb(p)       (--(p)->bstr_cnt >= 0 ?  (p)->bstr_ptr++ & 0377: BLOB_get (p))
 
235
  #define putb(x,p) (((x) == '\n' || (!(--(p)->bstr_cnt))) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x))))
 
236
  #define putbx(x,p) ((!(--(p)->bstr_cnt)) ? BLOB_put ((x),p) : ((int) ( (p)->bstr_ptr++ = (unsigned) (x))))
 
237
 
 
238
  !!MVC  }
 
239
  {                          }
 
240
  { Dynamic SQL definitions  }
 
241
  {                          }
 
242
  {                             }
 
243
  { Declare the extended SQLDA  }
 
244
  {                             }
 
245
  { datatype of field  }
 
246
  { scale factor  }
 
247
  { datatype subtype - BLOBs & Text  }
 
248
  { types only  }
 
249
  { length of data area  }
 
250
  { address of data  }
 
251
  { address of indicator variable  }
 
252
  { length of sqlname field  }
 
253
  { name of field, name length + space  }
 
254
  { for NULL  }
 
255
  { length of relation name  }
 
256
  { field's relation name + space for  }
 
257
  { NULL  }
 
258
  { length of owner name  }
 
259
  { relation's owner name + space for  }
 
260
  { NULL  }
 
261
  { length of alias name  }
 
262
  { relation's alias name + space for  }
 
263
  { NULL  }
 
264
 
 
265
     XSQLVAR = record
 
266
          sqltype : smallint;
 
267
          sqlscale : smallint;
 
268
          sqlsubtype : smallint;
 
269
          sqllen : smallint;
 
270
          sqldata : Pchar;
 
271
          sqlind : Psmallint;
 
272
          sqlname_length : smallint;
 
273
          sqlname : array[0..31] of char;
 
274
          relname_length : smallint;
 
275
          relname : array[0..31] of char;
 
276
          ownname_length : smallint;
 
277
          ownname : array[0..31] of char;
 
278
          aliasname_length : smallint;
 
279
          aliasname : array[0..31] of char;
 
280
       end;
 
281
     TXSQLVAR = XSQLVAR;
 
282
     PXSQLVAR =^XSQLVAR;
 
283
  { version of this XSQLDA  }
 
284
  { XSQLDA name field  }
 
285
  { length in bytes of SQLDA  }
 
286
  { number of fields allocated  }
 
287
  { actual number of fields  }
 
288
  { first field address  }
 
289
 
 
290
     XSQLDA = record
 
291
          version : smallint;
 
292
          sqldaid : array[0..7] of char;
 
293
          sqldabc : ISC_LONG;
 
294
          sqln : smallint;
 
295
          sqld : smallint;
 
296
          sqlvar : array[0..0] of XSQLVAR;
 
297
       end;
 
298
     TXSQLDA = XSQLDA;
 
299
     PXSQLDA =^XSQLDA;
 
300
 
 
301
  function XSQLDA_LENGTH(n: Integer): Integer;
 
302
 
 
303
 
 
304
  const
 
305
     SQLDA_VERSION1 = 1;
 
306
  { meaning is same as DIALECT_xsqlda  }
 
307
     SQL_DIALECT_V5 = 1;
 
308
  { flagging anything that is delimited
 
309
                                              by double quotes as an error and
 
310
                                              flagging keyword DATE as an error  }
 
311
     SQL_DIALECT_V6_TRANSITION = 2;
 
312
  { supports SQL delimited identifier,
 
313
                                              SQLDATE/DATE, TIME, TIMESTAMP,
 
314
                                              CURRENT_DATE, CURRENT_TIME,
 
315
                                              CURRENT_TIMESTAMP, and 64-bit exact
 
316
                                              numeric type  }
 
317
     SQL_DIALECT_V6 = 3;
 
318
  { latest IB DIALECT  }
 
319
     SQL_DIALECT_CURRENT = SQL_DIALECT_V6;
 
320
  {                               }
 
321
  { InterBase Handle Definitions  }
 
322
  {                               }
 
323
 
 
324
  type
 
325
     isc_att_handle = pointer;
 
326
     isc_blob_handle = pointer;
 
327
     isc_db_handle = pointer;
 
328
     isc_form_handle = pointer;
 
329
     isc_req_handle = pointer;
 
330
     isc_stmt_handle = pointer;
 
331
     isc_svc_handle = pointer;
 
332
     isc_tr_handle = pointer;
 
333
     isc_win_handle = pointer;
 
334
     isc_callback = procedure ;extdecl;
 
335
     isc_resv_handle = ISC_LONG;
 
336
     tisc_att_handle = isc_att_handle;
 
337
     tisc_blob_handle = isc_blob_handle;
 
338
     tisc_db_handle = isc_db_handle;
 
339
     tisc_form_handle = isc_form_handle;
 
340
     tisc_req_handle = isc_req_handle;
 
341
     tisc_stmt_handle = isc_stmt_handle;
 
342
     tisc_svc_handle = isc_svc_handle;
 
343
     tisc_tr_handle = isc_tr_handle;
 
344
     tisc_win_handle = isc_win_handle;
 
345
     tisc_callback = isc_callback;
 
346
     tisc_resv_handle = isc_resv_handle;
 
347
     pisc_att_handle  =^isc_att_handle ;
 
348
     pisc_blob_handle  =^isc_blob_handle ;
 
349
     pisc_db_handle  =^isc_db_handle ;
 
350
     pisc_form_handle  =^isc_form_handle ;
 
351
     pisc_req_handle  =^isc_req_handle ;
 
352
     pisc_stmt_handle  =^isc_stmt_handle ;
 
353
     pisc_svc_handle  =^isc_svc_handle ;
 
354
     pisc_tr_handle  =^isc_tr_handle ;
 
355
     pisc_win_handle  =^isc_win_handle ;
 
356
     pisc_callback  = ^isc_callback;
 
357
     pisc_resv_handle  =^isc_resv_handle ;
 
358
 
 
359
 
 
360
  {                                    }
 
361
  { Security structures                }
 
362
  {                                    }
 
363
 
 
364
  const
 
365
     sec_uid_spec = $01;
 
366
     sec_gid_spec = $02;
 
367
     sec_server_spec = $04;
 
368
     sec_password_spec = $08;
 
369
     sec_group_name_spec = $10;
 
370
     sec_first_name_spec = $20;
 
371
     sec_middle_name_spec = $40;
 
372
     sec_last_name_spec = $80;
 
373
     sec_dba_user_name_spec = $100;
 
374
     sec_dba_password_spec = $200;
 
375
     sec_protocol_tcpip = 1;
 
376
     sec_protocol_netbeui = 2;
 
377
     sec_protocol_spx = 3;
 
378
     sec_protocol_local = 4;
 
379
  { which fields are specified  }
 
380
  { the user's id  }
 
381
  { the user's group id  }
 
382
  { protocol to use for connection  }
 
383
  { server to administer  }
 
384
  { the user's name  }
 
385
  { the user's password  }
 
386
  { the group name  }
 
387
  { the user's first name  }
 
388
  { the user's middle name  }
 
389
  { the user's last name  }
 
390
  { the dba user name  }
 
391
  { the dba password  }
 
392
 
 
393
  type
 
394
 
 
395
     USER_SEC_DATA = record
 
396
          sec_flags : smallint;
 
397
          uid : longint;
 
398
          gid : longint;
 
399
          protocol : longint;
 
400
          server : Pchar;
 
401
          user_name : Pchar;
 
402
          password : Pchar;
 
403
          group_name : Pchar;
 
404
          first_name : Pchar;
 
405
          middle_name : Pchar;
 
406
          last_name : Pchar;
 
407
          dba_user_name : Pchar;
 
408
          dba_password : Pchar;
 
409
       end;
 
410
     TUSER_SEC_DATA = USER_SEC_DATA;
 
411
     PUSER_SEC_DATA = ^USER_SEC_DATA;
 
412
 
 
413
  {                                                  }
 
414
  { Actions to pass to the blob filter (ctl_source)  }
 
415
  {                                                  }
 
416
 
 
417
  const
 
418
     isc_blob_filter_open = 0;
 
419
     isc_blob_filter_get_segment = 1;
 
420
     isc_blob_filter_close = 2;
 
421
     isc_blob_filter_create = 3;
 
422
     isc_blob_filter_put_segment = 4;
 
423
     isc_blob_filter_alloc = 5;
 
424
     isc_blob_filter_free = 6;
 
425
     isc_blob_filter_seek = 7;
 
426
  {                  }
 
427
  { Blr definitions  }
 
428
  {                  }
 
429
{$ifndef _JRD_BLR_H_}
 
430
  {!!MVC
 
431
  #define blr_word(n) ((n) % 256), ((n) / 256)
 
432
  !!MVC }
 
433
 
 
434
  const
 
435
     blr_text = 14;
 
436
     blr_text2 = 15;
 
437
     blr_short = 7;
 
438
     blr_long = 8;
 
439
     blr_quad = 9;
 
440
     blr_int64 = 16;
 
441
     blr_float = 10;
 
442
     blr_double = 27;
 
443
     blr_d_float = 11;
 
444
     blr_timestamp = 35;
 
445
     blr_varying = 37;
 
446
     blr_varying2 = 38;
 
447
     blr_blob = 261;
 
448
     blr_cstring = 40;
 
449
     blr_cstring2 = 41;
 
450
     blr_blob_id = 45;
 
451
     blr_sql_date = 12;
 
452
     blr_sql_time = 13;
 
453
  { Historical alias for pre V6 applications  }
 
454
     blr_date = blr_timestamp;
 
455
     blr_inner = 0;
 
456
     blr_left = 1;
 
457
     blr_right = 2;
 
458
     blr_full = 3;
 
459
     blr_gds_code = 0;
 
460
     blr_sql_code = 1;
 
461
     blr_exception = 2;
 
462
     blr_trigger_code = 3;
 
463
     blr_default_code = 4;
 
464
     blr_version4 = 4;
 
465
     blr_version5 = 5;
 
466
     blr_eoc = 76;
 
467
     blr_end = 255;
 
468
     blr_assignment = 1;
 
469
     blr_begin = 2;
 
470
     blr_dcl_variable = 3;
 
471
     blr_message = 4;
 
472
     blr_erase = 5;
 
473
     blr_fetch = 6;
 
474
     blr_for = 7;
 
475
     blr_if = 8;
 
476
     blr_loop = 9;
 
477
     blr_modify = 10;
 
478
     blr_handler = 11;
 
479
     blr_receive = 12;
 
480
     blr_select = 13;
 
481
     blr_send = 14;
 
482
     blr_store = 15;
 
483
     blr_label = 17;
 
484
     blr_leave = 18;
 
485
     blr_store2 = 19;
 
486
     blr_post = 20;
 
487
     blr_literal = 21;
 
488
     blr_dbkey = 22;
 
489
     blr_field = 23;
 
490
     blr_fid = 24;
 
491
     blr_parameter = 25;
 
492
     blr_variable = 26;
 
493
     blr_average = 27;
 
494
     blr_count = 28;
 
495
     blr_maximum = 29;
 
496
     blr_minimum = 30;
 
497
     blr_total = 31;
 
498
     blr_add = 34;
 
499
     blr_subtract = 35;
 
500
     blr_multiply = 36;
 
501
     blr_divide = 37;
 
502
     blr_negate = 38;
 
503
     blr_concatenate = 39;
 
504
     blr_substring = 40;
 
505
     blr_parameter2 = 41;
 
506
     blr_from = 42;
 
507
     blr_via = 43;
 
508
     blr_user_name = 44;
 
509
     blr_null = 45;
 
510
     blr_eql = 47;
 
511
     blr_neq = 48;
 
512
     blr_gtr = 49;
 
513
     blr_geq = 50;
 
514
     blr_lss = 51;
 
515
     blr_leq = 52;
 
516
     blr_containing = 53;
 
517
     blr_matching = 54;
 
518
     blr_starting = 55;
 
519
     blr_between = 56;
 
520
     blr_or = 57;
 
521
     blr_and = 58;
 
522
     blr_not = 59;
 
523
     blr_any = 60;
 
524
     blr_missing = 61;
 
525
     blr_unique = 62;
 
526
     blr_like = 63;
 
527
     blr_stream = 65;
 
528
     blr_set_index = 66;
 
529
     blr_rse = 67;
 
530
     blr_first = 68;
 
531
     blr_project = 69;
 
532
     blr_sort = 70;
 
533
     blr_boolean = 71;
 
534
     blr_ascending = 72;
 
535
     blr_descending = 73;
 
536
     blr_relation = 74;
 
537
     blr_rid = 75;
 
538
     blr_union = 76;
 
539
     blr_map = 77;
 
540
     blr_group_by = 78;
 
541
     blr_aggregate = 79;
 
542
     blr_join_type = 80;
 
543
     blr_agg_count = 83;
 
544
     blr_agg_max = 84;
 
545
     blr_agg_min = 85;
 
546
     blr_agg_total = 86;
 
547
     blr_agg_average = 87;
 
548
     blr_parameter3 = 88;
 
549
     blr_run_count = 118;
 
550
     blr_run_max = 89;
 
551
     blr_run_min = 90;
 
552
     blr_run_total = 91;
 
553
     blr_run_average = 92;
 
554
     blr_agg_count2 = 93;
 
555
     blr_agg_count_distinct = 94;
 
556
     blr_agg_total_distinct = 95;
 
557
     blr_agg_average_distinct = 96;
 
558
     blr_function = 100;
 
559
     blr_gen_id = 101;
 
560
     blr_prot_mask = 102;
 
561
     blr_upcase = 103;
 
562
     blr_lock_state = 104;
 
563
     blr_value_if = 105;
 
564
     blr_matching2 = 106;
 
565
     blr_index = 107;
 
566
     blr_ansi_like = 108;
 
567
     blr_bookmark = 109;
 
568
     blr_crack = 110;
 
569
     blr_force_crack = 111;
 
570
     blr_seek = 112;
 
571
     blr_find = 113;
 
572
     blr_continue = 0;
 
573
     blr_forward = 1;
 
574
     blr_backward = 2;
 
575
     blr_bof_forward = 3;
 
576
     blr_eof_backward = 4;
 
577
     blr_lock_relation = 114;
 
578
     blr_lock_record = 115;
 
579
     blr_set_bookmark = 116;
 
580
     blr_get_bookmark = 117;
 
581
     blr_rs_stream = 119;
 
582
     blr_exec_proc = 120;
 
583
     blr_begin_range = 121;
 
584
     blr_end_range = 122;
 
585
     blr_delete_range = 123;
 
586
     blr_procedure = 124;
 
587
     blr_pid = 125;
 
588
     blr_exec_pid = 126;
 
589
     blr_singular = 127;
 
590
     blr_abort = 128;
 
591
     blr_block = 129;
 
592
     blr_error_handler = 130;
 
593
     blr_cast = 131;
 
594
     blr_release_lock = 132;
 
595
     blr_release_locks = 133;
 
596
     blr_start_savepoint = 134;
 
597
     blr_end_savepoint = 135;
 
598
     blr_find_dbkey = 136;
 
599
     blr_range_relation = 137;
 
600
     blr_delete_ranges = 138;
 
601
     blr_plan = 139;
 
602
     blr_merge = 140;
 
603
     blr_join = 141;
 
604
     blr_sequential = 142;
 
605
     blr_navigational = 143;
 
606
     blr_indices = 144;
 
607
     blr_retrieve = 145;
 
608
     blr_relation2 = 146;
 
609
     blr_rid2 = 147;
 
610
     blr_reset_stream = 148;
 
611
     blr_release_bookmark = 149;
 
612
     blr_set_generator = 150;
 
613
     blr_ansi_any = 151;
 
614
     blr_exists = 152;
 
615
     blr_cardinality = 153;
 
616
  { get tid of record  }
 
617
     blr_record_version = 154;
 
618
  { fake server stall  }
 
619
     blr_stall = 155;
 
620
     blr_seek_no_warn = 156;
 
621
     blr_find_dbkey_version = 157;
 
622
     blr_ansi_all = 158;
 
623
     blr_extract = 159;
 
624
  { sub parameters for blr_extract  }
 
625
     blr_extract_year = 0;
 
626
     blr_extract_month = 1;
 
627
     blr_extract_day = 2;
 
628
     blr_extract_hour = 3;
 
629
     blr_extract_minute = 4;
 
630
     blr_extract_second = 5;
 
631
     blr_extract_weekday = 6;
 
632
     blr_extract_yearday = 7;
 
633
     blr_current_date = 160;
 
634
     blr_current_timestamp = 161;
 
635
     blr_current_time = 162;
 
636
  { These verbs were added in 6.0, primarily to support 64-bit integers  }
 
637
     blr_add2 = 163;
 
638
     blr_subtract2 = 164;
 
639
     blr_multiply2 = 165;
 
640
     blr_divide2 = 166;
 
641
     blr_agg_total2 = 167;
 
642
     blr_agg_total_distinct2 = 168;
 
643
     blr_agg_average2 = 169;
 
644
     blr_agg_average_distinct2 = 170;
 
645
     blr_average2 = 171;
 
646
     blr_gen_id2 = 172;
 
647
     blr_set_generator2 = 173;
 
648
{$endif}
 
649
  { _JRD_BLR_H_  }
 
650
  {                                 }
 
651
  { Database parameter block stuff  }
 
652
  {                                 }
 
653
 
 
654
  const
 
655
     isc_dpb_version1 = 1;
 
656
     isc_dpb_cdd_pathname = 1;
 
657
     isc_dpb_allocation = 2;
 
658
     isc_dpb_journal = 3;
 
659
     isc_dpb_page_size = 4;
 
660
     isc_dpb_num_buffers = 5;
 
661
     isc_dpb_buffer_length = 6;
 
662
     isc_dpb_debug = 7;
 
663
     isc_dpb_garbage_collect = 8;
 
664
     isc_dpb_verify = 9;
 
665
     isc_dpb_sweep = 10;
 
666
     isc_dpb_enable_journal = 11;
 
667
     isc_dpb_disable_journal = 12;
 
668
     isc_dpb_dbkey_scope = 13;
 
669
     isc_dpb_number_of_users = 14;
 
670
     isc_dpb_trace = 15;
 
671
     isc_dpb_no_garbage_collect = 16;
 
672
     isc_dpb_damaged = 17;
 
673
     isc_dpb_license = 18;
 
674
     isc_dpb_sys_user_name = 19;
 
675
     isc_dpb_encrypt_key = 20;
 
676
     isc_dpb_activate_shadow = 21;
 
677
     isc_dpb_sweep_interval = 22;
 
678
     isc_dpb_delete_shadow = 23;
 
679
     isc_dpb_force_write = 24;
 
680
     isc_dpb_begin_log = 25;
 
681
     isc_dpb_quit_log = 26;
 
682
     isc_dpb_no_reserve = 27;
 
683
     isc_dpb_user_name = 28;
 
684
     isc_dpb_password = 29;
 
685
     isc_dpb_password_enc = 30;
 
686
     isc_dpb_sys_user_name_enc = 31;
 
687
     isc_dpb_interp = 32;
 
688
     isc_dpb_online_dump = 33;
 
689
     isc_dpb_old_file_size = 34;
 
690
     isc_dpb_old_num_files = 35;
 
691
     isc_dpb_old_file = 36;
 
692
     isc_dpb_old_start_page = 37;
 
693
     isc_dpb_old_start_seqno = 38;
 
694
     isc_dpb_old_start_file = 39;
 
695
     isc_dpb_drop_walfile = 40;
 
696
     isc_dpb_old_dump_id = 41;
 
697
     isc_dpb_wal_backup_dir = 42;
 
698
     isc_dpb_wal_chkptlen = 43;
 
699
     isc_dpb_wal_numbufs = 44;
 
700
     isc_dpb_wal_bufsize = 45;
 
701
     isc_dpb_wal_grp_cmt_wait = 46;
 
702
     isc_dpb_lc_messages = 47;
 
703
     isc_dpb_lc_ctype = 48;
 
704
     isc_dpb_cache_manager = 49;
 
705
     isc_dpb_shutdown = 50;
 
706
     isc_dpb_online = 51;
 
707
     isc_dpb_shutdown_delay = 52;
 
708
     isc_dpb_reserved = 53;
 
709
     isc_dpb_overwrite = 54;
 
710
     isc_dpb_sec_attach = 55;
 
711
     isc_dpb_disable_wal = 56;
 
712
     isc_dpb_connect_timeout = 57;
 
713
     isc_dpb_dummy_packet_interval = 58;
 
714
     isc_dpb_gbak_attach = 59;
 
715
     isc_dpb_sql_role_name = 60;
 
716
     isc_dpb_set_page_buffers = 61;
 
717
     isc_dpb_working_directory = 62;
 
718
     isc_dpb_SQL_dialect = 63;
 
719
     isc_dpb_set_db_readonly = 64;
 
720
     isc_dpb_set_db_SQL_dialect = 65;
 
721
     isc_dpb_gfix_attach = 66;
 
722
     isc_dpb_gstat_attach = 67;
 
723
  {                                }
 
724
  { isc_dpb_verify specific flags  }
 
725
  {                                }
 
726
     isc_dpb_pages = 1;
 
727
     isc_dpb_records = 2;
 
728
     isc_dpb_indices = 4;
 
729
     isc_dpb_transactions = 8;
 
730
     isc_dpb_no_update = 16;
 
731
     isc_dpb_repair = 32;
 
732
     isc_dpb_ignore = 64;
 
733
  {                                  }
 
734
  { isc_dpb_shutdown specific flags  }
 
735
  {                                  }
 
736
     isc_dpb_shut_cache = 1;
 
737
     isc_dpb_shut_attachment = 2;
 
738
     isc_dpb_shut_transaction = 4;
 
739
     isc_dpb_shut_force = 8;
 
740
  {                                     }
 
741
  { Bit assignments in RDB$SYSTEM_FLAG  }
 
742
  {                                     }
 
743
     RDB_system = 1;
 
744
     RDB_id_assigned = 2;
 
745
  {                                    }
 
746
  { Transaction parameter block stuff  }
 
747
  {                                    }
 
748
     isc_tpb_version1 = 1;
 
749
     isc_tpb_version3 = 3;
 
750
     isc_tpb_consistency = 1;
 
751
     isc_tpb_concurrency = 2;
 
752
     isc_tpb_shared = 3;
 
753
     isc_tpb_protected = 4;
 
754
     isc_tpb_exclusive = 5;
 
755
     isc_tpb_wait = 6;
 
756
     isc_tpb_nowait = 7;
 
757
     isc_tpb_read = 8;
 
758
     isc_tpb_write = 9;
 
759
     isc_tpb_lock_read = 10;
 
760
     isc_tpb_lock_write = 11;
 
761
     isc_tpb_verb_time = 12;
 
762
     isc_tpb_commit_time = 13;
 
763
     isc_tpb_ignore_limbo = 14;
 
764
     isc_tpb_read_committed = 15;
 
765
     isc_tpb_autocommit = 16;
 
766
     isc_tpb_rec_version = 17;
 
767
     isc_tpb_no_rec_version = 18;
 
768
     isc_tpb_restart_requests = 19;
 
769
     isc_tpb_no_auto_undo = 20;
 
770
  {                       }
 
771
  { Blob Parameter Block  }
 
772
  {                       }
 
773
     isc_bpb_version1 = 1;
 
774
     isc_bpb_source_type = 1;
 
775
     isc_bpb_target_type = 2;
 
776
     isc_bpb_type = 3;
 
777
     isc_bpb_source_interp = 4;
 
778
     isc_bpb_target_interp = 5;
 
779
     isc_bpb_filter_parameter = 6;
 
780
     isc_bpb_type_segmented = 0;
 
781
     isc_bpb_type_stream = 1;
 
782
  {                                }
 
783
  { Service parameter block stuff  }
 
784
  {                                }
 
785
     isc_spb_version1 = 1;
 
786
     isc_spb_current_version = 2;
 
787
     isc_spb_version = isc_spb_current_version;
 
788
     isc_spb_user_name = isc_dpb_user_name;
 
789
     isc_spb_sys_user_name = isc_dpb_sys_user_name;
 
790
     isc_spb_sys_user_name_enc = isc_dpb_sys_user_name_enc;
 
791
     isc_spb_password = isc_dpb_password;
 
792
     isc_spb_password_enc = isc_dpb_password_enc;
 
793
     isc_spb_command_line = 105;
 
794
     isc_spb_dbname = 106;
 
795
     isc_spb_verbose = 107;
 
796
     isc_spb_options = 108;
 
797
     isc_spb_connect_timeout = isc_dpb_connect_timeout;
 
798
     isc_spb_dummy_packet_interval = isc_dpb_dummy_packet_interval;
 
799
     isc_spb_sql_role_name = isc_dpb_sql_role_name;
 
800
  {                                }
 
801
  { Information call declarations  }
 
802
  {                                }
 
803
  {                           }
 
804
  { Common, structural codes  }
 
805
  {                           }
 
806
     isc_info_end = 1;
 
807
     isc_info_truncated = 2;
 
808
     isc_info_error = 3;
 
809
     isc_info_data_not_ready = 4;
 
810
     isc_info_flag_end = 127;
 
811
  {                             }
 
812
  { Database information items  }
 
813
  {                             }
 
814
     isc_info_db_id = 4;
 
815
     isc_info_reads = 5;
 
816
     isc_info_writes = 6;
 
817
     isc_info_fetches = 7;
 
818
     isc_info_marks = 8;
 
819
     isc_info_implementation = 11;
 
820
     isc_info_version = 12;
 
821
     isc_info_base_level = 13;
 
822
     isc_info_page_size = 14;
 
823
     isc_info_num_buffers = 15;
 
824
     isc_info_limbo = 16;
 
825
     isc_info_current_memory = 17;
 
826
     isc_info_max_memory = 18;
 
827
     isc_info_window_turns = 19;
 
828
     isc_info_license = 20;
 
829
     isc_info_allocation = 21;
 
830
     isc_info_attachment_id = 22;
 
831
     isc_info_read_seq_count = 23;
 
832
     isc_info_read_idx_count = 24;
 
833
     isc_info_insert_count = 25;
 
834
     isc_info_update_count = 26;
 
835
     isc_info_delete_count = 27;
 
836
     isc_info_backout_count = 28;
 
837
     isc_info_purge_count = 29;
 
838
     isc_info_expunge_count = 30;
 
839
     isc_info_sweep_interval = 31;
 
840
     isc_info_ods_version = 32;
 
841
     isc_info_ods_minor_version = 33;
 
842
     isc_info_no_reserve = 34;
 
843
     isc_info_logfile = 35;
 
844
     isc_info_cur_logfile_name = 36;
 
845
     isc_info_cur_log_part_offset = 37;
 
846
     isc_info_num_wal_buffers = 38;
 
847
     isc_info_wal_buffer_size = 39;
 
848
     isc_info_wal_ckpt_length = 40;
 
849
     isc_info_wal_cur_ckpt_interval = 41;
 
850
     isc_info_wal_prv_ckpt_fname = 42;
 
851
     isc_info_wal_prv_ckpt_poffset = 43;
 
852
     isc_info_wal_recv_ckpt_fname = 44;
 
853
     isc_info_wal_recv_ckpt_poffset = 45;
 
854
     isc_info_wal_grpc_wait_usecs = 47;
 
855
     isc_info_wal_num_io = 48;
 
856
     isc_info_wal_avg_io_size = 49;
 
857
     isc_info_wal_num_commits = 50;
 
858
     isc_info_wal_avg_grpc_size = 51;
 
859
     isc_info_forced_writes = 52;
 
860
     isc_info_user_names = 53;
 
861
     isc_info_page_errors = 54;
 
862
     isc_info_record_errors = 55;
 
863
     isc_info_bpage_errors = 56;
 
864
     isc_info_dpage_errors = 57;
 
865
     isc_info_ipage_errors = 58;
 
866
     isc_info_ppage_errors = 59;
 
867
     isc_info_tpage_errors = 60;
 
868
     isc_info_set_page_buffers = 61;
 
869
     isc_info_db_SQL_dialect = 62;
 
870
     isc_info_db_read_only = 63;
 
871
     isc_info_db_size_in_pages = 64;
 
872
  {                                     }
 
873
  { Database information return values  }
 
874
  {                                     }
 
875
     isc_info_db_impl_rdb_vms = 1;
 
876
     isc_info_db_impl_rdb_eln = 2;
 
877
     isc_info_db_impl_rdb_eln_dev = 3;
 
878
     isc_info_db_impl_rdb_vms_y = 4;
 
879
     isc_info_db_impl_rdb_eln_y = 5;
 
880
     isc_info_db_impl_jri = 6;
 
881
     isc_info_db_impl_jsv = 7;
 
882
     isc_info_db_impl_isc_a = 25;
 
883
     isc_info_db_impl_isc_u = 26;
 
884
     isc_info_db_impl_isc_v = 27;
 
885
     isc_info_db_impl_isc_s = 28;
 
886
     isc_info_db_impl_isc_apl_68K = 25;
 
887
     isc_info_db_impl_isc_vax_ultr = 26;
 
888
     isc_info_db_impl_isc_vms = 27;
 
889
     isc_info_db_impl_isc_sun_68k = 28;
 
890
     isc_info_db_impl_isc_os2 = 29;
 
891
     isc_info_db_impl_isc_sun4 = 30;
 
892
     isc_info_db_impl_isc_hp_ux = 31;
 
893
     isc_info_db_impl_isc_sun_386i = 32;
 
894
     isc_info_db_impl_isc_vms_orcl = 33;
 
895
     isc_info_db_impl_isc_mac_aux = 34;
 
896
     isc_info_db_impl_isc_rt_aix = 35;
 
897
     isc_info_db_impl_isc_mips_ult = 36;
 
898
     isc_info_db_impl_isc_xenix = 37;
 
899
     isc_info_db_impl_isc_dg = 38;
 
900
     isc_info_db_impl_isc_hp_mpexl = 39;
 
901
     isc_info_db_impl_isc_hp_ux68K = 40;
 
902
     isc_info_db_impl_isc_sgi = 41;
 
903
     isc_info_db_impl_isc_sco_unix = 42;
 
904
     isc_info_db_impl_isc_cray = 43;
 
905
     isc_info_db_impl_isc_imp = 44;
 
906
     isc_info_db_impl_isc_delta = 45;
 
907
     isc_info_db_impl_isc_next = 46;
 
908
     isc_info_db_impl_isc_dos = 47;
 
909
     isc_info_db_impl_isc_winnt = 48;
 
910
     isc_info_db_impl_isc_epson = 49;
 
911
     isc_info_db_class_access = 1;
 
912
     isc_info_db_class_y_valve = 2;
 
913
     isc_info_db_class_rem_int = 3;
 
914
     isc_info_db_class_rem_srvr = 4;
 
915
     isc_info_db_class_pipe_int = 7;
 
916
     isc_info_db_class_pipe_srvr = 8;
 
917
     isc_info_db_class_sam_int = 9;
 
918
     isc_info_db_class_sam_srvr = 10;
 
919
     isc_info_db_class_gateway = 11;
 
920
     isc_info_db_class_cache = 12;
 
921
  {                            }
 
922
  { Request information items  }
 
923
  {                            }
 
924
     isc_info_number_messages = 4;
 
925
     isc_info_max_message = 5;
 
926
     isc_info_max_send = 6;
 
927
     isc_info_max_receive = 7;
 
928
     isc_info_state = 8;
 
929
     isc_info_message_number = 9;
 
930
     isc_info_message_size = 10;
 
931
     isc_info_request_cost = 11;
 
932
     isc_info_access_path = 12;
 
933
     isc_info_req_select_count = 13;
 
934
     isc_info_req_insert_count = 14;
 
935
     isc_info_req_update_count = 15;
 
936
     isc_info_req_delete_count = 16;
 
937
  {                    }
 
938
  { Access path items  }
 
939
  {                    }
 
940
     isc_info_rsb_end = 0;
 
941
     isc_info_rsb_begin = 1;
 
942
     isc_info_rsb_type = 2;
 
943
     isc_info_rsb_relation = 3;
 
944
     isc_info_rsb_plan = 4;
 
945
  {            }
 
946
  { Rsb types  }
 
947
  {            }
 
948
     isc_info_rsb_unknown = 1;
 
949
     isc_info_rsb_indexed = 2;
 
950
     isc_info_rsb_navigate = 3;
 
951
     isc_info_rsb_sequential = 4;
 
952
     isc_info_rsb_cross = 5;
 
953
     isc_info_rsb_sort = 6;
 
954
     isc_info_rsb_first = 7;
 
955
     isc_info_rsb_boolean = 8;
 
956
     isc_info_rsb_union = 9;
 
957
     isc_info_rsb_aggregate = 10;
 
958
     isc_info_rsb_merge = 11;
 
959
     isc_info_rsb_ext_sequential = 12;
 
960
     isc_info_rsb_ext_indexed = 13;
 
961
     isc_info_rsb_ext_dbkey = 14;
 
962
     isc_info_rsb_left_cross = 15;
 
963
     isc_info_rsb_select = 16;
 
964
     isc_info_rsb_sql_join = 17;
 
965
     isc_info_rsb_simulate = 18;
 
966
     isc_info_rsb_sim_cross = 19;
 
967
     isc_info_rsb_once = 20;
 
968
     isc_info_rsb_procedure = 21;
 
969
  {                     }
 
970
  { Bitmap expressions  }
 
971
  {                     }
 
972
     isc_info_rsb_and = 1;
 
973
     isc_info_rsb_or = 2;
 
974
     isc_info_rsb_dbkey = 3;
 
975
     isc_info_rsb_index = 4;
 
976
     isc_info_req_active = 2;
 
977
     isc_info_req_inactive = 3;
 
978
     isc_info_req_send = 4;
 
979
     isc_info_req_receive = 5;
 
980
     isc_info_req_select = 6;
 
981
     isc_info_req_sql_stall = 7;
 
982
  {                         }
 
983
  { Blob information items  }
 
984
  {                         }
 
985
     isc_info_blob_num_segments = 4;
 
986
     isc_info_blob_max_segment = 5;
 
987
     isc_info_blob_total_length = 6;
 
988
     isc_info_blob_type = 7;
 
989
  {                                }
 
990
  { Transaction information items  }
 
991
  {                                }
 
992
     isc_info_tra_id = 4;
 
993
  {
 
994
     Service action items
 
995
                                }
 
996
  { Starts database backup process on the server  }
 
997
     isc_action_svc_backup = 1;
 
998
  { Starts database restore process on the server  }
 
999
     isc_action_svc_restore = 2;
 
1000
  { Starts database repair process on the server  }
 
1001
     isc_action_svc_repair = 3;
 
1002
  { Adds a new user to the security database  }
 
1003
     isc_action_svc_add_user = 4;
 
1004
  { Deletes a user record from the security database  }
 
1005
     isc_action_svc_delete_user = 5;
 
1006
  { Modifies a user record in the security database  }
 
1007
     isc_action_svc_modify_user = 6;
 
1008
  { Displays a user record from the security database  }
 
1009
     isc_action_svc_display_user = 7;
 
1010
  { Sets database properties  }
 
1011
     isc_action_svc_properties = 8;
 
1012
  { Adds a license to the license file  }
 
1013
     isc_action_svc_add_license = 9;
 
1014
  { Removes a license from the license file  }
 
1015
     isc_action_svc_remove_license = 10;
 
1016
  { Retrieves database statistics  }
 
1017
     isc_action_svc_db_stats = 11;
 
1018
  { Retrieves the InterBase log file from the server  }
 
1019
     isc_action_svc_get_ib_log = 12;
 
1020
  {
 
1021
     Service information items
 
1022
                                }
 
1023
  { Retrieves the number of attachments and databases  }
 
1024
     isc_info_svc_svr_db_info = 50;
 
1025
  { Retrieves all license keys and IDs from the license file  }
 
1026
     isc_info_svc_get_license = 51;
 
1027
  { Retrieves a bitmask representing licensed options on the server  }
 
1028
     isc_info_svc_get_license_mask = 52;
 
1029
  { Retrieves the parameters and values for IB_CONFIG  }
 
1030
     isc_info_svc_get_config = 53;
 
1031
  { Retrieves the version of the services manager  }
 
1032
     isc_info_svc_version = 54;
 
1033
  { Retrieves the version of the InterBase server  }
 
1034
     isc_info_svc_server_version = 55;
 
1035
  { Retrieves the implementation of the InterBase server  }
 
1036
     isc_info_svc_implementation = 56;
 
1037
  { Retrieves a bitmask representing the server's capabilities  }
 
1038
     isc_info_svc_capabilities = 57;
 
1039
  { Retrieves the path to the security database in use by the server  }
 
1040
     isc_info_svc_user_dbpath = 58;
 
1041
  { Retrieves the setting of $INTERBASE  }
 
1042
     isc_info_svc_get_env = 59;
 
1043
  { Retrieves the setting of $INTERBASE_LCK  }
 
1044
     isc_info_svc_get_env_lock = 60;
 
1045
  { Retrieves the setting of $INTERBASE_MSG  }
 
1046
     isc_info_svc_get_env_msg = 61;
 
1047
  { Retrieves 1 line of service output per call  }
 
1048
     isc_info_svc_line = 62;
 
1049
  { Retrieves as much of the server output as will fit in the supplied buffer  }
 
1050
     isc_info_svc_to_eof = 63;
 
1051
  { Sets / signifies a timeout value for reading service information  }
 
1052
     isc_info_svc_timeout = 64;
 
1053
  { Retrieves the number of users licensed for accessing the server  }
 
1054
     isc_info_svc_get_licensed_users = 65;
 
1055
  { Retrieve the limbo transactions  }
 
1056
     isc_info_svc_limbo_trans = 66;
 
1057
  { Checks to see if a service is running on an attachment  }
 
1058
     isc_info_svc_running = 67;
 
1059
  { Returns the user information from isc_action_svc_display_users  }
 
1060
     isc_info_svc_get_users = 68;
 
1061
  {
 
1062
     Parameters for isc_action_(add|delete|modify)_user
 
1063
   }
 
1064
     isc_spb_sec_userid = 5;
 
1065
     isc_spb_sec_groupid = 6;
 
1066
     isc_spb_sec_username = 7;
 
1067
     isc_spb_sec_password = 8;
 
1068
     isc_spb_sec_groupname = 9;
 
1069
     isc_spb_sec_firstname = 10;
 
1070
     isc_spb_sec_middlename = 11;
 
1071
     isc_spb_sec_lastname = 12;
 
1072
  {
 
1073
     Parameters for isc_action_svc_(add|remove)_license,
 
1074
     isc_info_svc_get_license
 
1075
                                                          }
 
1076
     isc_spb_lic_key = 5;
 
1077
     isc_spb_lic_id = 6;
 
1078
     isc_spb_lic_desc = 7;
 
1079
  {
 
1080
     Parameters for isc_action_svc_backup
 
1081
                                            }
 
1082
     isc_spb_bkp_file = 5;
 
1083
     isc_spb_bkp_factor = 6;
 
1084
     isc_spb_bkp_length = 7;
 
1085
     isc_spb_bkp_ignore_checksums = $01;
 
1086
     isc_spb_bkp_ignore_limbo = $02;
 
1087
     isc_spb_bkp_metadata_only = $04;
 
1088
     isc_spb_bkp_no_garbage_collect = $08;
 
1089
     isc_spb_bkp_old_descriptions = $10;
 
1090
     isc_spb_bkp_non_transportable = $20;
 
1091
     isc_spb_bkp_convert = $40;
 
1092
     isc_spb_bkp_expand = $80;
 
1093
  {
 
1094
     Parameters for isc_action_svc_properties
 
1095
                                               }
 
1096
     isc_spb_prp_page_buffers = 5;
 
1097
     isc_spb_prp_sweep_interval = 6;
 
1098
     isc_spb_prp_shutdown_db = 7;
 
1099
     isc_spb_prp_deny_new_attachments = 9;
 
1100
     isc_spb_prp_deny_new_transactions = 10;
 
1101
     isc_spb_prp_reserve_space = 11;
 
1102
     isc_spb_prp_write_mode = 12;
 
1103
     isc_spb_prp_access_mode = 13;
 
1104
     isc_spb_prp_set_sql_dialect = 14;
 
1105
     isc_spb_prp_activate = $0100;
 
1106
     isc_spb_prp_db_online = $0200;
 
1107
  {
 
1108
     Parameters for isc_spb_prp_reserve_space
 
1109
                                               }
 
1110
     isc_spb_prp_res_use_full = 35;
 
1111
     isc_spb_prp_res = 36;
 
1112
  {
 
1113
     Parameters for isc_spb_prp_write_mode
 
1114
                                             }
 
1115
     isc_spb_prp_wm_async = 37;
 
1116
     isc_spb_prp_wm_sync = 38;
 
1117
  {
 
1118
     Parameters for isc_spb_prp_access_mode
 
1119
                                             }
 
1120
     isc_spb_prp_am_readonly = 39;
 
1121
     isc_spb_prp_am_readwrite = 40;
 
1122
  {
 
1123
     Parameters for isc_action_svc_repair
 
1124
                                            }
 
1125
     isc_spb_rpr_commit_trans = 15;
 
1126
     isc_spb_rpr_rollback_trans = 34;
 
1127
     isc_spb_rpr_recover_two_phase = 17;
 
1128
     isc_spb_tra_id = 18;
 
1129
     isc_spb_single_tra_id = 19;
 
1130
     isc_spb_multi_tra_id = 20;
 
1131
     isc_spb_tra_state = 21;
 
1132
     isc_spb_tra_state_limbo = 22;
 
1133
     isc_spb_tra_state_commit = 23;
 
1134
     isc_spb_tra_state_rollback = 24;
 
1135
     isc_spb_tra_state_unknown = 25;
 
1136
     isc_spb_tra_host_site = 26;
 
1137
     isc_spb_tra_remote_site = 27;
 
1138
     isc_spb_tra_db_path = 28;
 
1139
     isc_spb_tra_advise = 29;
 
1140
     isc_spb_tra_advise_commit = 30;
 
1141
     isc_spb_tra_advise_rollback = 31;
 
1142
     isc_spb_tra_advise_unknown = 33;
 
1143
     isc_spb_rpr_validate_db = $01;
 
1144
     isc_spb_rpr_sweep_db = $02;
 
1145
     isc_spb_rpr_mend_db = $04;
 
1146
     isc_spb_rpr_list_limbo_trans = $08;
 
1147
     isc_spb_rpr_check_db = $10;
 
1148
     isc_spb_rpr_ignore_checksum = $20;
 
1149
     isc_spb_rpr_kill_shadows = $40;
 
1150
     isc_spb_rpr_full = $80;
 
1151
  {
 
1152
     Parameters for isc_action_svc_restore
 
1153
                                            }
 
1154
     isc_spb_res_buffers = 9;
 
1155
     isc_spb_res_page_size = 10;
 
1156
     isc_spb_res_length = 11;
 
1157
     isc_spb_res_access_mode = 12;
 
1158
     isc_spb_res_deactivate_idx = $0100;
 
1159
     isc_spb_res_no_shadow = $0200;
 
1160
     isc_spb_res_no_validity = $0400;
 
1161
     isc_spb_res_one_at_a_time = $0800;
 
1162
     isc_spb_res_replace = $1000;
 
1163
     isc_spb_res_create = $2000;
 
1164
     isc_spb_res_use_all_space = $4000;
 
1165
  {
 
1166
     Parameters for isc_spb_res_access_mode
 
1167
                                             }
 
1168
     isc_spb_res_am_readonly = isc_spb_prp_am_readonly;
 
1169
     isc_spb_res_am_readwrite = isc_spb_prp_am_readwrite;
 
1170
  {
 
1171
     Parameters for isc_info_svc_svr_db_info
 
1172
                                              }
 
1173
     isc_spb_num_att = 5;
 
1174
     isc_spb_num_db = 6;
 
1175
  {
 
1176
     Parameters for isc_info_svc_db_stats
 
1177
                                            }
 
1178
     isc_spb_sts_data_pages = $01;
 
1179
     isc_spb_sts_db_log = $02;
 
1180
     isc_spb_sts_hdr_pages = $04;
 
1181
     isc_spb_sts_idx_pages = $08;
 
1182
     isc_spb_sts_sys_relations = $10;
 
1183
  {                        }
 
1184
  { SQL information items  }
 
1185
  {                        }
 
1186
     isc_info_sql_select = 4;
 
1187
     isc_info_sql_bind = 5;
 
1188
     isc_info_sql_num_variables = 6;
 
1189
     isc_info_sql_describe_vars = 7;
 
1190
     isc_info_sql_describe_end = 8;
 
1191
     isc_info_sql_sqlda_seq = 9;
 
1192
     isc_info_sql_message_seq = 10;
 
1193
     isc_info_sql_type = 11;
 
1194
     isc_info_sql_sub_type = 12;
 
1195
     isc_info_sql_scale = 13;
 
1196
     isc_info_sql_length = 14;
 
1197
     isc_info_sql_null_ind = 15;
 
1198
     isc_info_sql_field = 16;
 
1199
     isc_info_sql_relation = 17;
 
1200
     isc_info_sql_owner = 18;
 
1201
     isc_info_sql_alias = 19;
 
1202
     isc_info_sql_sqlda_start = 20;
 
1203
     isc_info_sql_stmt_type = 21;
 
1204
     isc_info_sql_get_plan = 22;
 
1205
     isc_info_sql_records = 23;
 
1206
     isc_info_sql_batch_fetch = 24;
 
1207
  {                                }
 
1208
  { SQL information return values  }
 
1209
  {                                }
 
1210
     isc_info_sql_stmt_select = 1;
 
1211
     isc_info_sql_stmt_insert = 2;
 
1212
     isc_info_sql_stmt_update = 3;
 
1213
     isc_info_sql_stmt_delete = 4;
 
1214
     isc_info_sql_stmt_ddl = 5;
 
1215
     isc_info_sql_stmt_get_segment = 6;
 
1216
     isc_info_sql_stmt_put_segment = 7;
 
1217
     isc_info_sql_stmt_exec_procedure = 8;
 
1218
     isc_info_sql_stmt_start_trans = 9;
 
1219
     isc_info_sql_stmt_commit = 10;
 
1220
     isc_info_sql_stmt_rollback = 11;
 
1221
     isc_info_sql_stmt_select_for_upd = 12;
 
1222
     isc_info_sql_stmt_set_generator = 13;
 
1223
  {                                  }
 
1224
  { Server configuration key values  }
 
1225
  {                                  }
 
1226
     ISCCFG_LOCKMEM_KEY = 0;
 
1227
     ISCCFG_LOCKSEM_KEY = 1;
 
1228
     ISCCFG_LOCKSIG_KEY = 2;
 
1229
     ISCCFG_EVNTMEM_KEY = 3;
 
1230
     ISCCFG_DBCACHE_KEY = 4;
 
1231
     ISCCFG_PRIORITY_KEY = 5;
 
1232
     ISCCFG_IPCMAP_KEY = 6;
 
1233
     ISCCFG_MEMMIN_KEY = 7;
 
1234
     ISCCFG_MEMMAX_KEY = 8;
 
1235
     ISCCFG_LOCKORDER_KEY = 9;
 
1236
     ISCCFG_ANYLOCKMEM_KEY = 10;
 
1237
     ISCCFG_ANYLOCKSEM_KEY = 11;
 
1238
     ISCCFG_ANYLOCKSIG_KEY = 12;
 
1239
     ISCCFG_ANYEVNTMEM_KEY = 13;
 
1240
     ISCCFG_LOCKHASH_KEY = 14;
 
1241
     ISCCFG_DEADLOCK_KEY = 15;
 
1242
     ISCCFG_LOCKSPIN_KEY = 16;
 
1243
     ISCCFG_CONN_TIMEOUT_KEY = 17;
 
1244
     ISCCFG_DUMMY_INTRVL_KEY = 18;
 
1245
  { Internal Use only  }
 
1246
     ISCCFG_TRACE_POOLS_KEY = 19;
 
1247
     ISCCFG_REMOTE_BUFFER_KEY = 20;
 
1248
  {              }
 
1249
  { Error codes  }
 
1250
  {              }
 
1251
     isc_facility = 20;
 
1252
     isc_err_base = 335544320;
 
1253
     isc_err_factor = 1;
 
1254
     isc_arg_end = 0;
 
1255
     isc_arg_gds = 1;
 
1256
     isc_arg_string = 2;
 
1257
     isc_arg_cstring = 3;
 
1258
     isc_arg_number = 4;
 
1259
     isc_arg_interpreted = 5;
 
1260
     isc_arg_vms = 6;
 
1261
     isc_arg_unix = 7;
 
1262
     isc_arg_domain = 8;
 
1263
     isc_arg_dos = 9;
 
1264
     isc_arg_mpexl = 10;
 
1265
     isc_arg_mpexl_ipc = 11;
 
1266
     isc_arg_next_mach = 15;
 
1267
     isc_arg_netware = 16;
 
1268
     isc_arg_win32 = 17;
 
1269
     isc_arg_warning = 18;
 
1270
 
 
1271
  {                                             }
 
1272
  { Dynamic Data Definition Language operators  }
 
1273
  {                                             }
 
1274
  {                 }
 
1275
  { Version number  }
 
1276
  {                 }
 
1277
 
 
1278
  const
 
1279
     isc_dyn_version_1 = 1;
 
1280
     isc_dyn_eoc = 255;
 
1281
  {                             }
 
1282
  { Operations (may be nested)  }
 
1283
  {                             }
 
1284
     isc_dyn_begin = 2;
 
1285
     isc_dyn_end = 3;
 
1286
     isc_dyn_if = 4;
 
1287
     isc_dyn_def_database = 5;
 
1288
     isc_dyn_def_global_fld = 6;
 
1289
     isc_dyn_def_local_fld = 7;
 
1290
     isc_dyn_def_idx = 8;
 
1291
     isc_dyn_def_rel = 9;
 
1292
     isc_dyn_def_sql_fld = 10;
 
1293
     isc_dyn_def_view = 12;
 
1294
     isc_dyn_def_trigger = 15;
 
1295
     isc_dyn_def_security_class = 120;
 
1296
     isc_dyn_def_dimension = 140;
 
1297
     isc_dyn_def_generator = 24;
 
1298
     isc_dyn_def_function = 25;
 
1299
     isc_dyn_def_filter = 26;
 
1300
     isc_dyn_def_function_arg = 27;
 
1301
     isc_dyn_def_shadow = 34;
 
1302
     isc_dyn_def_trigger_msg = 17;
 
1303
     isc_dyn_def_file = 36;
 
1304
     isc_dyn_mod_database = 39;
 
1305
     isc_dyn_mod_rel = 11;
 
1306
     isc_dyn_mod_global_fld = 13;
 
1307
     isc_dyn_mod_idx = 102;
 
1308
     isc_dyn_mod_local_fld = 14;
 
1309
     isc_dyn_mod_sql_fld = 216;
 
1310
     isc_dyn_mod_view = 16;
 
1311
     isc_dyn_mod_security_class = 122;
 
1312
     isc_dyn_mod_trigger = 113;
 
1313
     isc_dyn_mod_trigger_msg = 28;
 
1314
     isc_dyn_delete_database = 18;
 
1315
     isc_dyn_delete_rel = 19;
 
1316
     isc_dyn_delete_global_fld = 20;
 
1317
     isc_dyn_delete_local_fld = 21;
 
1318
     isc_dyn_delete_idx = 22;
 
1319
     isc_dyn_delete_security_class = 123;
 
1320
     isc_dyn_delete_dimensions = 143;
 
1321
     isc_dyn_delete_trigger = 23;
 
1322
     isc_dyn_delete_trigger_msg = 29;
 
1323
     isc_dyn_delete_filter = 32;
 
1324
     isc_dyn_delete_function = 33;
 
1325
     isc_dyn_delete_shadow = 35;
 
1326
     isc_dyn_grant = 30;
 
1327
     isc_dyn_revoke = 31;
 
1328
     isc_dyn_def_primary_key = 37;
 
1329
     isc_dyn_def_foreign_key = 38;
 
1330
     isc_dyn_def_unique = 40;
 
1331
     isc_dyn_def_procedure = 164;
 
1332
     isc_dyn_delete_procedure = 165;
 
1333
     isc_dyn_def_parameter = 135;
 
1334
     isc_dyn_delete_parameter = 136;
 
1335
     isc_dyn_mod_procedure = 175;
 
1336
     isc_dyn_def_log_file = 176;
 
1337
     isc_dyn_def_cache_file = 180;
 
1338
     isc_dyn_def_exception = 181;
 
1339
     isc_dyn_mod_exception = 182;
 
1340
     isc_dyn_del_exception = 183;
 
1341
     isc_dyn_drop_log = 194;
 
1342
     isc_dyn_drop_cache = 195;
 
1343
     isc_dyn_def_default_log = 202;
 
1344
  {                      }
 
1345
  { View specific stuff  }
 
1346
  {                      }
 
1347
     isc_dyn_view_blr = 43;
 
1348
     isc_dyn_view_source = 44;
 
1349
     isc_dyn_view_relation = 45;
 
1350
     isc_dyn_view_context = 46;
 
1351
     isc_dyn_view_context_name = 47;
 
1352
  {                     }
 
1353
  { Generic attributes  }
 
1354
  {                     }
 
1355
     isc_dyn_rel_name = 50;
 
1356
     isc_dyn_fld_name = 51;
 
1357
     isc_dyn_new_fld_name = 215;
 
1358
     isc_dyn_idx_name = 52;
 
1359
     isc_dyn_description = 53;
 
1360
     isc_dyn_security_class = 54;
 
1361
     isc_dyn_system_flag = 55;
 
1362
     isc_dyn_update_flag = 56;
 
1363
     isc_dyn_prc_name = 166;
 
1364
     isc_dyn_prm_name = 137;
 
1365
     isc_dyn_sql_object = 196;
 
1366
     isc_dyn_fld_character_set_name = 174;
 
1367
  {                               }
 
1368
  { Relation specific attributes  }
 
1369
  {                               }
 
1370
     isc_dyn_rel_dbkey_length = 61;
 
1371
     isc_dyn_rel_store_trig = 62;
 
1372
     isc_dyn_rel_modify_trig = 63;
 
1373
     isc_dyn_rel_erase_trig = 64;
 
1374
     isc_dyn_rel_store_trig_source = 65;
 
1375
     isc_dyn_rel_modify_trig_source = 66;
 
1376
     isc_dyn_rel_erase_trig_source = 67;
 
1377
     isc_dyn_rel_ext_file = 68;
 
1378
     isc_dyn_rel_sql_protection = 69;
 
1379
     isc_dyn_rel_constraint = 162;
 
1380
     isc_dyn_delete_rel_constraint = 163;
 
1381
  {                                   }
 
1382
  { Global field specific attributes  }
 
1383
  {                                   }
 
1384
     isc_dyn_fld_type = 70;
 
1385
     isc_dyn_fld_length = 71;
 
1386
     isc_dyn_fld_scale = 72;
 
1387
     isc_dyn_fld_sub_type = 73;
 
1388
     isc_dyn_fld_segment_length = 74;
 
1389
     isc_dyn_fld_query_header = 75;
 
1390
     isc_dyn_fld_edit_string = 76;
 
1391
     isc_dyn_fld_validation_blr = 77;
 
1392
     isc_dyn_fld_validation_source = 78;
 
1393
     isc_dyn_fld_computed_blr = 79;
 
1394
     isc_dyn_fld_computed_source = 80;
 
1395
     isc_dyn_fld_missing_value = 81;
 
1396
     isc_dyn_fld_default_value = 82;
 
1397
     isc_dyn_fld_query_name = 83;
 
1398
     isc_dyn_fld_dimensions = 84;
 
1399
     isc_dyn_fld_not_null = 85;
 
1400
     isc_dyn_fld_precision = 86;
 
1401
     isc_dyn_fld_char_length = 172;
 
1402
     isc_dyn_fld_collation = 173;
 
1403
     isc_dyn_fld_default_source = 193;
 
1404
     isc_dyn_del_default = 197;
 
1405
     isc_dyn_del_validation = 198;
 
1406
     isc_dyn_single_validation = 199;
 
1407
     isc_dyn_fld_character_set = 203;
 
1408
  {                                  }
 
1409
  { Local field specific attributes  }
 
1410
  {                                  }
 
1411
     isc_dyn_fld_source = 90;
 
1412
     isc_dyn_fld_base_fld = 91;
 
1413
     isc_dyn_fld_position = 92;
 
1414
     isc_dyn_fld_update_flag = 93;
 
1415
  {                            }
 
1416
  { Index specific attributes  }
 
1417
  {                            }
 
1418
     isc_dyn_idx_unique = 100;
 
1419
     isc_dyn_idx_inactive = 101;
 
1420
     isc_dyn_idx_type = 103;
 
1421
     isc_dyn_idx_foreign_key = 104;
 
1422
     isc_dyn_idx_ref_column = 105;
 
1423
     isc_dyn_idx_statistic = 204;
 
1424
  {                              }
 
1425
  { Trigger specific attributes  }
 
1426
  {                              }
 
1427
     isc_dyn_trg_type = 110;
 
1428
     isc_dyn_trg_blr = 111;
 
1429
     isc_dyn_trg_source = 112;
 
1430
     isc_dyn_trg_name = 114;
 
1431
     isc_dyn_trg_sequence = 115;
 
1432
     isc_dyn_trg_inactive = 116;
 
1433
     isc_dyn_trg_msg_number = 117;
 
1434
     isc_dyn_trg_msg = 118;
 
1435
  {                                     }
 
1436
  { Security Class specific attributes  }
 
1437
  {                                     }
 
1438
     isc_dyn_scl_acl = 121;
 
1439
     isc_dyn_grant_user = 130;
 
1440
     isc_dyn_grant_proc = 186;
 
1441
     isc_dyn_grant_trig = 187;
 
1442
     isc_dyn_grant_view = 188;
 
1443
     isc_dyn_grant_options = 132;
 
1444
     isc_dyn_grant_user_group = 205;
 
1445
  {                                 }
 
1446
  { Dimension specific information  }
 
1447
  {                                 }
 
1448
     isc_dyn_dim_lower = 141;
 
1449
     isc_dyn_dim_upper = 142;
 
1450
  {                           }
 
1451
  { File specific attributes  }
 
1452
  {                           }
 
1453
     isc_dyn_file_name = 125;
 
1454
     isc_dyn_file_start = 126;
 
1455
     isc_dyn_file_length = 127;
 
1456
     isc_dyn_shadow_number = 128;
 
1457
     isc_dyn_shadow_man_auto = 129;
 
1458
     isc_dyn_shadow_conditional = 130;
 
1459
  {                               }
 
1460
  { Log file specific attributes  }
 
1461
  {                               }
 
1462
     isc_dyn_log_file_sequence = 177;
 
1463
     isc_dyn_log_file_partitions = 178;
 
1464
     isc_dyn_log_file_serial = 179;
 
1465
     isc_dyn_log_file_overflow = 200;
 
1466
     isc_dyn_log_file_raw = 201;
 
1467
  {                          }
 
1468
  { Log specific attributes  }
 
1469
  {                          }
 
1470
     isc_dyn_log_group_commit_wait = 189;
 
1471
     isc_dyn_log_buffer_size = 190;
 
1472
     isc_dyn_log_check_point_length = 191;
 
1473
     isc_dyn_log_num_of_buffers = 192;
 
1474
  {                               }
 
1475
  { Function specific attributes  }
 
1476
  {                               }
 
1477
     isc_dyn_function_name = 145;
 
1478
     isc_dyn_function_type = 146;
 
1479
     isc_dyn_func_module_name = 147;
 
1480
     isc_dyn_func_entry_point = 148;
 
1481
     isc_dyn_func_return_argument = 149;
 
1482
     isc_dyn_func_arg_position = 150;
 
1483
     isc_dyn_func_mechanism = 151;
 
1484
     isc_dyn_filter_in_subtype = 152;
 
1485
     isc_dyn_filter_out_subtype = 153;
 
1486
     isc_dyn_description2 = 154;
 
1487
     isc_dyn_fld_computed_source2 = 155;
 
1488
     isc_dyn_fld_edit_string2 = 156;
 
1489
     isc_dyn_fld_query_header2 = 157;
 
1490
     isc_dyn_fld_validation_source2 = 158;
 
1491
     isc_dyn_trg_msg2 = 159;
 
1492
     isc_dyn_trg_source2 = 160;
 
1493
     isc_dyn_view_source2 = 161;
 
1494
     isc_dyn_xcp_msg2 = 184;
 
1495
  {                                }
 
1496
  { Generator specific attributes  }
 
1497
  {                                }
 
1498
     isc_dyn_generator_name = 95;
 
1499
     isc_dyn_generator_id = 96;
 
1500
  {                                }
 
1501
  { Procedure specific attributes  }
 
1502
  {                                }
 
1503
     isc_dyn_prc_inputs = 167;
 
1504
     isc_dyn_prc_outputs = 168;
 
1505
     isc_dyn_prc_source = 169;
 
1506
     isc_dyn_prc_blr = 170;
 
1507
     isc_dyn_prc_source2 = 171;
 
1508
  {                                }
 
1509
  { Parameter specific attributes  }
 
1510
  {                                }
 
1511
     isc_dyn_prm_number = 138;
 
1512
     isc_dyn_prm_type = 139;
 
1513
  {                               }
 
1514
  { Relation specific attributes  }
 
1515
  {                               }
 
1516
     isc_dyn_xcp_msg = 185;
 
1517
  {                                             }
 
1518
  { Cascading referential integrity values      }
 
1519
  {                                             }
 
1520
     isc_dyn_foreign_key_update = 205;
 
1521
     isc_dyn_foreign_key_delete = 206;
 
1522
     isc_dyn_foreign_key_cascade = 207;
 
1523
     isc_dyn_foreign_key_default = 208;
 
1524
     isc_dyn_foreign_key_null = 209;
 
1525
     isc_dyn_foreign_key_none = 210;
 
1526
  {                      }
 
1527
  { SQL role values      }
 
1528
  {                      }
 
1529
     isc_dyn_def_sql_role = 211;
 
1530
     isc_dyn_sql_role_name = 212;
 
1531
     isc_dyn_grant_admin_options = 213;
 
1532
     isc_dyn_del_sql_role = 214;
 
1533
  {                           }
 
1534
  { Last $dyn value assigned  }
 
1535
  {                           }
 
1536
     isc_dyn_last_dyn_value = 216;
 
1537
  {                                         }
 
1538
  { Array slice description language (SDL)  }
 
1539
  {                                         }
 
1540
     isc_sdl_version1 = 1;
 
1541
     isc_sdl_eoc = 255;
 
1542
     isc_sdl_relation = 2;
 
1543
     isc_sdl_rid = 3;
 
1544
     isc_sdl_field = 4;
 
1545
     isc_sdl_fid = 5;
 
1546
     isc_sdl_struct = 6;
 
1547
     isc_sdl_variable = 7;
 
1548
     isc_sdl_scalar = 8;
 
1549
     isc_sdl_tiny_integer = 9;
 
1550
     isc_sdl_short_integer = 10;
 
1551
     isc_sdl_long_integer = 11;
 
1552
     isc_sdl_literal = 12;
 
1553
     isc_sdl_add = 13;
 
1554
     isc_sdl_subtract = 14;
 
1555
     isc_sdl_multiply = 15;
 
1556
     isc_sdl_divide = 16;
 
1557
     isc_sdl_negate = 17;
 
1558
     isc_sdl_eql = 18;
 
1559
     isc_sdl_neq = 19;
 
1560
     isc_sdl_gtr = 20;
 
1561
     isc_sdl_geq = 21;
 
1562
     isc_sdl_lss = 22;
 
1563
     isc_sdl_leq = 23;
 
1564
     isc_sdl_and = 24;
 
1565
     isc_sdl_or = 25;
 
1566
     isc_sdl_not = 26;
 
1567
     isc_sdl_while = 27;
 
1568
     isc_sdl_assignment = 28;
 
1569
     isc_sdl_label = 29;
 
1570
     isc_sdl_leave = 30;
 
1571
     isc_sdl_begin = 31;
 
1572
     isc_sdl_end = 32;
 
1573
     isc_sdl_do3 = 33;
 
1574
     isc_sdl_do2 = 34;
 
1575
     isc_sdl_do1 = 35;
 
1576
     isc_sdl_element = 36;
 
1577
  {                                           }
 
1578
  { International text interpretation values  }
 
1579
  {                                           }
 
1580
     isc_interp_eng_ascii = 0;
 
1581
     isc_interp_jpn_sjis = 5;
 
1582
     isc_interp_jpn_euc = 6;
 
1583
  {                  }
 
1584
  { SQL definitions  }
 
1585
  {                  }
 
1586
     SQL_TEXT = 452;
 
1587
     SQL_VARYING = 448;
 
1588
     SQL_SHORT = 500;
 
1589
     SQL_LONG = 496;
 
1590
     SQL_FLOAT = 482;
 
1591
     SQL_DOUBLE = 480;
 
1592
     SQL_D_FLOAT = 530;
 
1593
     SQL_TIMESTAMP = 510;
 
1594
     SQL_BLOB = 520;
 
1595
     SQL_ARRAY = 540;
 
1596
     SQL_QUAD = 550;
 
1597
     SQL_TYPE_TIME = 560;
 
1598
     SQL_TYPE_DATE = 570;
 
1599
     SQL_INT64 = 580;
 
1600
  { Historical alias for pre V6 applications  }
 
1601
     SQL_DATE = SQL_TIMESTAMP;
 
1602
  {                }
 
1603
  { Blob Subtypes  }
 
1604
  {                }
 
1605
  { types less than zero are reserved for customer use  }
 
1606
     isc_blob_untyped = 0;
 
1607
  { internal subtypes  }
 
1608
     isc_blob_text = 1;
 
1609
     isc_blob_blr = 2;
 
1610
     isc_blob_acl = 3;
 
1611
     isc_blob_ranges = 4;
 
1612
     isc_blob_summary = 5;
 
1613
     isc_blob_format = 6;
 
1614
     isc_blob_tra = 7;
 
1615
     isc_blob_extfile = 8;
 
1616
  { the range 20-30 is reserved for dBASE and Paradox types  }
 
1617
     isc_blob_formatted_memo = 20;
 
1618
     isc_blob_paradox_ole = 21;
 
1619
     isc_blob_graphic = 22;
 
1620
     isc_blob_dbase_ole = 23;
 
1621
     isc_blob_typed_binary = 24;
 
1622
 
 
1623
{$IFNDEF LinkDynamically}
 
1624
 
 
1625
  {                          }
 
1626
  { OSRI database functions  }
 
1627
  {                          }
 
1628
 
 
1629
  function isc_attach_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;
 
1630
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1631
 
 
1632
  function isc_array_gen_sdl(_para1:PISC_STATUS; _para2:PISC_ARRAY_DESC; _para3:Psmallint; _para4:Pchar; _para5:Psmallint):ISC_STATUS; extdecl; external gdslib;
 
1633
 
 
1634
  function isc_array_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;
 
1635
             _para6:pointer; _para7:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
1636
 
 
1637
  function isc_array_lookup_bounds(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;
 
1638
             _para6:PISC_ARRAY_DESC):ISC_STATUS; extdecl; external gdslib;
 
1639
 
 
1640
  function isc_array_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;
 
1641
             _para6:PISC_ARRAY_DESC):ISC_STATUS; extdecl; external gdslib;
 
1642
 
 
1643
  function isc_array_set_desc(_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar; _para4:Psmallint; _para5:Psmallint;
 
1644
             _para6:Psmallint; _para7:PISC_ARRAY_DESC):ISC_STATUS; extdecl; external gdslib;
 
1645
 
 
1646
  function isc_array_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;
 
1647
             _para6:pointer; _para7:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
1648
 
 
1649
  procedure isc_blob_default_desc(_para1:PISC_BLOB_DESC; _para2:Pbyte; _para3:Pbyte); extdecl; external gdslib;
 
1650
 
 
1651
  function isc_blob_gen_bpb(_para1:PISC_STATUS; _para2:PISC_BLOB_DESC; _para3:PISC_BLOB_DESC; _para4:word; _para5:Pbyte;
 
1652
             _para6:Pword):ISC_STATUS; extdecl; external gdslib;
 
1653
 
 
1654
  function isc_blob_info(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
 
1655
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1656
 
 
1657
  function isc_blob_lookup_desc(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pbyte; _para5:Pbyte;
 
1658
             _para6:PISC_BLOB_DESC; _para7:Pbyte):ISC_STATUS; extdecl; external gdslib;
 
1659
 
 
1660
  function isc_blob_set_desc(_para1:PISC_STATUS; _para2:Pbyte; _para3:Pbyte; _para4:smallint; _para5:smallint;
 
1661
             _para6:smallint; _para7:PISC_BLOB_DESC):ISC_STATUS; extdecl; external gdslib;
 
1662
 
 
1663
  function isc_cancel_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; extdecl; external gdslib;
 
1664
 
 
1665
  function isc_cancel_events(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
1666
 
 
1667
  function isc_close_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; extdecl; external gdslib;
 
1668
 
 
1669
  function isc_commit_retaining(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl; external gdslib;
 
1670
 
 
1671
  function isc_commit_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl; external gdslib;
 
1672
 
 
1673
  function isc_create_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; extdecl; external gdslib;
 
1674
 
 
1675
  function isc_create_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;
 
1676
             _para6:smallint; _para7:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1677
 
 
1678
  function isc_create_database(_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;
 
1679
             _para6:Pchar; _para7:smallint):ISC_STATUS; extdecl; external gdslib;
 
1680
 
 
1681
  function isc_database_info(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
 
1682
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1683
 
 
1684
  procedure isc_decode_date(_para1:PISC_QUAD; _para2:pointer); extdecl; external gdslib;
 
1685
 
 
1686
  procedure isc_decode_sql_date(_para1:PISC_DATE; _para2:pointer); extdecl; external gdslib;
 
1687
 
 
1688
  procedure isc_decode_sql_time(_para1:PISC_TIME; _para2:pointer); extdecl; external gdslib;
 
1689
 
 
1690
  procedure isc_decode_timestamp(_para1:PISC_TIMESTAMP; _para2:pointer); extdecl; external gdslib;
 
1691
 
 
1692
  function isc_detach_database(_para1:PISC_STATUS; _para2:Pisc_db_handle):ISC_STATUS; extdecl; external gdslib;
 
1693
 
 
1694
  function isc_drop_database(_para1:PISC_STATUS; _para2:Pisc_db_handle):ISC_STATUS; extdecl; external gdslib;
 
1695
 
 
1696
  function isc_dsql_allocate_statement(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_stmt_handle):ISC_STATUS; extdecl; external gdslib;
 
1697
 
 
1698
  function isc_dsql_alloc_statement2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_stmt_handle):ISC_STATUS; extdecl; external gdslib;
 
1699
 
 
1700
  function isc_dsql_describe(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1701
 
 
1702
  function isc_dsql_describe_bind(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1703
 
 
1704
  function isc_dsql_exec_immed2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1705
             _para6:word; _para7:PXSQLDA; _para8:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1706
 
 
1707
  function isc_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1708
 
 
1709
  function isc_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA;
 
1710
             _para6:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1711
 
 
1712
  function isc_dsql_execute_immediate(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1713
             _para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1714
 
 
1715
  function isc_dsql_fetch(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1716
 
 
1717
  function isc_dsql_finish(_para1:Pisc_db_handle):ISC_STATUS; extdecl; external gdslib;
 
1718
 
 
1719
  function isc_dsql_free_statement(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word):ISC_STATUS; extdecl; external gdslib;
 
1720
 
 
1721
  function isc_dsql_insert(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1722
 
 
1723
  function isc_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
 
1724
             _para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1725
 
 
1726
  function isc_dsql_set_cursor_name(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:Pchar; _para4:word):ISC_STATUS; extdecl; external gdslib;
 
1727
 
 
1728
  function isc_dsql_sql_info(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
 
1729
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1730
 
 
1731
  procedure isc_encode_date(_para1:pointer; _para2:PISC_QUAD); extdecl; external gdslib;
 
1732
 
 
1733
  procedure isc_encode_sql_date(_para1:pointer; _para2:PISC_DATE); extdecl; external gdslib;
 
1734
 
 
1735
  procedure isc_encode_sql_time(_para1:pointer; _para2:PISC_TIME); extdecl; external gdslib;
 
1736
 
 
1737
  procedure isc_encode_timestamp(_para1:pointer; _para2:PISC_TIMESTAMP); extdecl; external gdslib;
 
1738
 
 
1739
  function isc_event_block(_para1:PPchar; _para2:PPchar; _para3:word; args:array of const):ISC_LONG; cdecl; external gdslib;
 
1740
 
 
1741
  {!!MVC
 
1742
  void         isc_event_counts (unsigned ISC_LONG   ,
 
1743
                                         short,
 
1744
                                         char   ,
 
1745
                                         char   ); extdecl; external gdslib;
 
1746
  !!MVC }
 
1747
  procedure isc_expand_dpb(_para1:PPchar; _para2:Psmallint; args:array of const); cdecl; external gdslib;
 
1748
 
 
1749
  function isc_modify_dpb(_para1:PPchar; _para2:Psmallint; _para3:word; _para4:Pchar; _para5:smallint):longint; extdecl; external gdslib;
 
1750
 
 
1751
  function isc_free(_para1:Pchar):ISC_LONG; extdecl; external gdslib;
 
1752
 
 
1753
  function isc_get_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:Pword; _para4:word; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1754
 
 
1755
  function isc_get_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;
 
1756
             _para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer;
 
1757
             _para11:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
1758
 
 
1759
  function isc_interprete(_para1:Pchar; _para2:PPISC_STATUS):ISC_STATUS; extdecl; external gdslib;
 
1760
 
 
1761
  function isc_open_blob(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; extdecl; external gdslib;
 
1762
 
 
1763
  function isc_open_blob2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;
 
1764
             _para6:smallint; _para7:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1765
 
 
1766
  function isc_prepare_transaction2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1767
 
 
1768
  procedure isc_print_sqlerror(_para1:smallint; _para2:PISC_STATUS); extdecl; external gdslib;
 
1769
 
 
1770
  function isc_print_status(_para1:PISC_STATUS):ISC_STATUS; extdecl; external gdslib;
 
1771
 
 
1772
  function isc_put_segment(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:word; _para4:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1773
 
 
1774
  function isc_put_slice(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;
 
1775
             _para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer):ISC_STATUS; extdecl; external gdslib;
 
1776
 
 
1777
  function isc_que_events(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG; _para4:smallint; _para5:Pchar;
 
1778
             _para6:isc_callback; _para7:pointer):ISC_STATUS; extdecl; external gdslib;
 
1779
 
 
1780
  function isc_rollback_retaining(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl; external gdslib;
 
1781
 
 
1782
  function isc_rollback_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl; external gdslib;
 
1783
 
 
1784
  function isc_start_multiple(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:pointer):ISC_STATUS; extdecl; external gdslib;
 
1785
 
 
1786
  function isc_start_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; args:array of const):ISC_STATUS; cdecl; external gdslib;
 
1787
 
 
1788
  function isc_sqlcode(_para1:PISC_STATUS):ISC_LONG; extdecl; external gdslib;
 
1789
 
 
1790
  procedure isc_sql_interprete(_para1:smallint; _para2:Pchar; _para3:smallint); extdecl; external gdslib;
 
1791
 
 
1792
  function isc_transaction_info(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar; _para5:smallint;
 
1793
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1794
 
 
1795
  function isc_transact_request(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1796
             _para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1797
 
 
1798
  function isc_vax_integer(_para1:Pchar; _para2:smallint):ISC_LONG; extdecl; external gdslib;
 
1799
 
 
1800
  function isc_portable_integer(_para1:Pbyte; _para2:smallint):ISC_INT64; extdecl; external gdslib;
 
1801
 
 
1802
  {                                    }
 
1803
  { Security Functions                 }
 
1804
  {                                    }
 
1805
 
 
1806
 
 
1807
  function isc_add_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl; external gdslib;
 
1808
 
 
1809
  function isc_delete_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl; external gdslib;
 
1810
 
 
1811
  function isc_modify_user(_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl; external gdslib;
 
1812
 
 
1813
  {                                 }
 
1814
  {  Other OSRI functions           }
 
1815
  {                                 }
 
1816
  function isc_compile_request(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_req_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1817
 
 
1818
  function isc_compile_request2(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_req_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1819
 
 
1820
  function isc_ddl(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1821
 
 
1822
  function isc_prepare_transaction(_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl; external gdslib;
 
1823
 
 
1824
  function isc_receive(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;
 
1825
             _para6:smallint):ISC_STATUS; extdecl; external gdslib;
 
1826
 
 
1827
  function isc_reconnect_transaction(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1828
 
 
1829
  function isc_release_request(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl; external gdslib;
 
1830
 
 
1831
  function isc_request_info(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:Pchar;
 
1832
             _para6:smallint; _para7:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1833
 
 
1834
  function isc_seek_blob(_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:ISC_LONG; _para5:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
1835
 
 
1836
  function isc_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;
 
1837
             _para6:smallint):ISC_STATUS; extdecl; external gdslib;
 
1838
 
 
1839
  function isc_start_and_send(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:smallint;
 
1840
             _para6:pointer; _para7:smallint):ISC_STATUS; extdecl; external gdslib;
 
1841
 
 
1842
  function isc_start_request(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint):ISC_STATUS; extdecl; external gdslib;
 
1843
 
 
1844
  function isc_unwind_request(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint):ISC_STATUS; extdecl; external gdslib;
 
1845
 
 
1846
  function isc_wait_for_event(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1847
 
 
1848
  {                            }
 
1849
  { Other Sql functions        }
 
1850
  {                            }
 
1851
  function isc_close(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1852
 
 
1853
  function isc_declare(_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1854
 
 
1855
  function isc_describe(_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1856
 
 
1857
  function isc_describe_bind(_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1858
 
 
1859
  function isc_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1860
 
 
1861
  function isc_execute_immediate(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1862
 
 
1863
  function isc_fetch(_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1864
 
 
1865
  function isc_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1866
 
 
1867
  function isc_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Psmallint;
 
1868
             _para6:Pchar; _para7:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1869
 
 
1870
  {                                    }
 
1871
  { Other Dynamic sql functions        }
 
1872
  {                                    }
 
1873
  function isc_dsql_execute_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
 
1874
             _para6:word; _para7:word; _para8:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1875
 
 
1876
  function isc_dsql_execute2_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
 
1877
             _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar;
 
1878
             _para11:word; _para12:word; _para13:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1879
 
 
1880
  function isc_dsql_execute_immediate_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1881
             _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;
 
1882
             _para11:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1883
 
 
1884
  function isc_dsql_exec_immed3_m(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1885
             _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;
 
1886
             _para11:Pchar; _para12:word; _para13:Pchar; _para14:word; _para15:word;
 
1887
             _para16:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1888
 
 
1889
  function isc_dsql_fetch_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;
 
1890
             _para6:word; _para7:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1891
 
 
1892
  function isc_dsql_insert_m(_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;
 
1893
             _para6:word; _para7:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1894
 
 
1895
  function isc_dsql_prepare_m(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;
 
1896
             _para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1897
 
 
1898
  function isc_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1899
 
 
1900
  function isc_embed_dsql_close(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1901
 
 
1902
  function isc_embed_dsql_declare(_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1903
 
 
1904
  function isc_embed_dsql_describe(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1905
 
 
1906
  function isc_embed_dsql_describe_bind(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1907
 
 
1908
  function isc_embed_dsql_execute(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1909
 
 
1910
  function isc_embed_dsql_execute2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;
 
1911
             _para6:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1912
 
 
1913
  function isc_embed_dsql_execute_immed(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;
 
1914
             _para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1915
 
 
1916
  function isc_embed_dsql_fetch(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1917
 
 
1918
  function isc_embed_dsql_open(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1919
 
 
1920
  function isc_embed_dsql_open2(_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;
 
1921
             _para6:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1922
 
 
1923
  function isc_embed_dsql_insert(_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1924
 
 
1925
  function isc_embed_dsql_prepare(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:word;
 
1926
             _para6:Pchar; _para7:word; _para8:PXSQLDA):ISC_STATUS; extdecl; external gdslib;
 
1927
 
 
1928
  function isc_embed_dsql_release(_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1929
 
 
1930
  {                             }
 
1931
  { Other Blob functions        }
 
1932
  {                             }
 
1933
  function BLOB_open(_para1:isc_blob_handle; _para2:Pchar; _para3:longint):PBSTREAM; extdecl; external gdslib;
 
1934
 
 
1935
  function BLOB_put(_para1:char; _para2:PBSTREAM):longint; extdecl; external gdslib;
 
1936
 
 
1937
  function BLOB_close(_para1:PBSTREAM):longint; extdecl; external gdslib;
 
1938
 
 
1939
  function BLOB_get(_para1:PBSTREAM):longint; extdecl; external gdslib;
 
1940
 
 
1941
  function BLOB_display(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1942
 
 
1943
  function BLOB_dump(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1944
 
 
1945
  function BLOB_edit(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1946
 
 
1947
  function BLOB_load(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1948
 
 
1949
  function BLOB_text_dump(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1950
 
 
1951
  function BLOB_text_load(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl; external gdslib;
 
1952
 
 
1953
  function Bopen(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):PBSTREAM; extdecl; external gdslib;
 
1954
 
 
1955
{$IFDEF Unix}
 
1956
  function Bopen2(_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar; _para5:word):PBSTREAM; extdecl; external gdslib;
 
1957
{$ENDIF}
 
1958
 
 
1959
  {                             }
 
1960
  { Other Misc functions        }
 
1961
  {                             }
 
1962
  function isc_ftof(_para1:Pchar; _para2:word; _para3:Pchar; _para4:word):ISC_LONG; extdecl; external gdslib;
 
1963
 
 
1964
  function isc_print_blr(_para1:Pchar; _para2:isc_callback; _para3:pointer; _para4:smallint):ISC_STATUS; extdecl; external gdslib;
 
1965
 
 
1966
  procedure isc_set_debug(_para1:longint); extdecl; external gdslib;
 
1967
 
 
1968
  procedure isc_qtoq(_para1:PISC_QUAD; _para2:PISC_QUAD); extdecl; external gdslib;
 
1969
 
 
1970
  procedure isc_vtof(_para1:Pchar; _para2:Pchar; _para3:word); extdecl; external gdslib;
 
1971
 
 
1972
  procedure isc_vtov(_para1:Pchar; _para2:Pchar; _para3:smallint); extdecl; external gdslib;
 
1973
 
 
1974
  function isc_version(_para1:Pisc_db_handle; _para2:isc_callback; _para3:pointer):longint; extdecl; external gdslib;
 
1975
 
 
1976
{$IFDEF Unix}
 
1977
  function isc_reset_fpe(_para1:word):ISC_LONG; extdecl; external gdslib;
 
1978
{$ENDIF}
 
1979
 
 
1980
  {                                        }
 
1981
  { Service manager functions              }
 
1982
  {                                        }
 
1983
  (*!!MVC
 
1984
  #define ADD_SPB_LENGTH(p, length)     { (p)++ = (length); \
 
1985
                                          (p)++ = (length) >> 8;}
 
1986
 
 
1987
  #define ADD_SPB_NUMERIC(p, data)      { (p)++ = (data); \
 
1988
                                          (p)++ = (data) >> 8; \
 
1989
                                          (p)++ = (data) >> 16; \
 
1990
                                          (p)++ = (data) >> 24;}
 
1991
  !!MVC *)
 
1992
 
 
1993
  function isc_service_attach(_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;
 
1994
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
1995
 
 
1996
  function isc_service_detach(_para1:PISC_STATUS; _para2:Pisc_svc_handle):ISC_STATUS; extdecl; external gdslib;
 
1997
 
 
1998
  function isc_service_query(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar;
 
1999
             _para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2000
 
 
2001
  function isc_service_start(_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2002
 
 
2003
  {                              }
 
2004
  { Forms functions              }
 
2005
  {                              }
 
2006
{$IFDEF Unix}
 
2007
  function isc_compile_map(_para1:PISC_STATUS; _para2:Pisc_form_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2008
 
 
2009
  function isc_compile_menu(_para1:PISC_STATUS; _para2:Pisc_form_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2010
 
 
2011
  function isc_compile_sub_map(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2012
 
 
2013
  function isc_create_window(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Psmallint; _para4:Pchar; _para5:Psmallint;
 
2014
             _para6:Psmallint):ISC_STATUS; extdecl; external gdslib;
 
2015
 
 
2016
  function isc_delete_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl; external gdslib;
 
2017
 
 
2018
  function isc_drive_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_win_handle; _para5:Pisc_req_handle;
 
2019
             _para6:Pbyte; _para7:Pbyte):ISC_STATUS; extdecl; external gdslib;
 
2020
 
 
2021
  function isc_drive_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar;
 
2022
             _para6:Psmallint; _para7:Pchar; _para8:Psmallint; _para9:Psmallint; _para10:Pchar;
 
2023
             _para11:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
2024
 
 
2025
  function isc_form_delete(_para1:PISC_STATUS; _para2:Pisc_form_handle):ISC_STATUS; extdecl; external gdslib;
 
2026
 
 
2027
  function isc_form_fetch(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; extdecl; external gdslib;
 
2028
 
 
2029
  function isc_form_insert(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; extdecl; external gdslib;
 
2030
 
 
2031
  function isc_get_entree(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG;
 
2032
             _para6:Psmallint):ISC_STATUS; extdecl; external gdslib;
 
2033
 
 
2034
  function isc_initialize_menu(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl; external gdslib;
 
2035
 
 
2036
  function isc_menu(_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2037
 
 
2038
  function isc_load_form(_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_form_handle; _para5:Psmallint;
 
2039
             _para6:Pchar):ISC_STATUS; extdecl; external gdslib;
 
2040
 
 
2041
  function isc_pop_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl; external gdslib;
 
2042
 
 
2043
  function isc_put_entree(_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG):ISC_STATUS; extdecl; external gdslib;
 
2044
 
 
2045
  function isc_reset_form(_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl; external gdslib;
 
2046
 
 
2047
  function isc_suspend_window(_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl; external gdslib;
 
2048
{$ENDIF}
 
2049
 
 
2050
  function isc_attach_database:ISC_STATUS; extdecl; external gdslib;
 
2051
 
 
2052
  function isc_array_gen_sdl:ISC_STATUS; extdecl; external gdslib;
 
2053
 
 
2054
  function isc_array_get_slice:ISC_STATUS; extdecl; external gdslib;
 
2055
 
 
2056
  function isc_array_lookup_bounds:ISC_STATUS; extdecl; external gdslib;
 
2057
 
 
2058
  function isc_array_lookup_desc:ISC_STATUS; extdecl; external gdslib;
 
2059
 
 
2060
  function isc_array_set_desc:ISC_STATUS; extdecl; external gdslib;
 
2061
 
 
2062
  function isc_array_put_slice:ISC_STATUS; extdecl; external gdslib;
 
2063
 
 
2064
  function isc_blob_gen_bpb:ISC_STATUS; extdecl; external gdslib;
 
2065
 
 
2066
  function isc_blob_info:ISC_STATUS; extdecl; external gdslib;
 
2067
 
 
2068
  function isc_blob_lookup_desc:ISC_STATUS; extdecl; external gdslib;
 
2069
 
 
2070
  function isc_blob_set_desc:ISC_STATUS; extdecl; external gdslib;
 
2071
 
 
2072
  function isc_cancel_blob:ISC_STATUS; extdecl; external gdslib;
 
2073
 
 
2074
  function isc_cancel_events:ISC_STATUS; extdecl; external gdslib;
 
2075
 
 
2076
  function isc_close_blob:ISC_STATUS; extdecl; external gdslib;
 
2077
 
 
2078
  function isc_commit_retaining:ISC_STATUS; extdecl; external gdslib;
 
2079
 
 
2080
  function isc_commit_transaction:ISC_STATUS; extdecl; external gdslib;
 
2081
 
 
2082
  function isc_compile_request:ISC_STATUS; extdecl; external gdslib;
 
2083
 
 
2084
  function isc_compile_request2:ISC_STATUS; extdecl; external gdslib;
 
2085
 
 
2086
  function isc_create_blob:ISC_STATUS; extdecl; external gdslib;
 
2087
 
 
2088
  function isc_create_blob2:ISC_STATUS; extdecl; external gdslib;
 
2089
 
 
2090
  function isc_create_database:ISC_STATUS; extdecl; external gdslib;
 
2091
 
 
2092
  function isc_database_info:ISC_STATUS; extdecl; external gdslib;
 
2093
 
 
2094
  function isc_ddl:ISC_STATUS; extdecl; external gdslib;
 
2095
 
 
2096
  procedure isc_decode_date; extdecl; external gdslib;
 
2097
 
 
2098
  procedure isc_decode_sql_date; extdecl; external gdslib;
 
2099
 
 
2100
  procedure isc_decode_sql_time; extdecl; external gdslib;
 
2101
 
 
2102
  procedure isc_decode_timestamp; extdecl; external gdslib;
 
2103
 
 
2104
  function isc_detach_database:ISC_STATUS; extdecl; external gdslib;
 
2105
 
 
2106
  function isc_drop_database:ISC_STATUS; extdecl; external gdslib;
 
2107
 
 
2108
  procedure isc_encode_date; extdecl; external gdslib;
 
2109
 
 
2110
  procedure isc_encode_sql_date; extdecl; external gdslib;
 
2111
 
 
2112
  procedure isc_encode_sql_time; extdecl; external gdslib;
 
2113
 
 
2114
  procedure isc_encode_timestamp; extdecl; external gdslib;
 
2115
 
 
2116
  function isc_event_block:ISC_LONG; cdecl; external gdslib;
 
2117
 
 
2118
  procedure isc_event_counts; extdecl; external gdslib;
 
2119
 
 
2120
  procedure isc_expand_dpb; cdecl; external gdslib;
 
2121
 
 
2122
  function isc_modify_dpb:longint; extdecl; external gdslib;
 
2123
 
 
2124
  function isc_free:ISC_LONG; extdecl; external gdslib;
 
2125
 
 
2126
  function isc_get_segment:ISC_STATUS; extdecl; external gdslib;
 
2127
 
 
2128
  function isc_get_slice:ISC_STATUS; extdecl; external gdslib;
 
2129
 
 
2130
  function isc_interprete:ISC_STATUS; extdecl; external gdslib;
 
2131
 
 
2132
  function isc_open_blob:ISC_STATUS; extdecl; external gdslib;
 
2133
 
 
2134
  function isc_open_blob2:ISC_STATUS; extdecl; external gdslib;
 
2135
 
 
2136
  function isc_prepare_transaction:ISC_STATUS; extdecl; external gdslib;
 
2137
 
 
2138
  function isc_prepare_transaction2:ISC_STATUS; extdecl; external gdslib;
 
2139
 
 
2140
  procedure isc_print_sqlerror; extdecl; external gdslib;
 
2141
 
 
2142
  function isc_print_status:ISC_STATUS; extdecl; external gdslib;
 
2143
 
 
2144
  function isc_put_segment:ISC_STATUS; extdecl; external gdslib;
 
2145
 
 
2146
  function isc_put_slice:ISC_STATUS; extdecl; external gdslib;
 
2147
 
 
2148
  function isc_que_events:ISC_STATUS; extdecl; external gdslib;
 
2149
 
 
2150
  function isc_receive:ISC_STATUS; extdecl; external gdslib;
 
2151
 
 
2152
  function isc_reconnect_transaction:ISC_STATUS; extdecl; external gdslib;
 
2153
 
 
2154
  function isc_release_request:ISC_STATUS; extdecl; external gdslib;
 
2155
 
 
2156
  function isc_request_info:ISC_STATUS; extdecl; external gdslib;
 
2157
 
 
2158
{$IFDEF Unix}
 
2159
  function isc_reset_fpe:ISC_LONG; extdecl; external gdslib;
 
2160
{$ENDIF}
 
2161
 
 
2162
  function isc_rollback_transaction:ISC_STATUS; extdecl; external gdslib;
 
2163
 
 
2164
  function isc_rollback_retaining:ISC_STATUS; extdecl; external gdslib;
 
2165
 
 
2166
  function isc_seek_blob:ISC_STATUS; extdecl; external gdslib;
 
2167
 
 
2168
  function isc_send:ISC_STATUS; extdecl; external gdslib;
 
2169
 
 
2170
  function isc_service_attach:ISC_STATUS; extdecl; external gdslib;
 
2171
 
 
2172
  function isc_service_detach:ISC_STATUS; extdecl; external gdslib;
 
2173
 
 
2174
  function isc_service_query:ISC_STATUS; extdecl; external gdslib;
 
2175
 
 
2176
  function isc_service_start:ISC_STATUS; extdecl; external gdslib;
 
2177
 
 
2178
  function isc_start_and_send:ISC_STATUS; extdecl; external gdslib;
 
2179
 
 
2180
  function isc_start_multiple:ISC_STATUS; extdecl; external gdslib;
 
2181
 
 
2182
  function isc_start_request:ISC_STATUS; extdecl; external gdslib;
 
2183
 
 
2184
  function isc_start_transaction:ISC_STATUS; cdecl; external gdslib;
 
2185
 
 
2186
  function isc_sqlcode:ISC_LONG; extdecl; external gdslib;
 
2187
 
 
2188
  function isc_transaction_info:ISC_STATUS; extdecl; external gdslib;
 
2189
 
 
2190
  function isc_transact_request:ISC_STATUS; extdecl; external gdslib;
 
2191
 
 
2192
  function isc_unwind_request:ISC_STATUS; extdecl; external gdslib;
 
2193
 
 
2194
  function isc_wait_for_event:ISC_STATUS; extdecl; external gdslib;
 
2195
 
 
2196
  function isc_ftof:ISC_LONG; extdecl; external gdslib;
 
2197
 
 
2198
  function isc_print_blr:ISC_STATUS; extdecl; external gdslib;
 
2199
 
 
2200
  procedure isc_set_debug; extdecl; external gdslib;
 
2201
 
 
2202
  procedure isc_qtoq; extdecl; external gdslib;
 
2203
 
 
2204
  function isc_vax_integer:ISC_LONG; extdecl; external gdslib;
 
2205
 
 
2206
  procedure isc_vtof; extdecl; external gdslib;
 
2207
 
 
2208
  procedure isc_vtov; extdecl; external gdslib;
 
2209
 
 
2210
  function isc_version:longint; extdecl; external gdslib;
 
2211
 
 
2212
  {                 }
 
2213
  { Blob functions  }
 
2214
  {                 }
 
2215
 
 
2216
  function Bopen:PBSTREAM; extdecl; external gdslib;
 
2217
 
 
2218
  function BLOB_open:PBSTREAM; extdecl; external gdslib;
 
2219
 
 
2220
{$IFDEF Unix}
 
2221
  function Bopen2:PBSTREAM; extdecl; external gdslib;
 
2222
{$ENDIF}
 
2223
 
 
2224
{$ELSE} // LinkDynamically
 
2225
 
 
2226
var
 
2227
 
 
2228
{                          }
 
2229
{ OSRI database functions  }
 
2230
{                          }
 
2231
  isc_attach_database : function (_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2232
  isc_array_gen_sdl : function (_para1:PISC_STATUS; _para2:PISC_ARRAY_DESC; _para3:Psmallint; _para4:Pchar; _para5:Psmallint):ISC_STATUS; extdecl;
 
2233
  isc_array_get_slice : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;_para6:pointer; _para7:PISC_LONG):ISC_STATUS; extdecl;
 
2234
  isc_array_lookup_bounds : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;_para6:PISC_ARRAY_DESC):ISC_STATUS; extdecl;
 
2235
  isc_array_lookup_desc : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Pchar;_para6:PISC_ARRAY_DESC):ISC_STATUS; extdecl;
 
2236
  isc_array_set_desc : function (_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar; _para4:Psmallint; _para5:Psmallint;_para6:Psmallint; _para7:PISC_ARRAY_DESC):ISC_STATUS; extdecl;
 
2237
  isc_array_put_slice : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:PISC_ARRAY_DESC;_para6:pointer; _para7:PISC_LONG):ISC_STATUS; extdecl;
 
2238
  isc_blob_default_desc : procedure (_para1:PISC_BLOB_DESC; _para2:Pbyte; _para3:Pbyte); extdecl;
 
2239
  isc_blob_gen_bpb : function (_para1:PISC_STATUS; _para2:PISC_BLOB_DESC; _para3:PISC_BLOB_DESC; _para4:word; _para5:Pbyte;_para6:Pword):ISC_STATUS; extdecl;
 
2240
  isc_blob_info : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:Pchar; _para5:smallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2241
  isc_blob_lookup_desc : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pbyte; _para5:Pbyte;_para6:PISC_BLOB_DESC; _para7:Pbyte):ISC_STATUS; extdecl;
 
2242
  isc_blob_set_desc : function (_para1:PISC_STATUS; _para2:Pbyte; _para3:Pbyte; _para4:smallint; _para5:smallint;_para6:smallint; _para7:PISC_BLOB_DESC):ISC_STATUS; extdecl;
 
2243
  isc_cancel_blob : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; extdecl;
 
2244
  isc_cancel_events : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG):ISC_STATUS; extdecl;
 
2245
  isc_close_blob : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle):ISC_STATUS; extdecl;
 
2246
  isc_commit_retaining : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl;
 
2247
  isc_commit_transaction : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl;
 
2248
  isc_create_blob : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; extdecl;
 
2249
  isc_create_blob2 : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;_para6:smallint; _para7:Pchar):ISC_STATUS; extdecl;
 
2250
  isc_create_database : function (_para1:PISC_STATUS; _para2:smallint; _para3:Pchar; _para4:Pisc_db_handle; _para5:smallint;_para6:Pchar; _para7:smallint):ISC_STATUS; extdecl;
 
2251
  isc_database_info : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:smallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2252
  isc_decode_date : procedure (_para1:PISC_QUAD; _para2:pointer); extdecl;
 
2253
  isc_decode_sql_date : procedure (_para1:PISC_DATE; _para2:pointer); extdecl;
 
2254
  isc_decode_sql_time : procedure (_para1:PISC_TIME; _para2:pointer); extdecl;
 
2255
  isc_decode_timestamp : procedure (_para1:PISC_TIMESTAMP; _para2:pointer); extdecl;
 
2256
  isc_detach_database : function (_para1:PISC_STATUS; _para2:Pisc_db_handle):ISC_STATUS; extdecl;
 
2257
  isc_drop_database : function (_para1:PISC_STATUS; _para2:Pisc_db_handle):ISC_STATUS; extdecl;
 
2258
  isc_dsql_allocate_statement : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_stmt_handle):ISC_STATUS; extdecl;
 
2259
  isc_dsql_alloc_statement2 : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_stmt_handle):ISC_STATUS; extdecl;
 
2260
  isc_dsql_describe : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2261
  isc_dsql_describe_bind : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2262
  isc_dsql_exec_immed2 : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:PXSQLDA; _para8:PXSQLDA):ISC_STATUS; extdecl;
 
2263
  isc_dsql_execute : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl;
 
2264
  isc_dsql_execute2 : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:PXSQLDA;_para6:PXSQLDA):ISC_STATUS; extdecl;
 
2265
  isc_dsql_execute_immediate : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl;
 
2266
  isc_dsql_fetch : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2267
  isc_dsql_finish : function (_para1:Pisc_db_handle):ISC_STATUS; extdecl;
 
2268
  isc_dsql_free_statement : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word):ISC_STATUS; extdecl;
 
2269
  isc_dsql_insert : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2270
  isc_dsql_prepare : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;_para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl;
 
2271
  isc_dsql_set_cursor_name : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:Pchar; _para4:word):ISC_STATUS; extdecl;
 
2272
  isc_dsql_sql_info : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:smallint; _para4:Pchar; _para5:smallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2273
  isc_encode_date : procedure (_para1:pointer; _para2:PISC_QUAD); extdecl;
 
2274
  isc_encode_sql_date : procedure (_para1:pointer; _para2:PISC_DATE); extdecl;
 
2275
  isc_encode_sql_time : procedure (_para1:pointer; _para2:PISC_TIME); extdecl;
 
2276
  isc_encode_timestamp : procedure (_para1:pointer; _para2:PISC_TIMESTAMP); extdecl;
 
2277
  isc_event_block : function (_para1:PPchar; _para2:PPchar; _para3:word; args:array of const):ISC_LONG; cdecl;
 
2278
{!!MVC
 
2279
  void         isc_event_counts (unsigned ISC_LONG   ,
 
2280
  short,
 
2281
  char   ,
 
2282
  char   ); extdecl; external gdslib;
 
2283
!!MVC }
 
2284
  isc_expand_dpb : procedure (_para1:PPchar; _para2:Psmallint; args:array of const); cdecl;
 
2285
  isc_modify_dpb : function (_para1:PPchar; _para2:Psmallint; _para3:word; _para4:Pchar; _para5:smallint):longint; extdecl;
 
2286
  isc_free : function (_para1:Pchar):ISC_LONG; extdecl;
 
2287
  isc_get_segment : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:Pword; _para4:word; _para5:Pchar):ISC_STATUS; extdecl;
 
2288
  isc_get_slice : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;_para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer;_para11:PISC_LONG):ISC_STATUS; extdecl;
 
2289
  isc_interprete : function (_para1:Pchar; _para2:PPISC_STATUS):ISC_STATUS; extdecl;
 
2290
  isc_open_blob : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD):ISC_STATUS; extdecl;
 
2291
  isc_open_blob2 : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_blob_handle; _para5:PISC_QUAD;_para6:smallint; _para7:Pchar):ISC_STATUS; extdecl;
 
2292
  isc_prepare_transaction2 : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar):ISC_STATUS; extdecl;
 
2293
  isc_print_sqlerror : procedure (_para1:smallint; _para2:PISC_STATUS); extdecl;
 
2294
  isc_print_status : function (_para1:PISC_STATUS):ISC_STATUS; extdecl;
 
2295
  isc_put_segment : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:word; _para4:Pchar):ISC_STATUS; extdecl;
 
2296
  isc_put_slice : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:PISC_QUAD; _para5:smallint;_para6:Pchar; _para7:smallint; _para8:PISC_LONG; _para9:ISC_LONG; _para10:pointer):ISC_STATUS; extdecl;
 
2297
  isc_que_events : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:PISC_LONG; _para4:smallint; _para5:Pchar;_para6:isc_callback; _para7:pointer):ISC_STATUS; extdecl;
 
2298
  isc_rollback_retaining : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl;
 
2299
  isc_rollback_transaction : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl;
 
2300
  isc_start_multiple : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:pointer):ISC_STATUS; extdecl;
 
2301
  isc_start_transaction : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; args:array of const):ISC_STATUS; cdecl;
 
2302
  isc_sqlcode : function (_para1:PISC_STATUS):ISC_LONG; extdecl;
 
2303
  isc_sql_interprete : procedure (_para1:smallint; _para2:Pchar; _para3:smallint); extdecl;
 
2304
  isc_transaction_info : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint; _para4:Pchar; _para5:smallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2305
  isc_transact_request : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; extdecl;
 
2306
  isc_vax_integer : function (_para1:Pchar; _para2:smallint):ISC_LONG; extdecl;
 
2307
  isc_portable_integer : function (_para1:Pbyte; _para2:smallint):ISC_INT64; extdecl;
 
2308
{                                    }
 
2309
{ Security Functions                 }
 
2310
{                                    }
 
2311
  isc_add_user : function (_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl;
 
2312
  isc_delete_user : function (_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl;
 
2313
  isc_modify_user : function (_para1:PISC_STATUS; _para2:PUSER_SEC_DATA):longint; extdecl;
 
2314
{                                 }
 
2315
{  Other OSRI functions           }
 
2316
{                                 }
 
2317
  isc_compile_request : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_req_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2318
  isc_compile_request2 : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_req_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2319
  isc_ddl : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2320
  isc_prepare_transaction : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle):ISC_STATUS; extdecl;
 
2321
  isc_receive : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;_para6:smallint):ISC_STATUS; extdecl;
 
2322
  isc_reconnect_transaction : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2323
  isc_release_request : function (_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl;
 
2324
  isc_request_info : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:Pchar;_para6:smallint; _para7:Pchar):ISC_STATUS; extdecl;
 
2325
  isc_seek_blob : function (_para1:PISC_STATUS; _para2:Pisc_blob_handle; _para3:smallint; _para4:ISC_LONG; _para5:PISC_LONG):ISC_STATUS; extdecl;
 
2326
  isc_send : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:smallint; _para4:smallint; _para5:pointer;_para6:smallint):ISC_STATUS; extdecl;
 
2327
  isc_start_and_send : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint; _para5:smallint;_para6:pointer; _para7:smallint):ISC_STATUS; extdecl;
 
2328
  isc_start_request : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Pisc_tr_handle; _para4:smallint):ISC_STATUS; extdecl;
 
2329
  isc_unwind_request : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:smallint):ISC_STATUS; extdecl;
 
2330
  isc_wait_for_event : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:smallint; _para4:Pchar; _para5:Pchar):ISC_STATUS; extdecl;
 
2331
{                            }
 
2332
{ Other Sql functions        }
 
2333
{                            }
 
2334
  isc_close : function (_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl;
 
2335
  isc_declare : function (_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar):ISC_STATUS; extdecl;
 
2336
  isc_describe : function (_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl;
 
2337
  isc_describe_bind : function (_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl;
 
2338
  isc_execute : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2339
  isc_execute_immediate : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2340
  isc_fetch : function (_para1:PISC_STATUS; _para2:Pchar; _para3:PXSQLDA):ISC_STATUS; extdecl;
 
2341
  isc_open : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2342
  isc_prepare : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:Psmallint;_para6:Pchar; _para7:PXSQLDA):ISC_STATUS; extdecl;
 
2343
{                                    }
 
2344
{ Other Dynamic sql functions        }
 
2345
{                                    }
 
2346
  isc_dsql_execute_m : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;_para6:word; _para7:word; _para8:Pchar):ISC_STATUS; extdecl;
 
2347
  isc_dsql_execute2_m : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar;_para11:word; _para12:word; _para13:Pchar):ISC_STATUS; extdecl;
 
2348
  isc_dsql_execute_immediate_m : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;_para11:Pchar):ISC_STATUS; extdecl;
 
2349
  isc_dsql_exec_immed3_m : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:word;_para11:Pchar; _para12:word; _para13:Pchar; _para14:word; _para15:word;_para16:Pchar):ISC_STATUS; extdecl;
 
2350
  isc_dsql_fetch_m : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;_para6:word; _para7:Pchar):ISC_STATUS; extdecl;
 
2351
  isc_dsql_insert_m : function (_para1:PISC_STATUS; _para2:Pisc_stmt_handle; _para3:word; _para4:Pchar; _para5:word;_para6:word; _para7:Pchar):ISC_STATUS; extdecl;
 
2352
  isc_dsql_prepare_m : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pisc_stmt_handle; _para4:word; _para5:Pchar;_para6:word; _para7:word; _para8:Pchar; _para9:word; _para10:Pchar):ISC_STATUS; extdecl;
 
2353
  isc_dsql_release : function (_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl;
 
2354
  isc_embed_dsql_close : function (_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl;
 
2355
  isc_embed_dsql_declare : function (_para1:PISC_STATUS; _para2:Pchar; _para3:Pchar):ISC_STATUS; extdecl;
 
2356
  isc_embed_dsql_describe : function (_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2357
  isc_embed_dsql_describe_bind : function (_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2358
  isc_embed_dsql_execute : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl;
 
2359
  isc_embed_dsql_execute2 : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;_para6:PXSQLDA):ISC_STATUS; extdecl;
 
2360
  isc_embed_dsql_execute_immed : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:word; _para5:Pchar;_para6:word; _para7:PXSQLDA):ISC_STATUS; extdecl;
 
2361
  isc_embed_dsql_fetch : function (_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2362
  isc_embed_dsql_open : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA):ISC_STATUS; extdecl;
 
2363
  isc_embed_dsql_open2 : function (_para1:PISC_STATUS; _para2:Pisc_tr_handle; _para3:Pchar; _para4:word; _para5:PXSQLDA;_para6:PXSQLDA):ISC_STATUS; extdecl;
 
2364
  isc_embed_dsql_insert : function (_para1:PISC_STATUS; _para2:Pchar; _para3:word; _para4:PXSQLDA):ISC_STATUS; extdecl;
 
2365
  isc_embed_dsql_prepare : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pchar; _para5:word;_para6:Pchar; _para7:word; _para8:PXSQLDA):ISC_STATUS; extdecl;
 
2366
  isc_embed_dsql_release : function (_para1:PISC_STATUS; _para2:Pchar):ISC_STATUS; extdecl;
 
2367
{                             }
 
2368
{ Other Blob functions        }
 
2369
{                             }
 
2370
  BLOB_open : function (_para1:isc_blob_handle; _para2:Pchar; _para3:longint):PBSTREAM; extdecl;
 
2371
  BLOB_put : function (_para1:char; _para2:PBSTREAM):longint; extdecl;
 
2372
  BLOB_close : function (_para1:PBSTREAM):longint; extdecl;
 
2373
  BLOB_get : function (_para1:PBSTREAM):longint; extdecl;
 
2374
  BLOB_display : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2375
  BLOB_dump : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2376
  BLOB_edit : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2377
  BLOB_load : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2378
  BLOB_text_dump : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2379
  BLOB_text_load : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):longint; extdecl;
 
2380
  Bopen : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar):PBSTREAM; extdecl;
 
2381
{$IFDEF Unix}
 
2382
  Bopen2 : function (_para1:PISC_QUAD; _para2:isc_db_handle; _para3:isc_tr_handle; _para4:Pchar; _para5:word):PBSTREAM; extdecl;
 
2383
{$ENDIF}
 
2384
{                             }
 
2385
{ Other Misc functions        }
 
2386
{                             }
 
2387
  isc_ftof : function (_para1:Pchar; _para2:word; _para3:Pchar; _para4:word):ISC_LONG; extdecl;
 
2388
  isc_print_blr : function (_para1:Pchar; _para2:isc_callback; _para3:pointer; _para4:smallint):ISC_STATUS; extdecl;
 
2389
  isc_set_debug : procedure (_para1:longint); extdecl;
 
2390
  isc_qtoq : procedure (_para1:PISC_QUAD; _para2:PISC_QUAD); extdecl;
 
2391
  isc_vtof : procedure (_para1:Pchar; _para2:Pchar; _para3:word); extdecl;
 
2392
  isc_vtov : procedure (_para1:Pchar; _para2:Pchar; _para3:smallint); extdecl;
 
2393
  isc_version : function (_para1:Pisc_db_handle; _para2:isc_callback; _para3:pointer):longint; extdecl;
 
2394
{$IFDEF Unix}
 
2395
  isc_reset_fpe : function (_para1:word):ISC_LONG; extdecl;
 
2396
{$ENDIF}
 
2397
{                                        }
 
2398
{ Service manager functions              }
 
2399
{                                        }
 
2400
(*!!MVC
 
2401
  #define ADD_SPB_LENGTH(p, length)     { (p)++ = (length); \
 
2402
  (p)++ = (length) >> 8;}
 
2403
 
 
2404
#define ADD_SPB_NUMERIC(p, data)      { (p)++ = (data); \
 
2405
  (p)++ = (data) >> 8; \
 
2406
  (p)++ = (data) >> 16; \
 
2407
  (p)++ = (data) >> 24;}
 
2408
!!MVC *)
 
2409
  isc_service_attach : function (_para1:PISC_STATUS; _para2:word; _para3:Pchar; _para4:Pisc_svc_handle; _para5:word;_para6:Pchar):ISC_STATUS; extdecl;
 
2410
  isc_service_detach : function (_para1:PISC_STATUS; _para2:Pisc_svc_handle):ISC_STATUS; extdecl;
 
2411
  isc_service_query : function (_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar;_para6:word; _para7:Pchar; _para8:word; _para9:Pchar):ISC_STATUS; extdecl;
 
2412
  isc_service_start : function (_para1:PISC_STATUS; _para2:Pisc_svc_handle; _para3:Pisc_resv_handle; _para4:word; _para5:Pchar):ISC_STATUS; extdecl;
 
2413
{                              }
 
2414
{ Forms functions              }
 
2415
{                              }
 
2416
{$IFDEF Unix}
 
2417
  isc_compile_map : function (_para1:PISC_STATUS; _para2:Pisc_form_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2418
  isc_compile_menu : function (_para1:PISC_STATUS; _para2:Pisc_form_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2419
  isc_compile_sub_map : function (_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2420
  isc_create_window : function (_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Psmallint; _para4:Pchar; _para5:Psmallint;_para6:Psmallint):ISC_STATUS; extdecl;
 
2421
  isc_delete_window : function (_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl;
 
2422
  isc_drive_form : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_win_handle; _para5:Pisc_req_handle;_para6:Pbyte; _para7:Pbyte):ISC_STATUS; extdecl;
 
2423
  isc_drive_menu : function (_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar;_para6:Psmallint; _para7:Pchar; _para8:Psmallint; _para9:Psmallint; _para10:Pchar;_para11:PISC_LONG):ISC_STATUS; extdecl;
 
2424
  isc_form_delete : function (_para1:PISC_STATUS; _para2:Pisc_form_handle):ISC_STATUS; extdecl;
 
2425
  isc_form_fetch : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; extdecl;
 
2426
  isc_form_insert : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_req_handle; _para5:Pbyte):ISC_STATUS; extdecl;
 
2427
  isc_get_entree : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG;_para6:Psmallint):ISC_STATUS; extdecl;
 
2428
  isc_initialize_menu : function (_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl;
 
2429
  isc_menu : function (_para1:PISC_STATUS; _para2:Pisc_win_handle; _para3:Pisc_req_handle; _para4:Psmallint; _para5:Pchar):ISC_STATUS; extdecl;
 
2430
  isc_load_form : function (_para1:PISC_STATUS; _para2:Pisc_db_handle; _para3:Pisc_tr_handle; _para4:Pisc_form_handle; _para5:Psmallint;_para6:Pchar):ISC_STATUS; extdecl;
 
2431
  isc_pop_window : function (_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl;
 
2432
  isc_put_entree : function (_para1:PISC_STATUS; _para2:Pisc_req_handle; _para3:Psmallint; _para4:Pchar; _para5:PISC_LONG):ISC_STATUS; extdecl;
 
2433
  isc_reset_form : function (_para1:PISC_STATUS; _para2:Pisc_req_handle):ISC_STATUS; extdecl;
 
2434
  isc_suspend_window : function (_para1:PISC_STATUS; _para2:Pisc_win_handle):ISC_STATUS; extdecl;
 
2435
{$ENDIF}
 
2436
 
 
2437
Procedure InitialiseIBase60;
 
2438
Procedure ReleaseIBase60;
 
2439
 
 
2440
var IBaseLibraryHandle : TLibHandle;
 
2441
 
 
2442
{$ENDIF}
 
2443
 
 
2444
implementation
 
2445
 
 
2446
{$IFDEF LinkDynamically}
 
2447
 
 
2448
var RefCount : integer;
 
2449
 
 
2450
Procedure InitialiseIBase60;
 
2451
 
 
2452
begin
 
2453
  inc(RefCount);
 
2454
  if RefCount = 1 then
 
2455
    begin
 
2456
    IBaseLibraryHandle := loadlibrary(fbclib);
 
2457
    if IBaseLibraryHandle = nilhandle then
 
2458
      begin
 
2459
      IBaseLibraryHandle := loadlibrary(gdslib);
 
2460
      if loadlibrary(gdslib) = nilhandle then
 
2461
        begin
 
2462
        RefCount := 0;
 
2463
        Raise EInOutError.Create('Can not load Firebird or Interbase client. Is it installed? ('+gdslib+' or '+fbclib+')');
 
2464
        end;
 
2465
      end;
 
2466
 
 
2467
    pointer(isc_attach_database) := GetProcedureAddress(IBaseLibraryHandle,'isc_attach_database');
 
2468
    pointer(isc_array_gen_sdl) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_gen_sdl');
 
2469
    pointer(isc_array_get_slice) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_get_slice');
 
2470
    pointer(isc_array_lookup_bounds) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_lookup_bounds');
 
2471
    pointer(isc_array_lookup_desc) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_lookup_desc');
 
2472
    pointer(isc_array_set_desc) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_set_desc');
 
2473
    pointer(isc_array_put_slice) := GetProcedureAddress(IBaseLibraryHandle,'isc_array_put_slice');
 
2474
    pointer(isc_blob_default_desc) := GetProcedureAddress(IBaseLibraryHandle,'isc_blob_default_desc');
 
2475
    pointer(isc_blob_gen_bpb) := GetProcedureAddress(IBaseLibraryHandle,'isc_blob_gen_bpb');
 
2476
    pointer(isc_blob_info) := GetProcedureAddress(IBaseLibraryHandle,'isc_blob_info');
 
2477
    pointer(isc_blob_lookup_desc) := GetProcedureAddress(IBaseLibraryHandle,'isc_blob_lookup_desc');
 
2478
    pointer(isc_blob_set_desc) := GetProcedureAddress(IBaseLibraryHandle,'isc_blob_set_desc');
 
2479
    pointer(isc_cancel_blob) := GetProcedureAddress(IBaseLibraryHandle,'isc_cancel_blob');
 
2480
    pointer(isc_cancel_events) := GetProcedureAddress(IBaseLibraryHandle,'isc_cancel_events');
 
2481
    pointer(isc_close_blob) := GetProcedureAddress(IBaseLibraryHandle,'isc_close_blob');
 
2482
    pointer(isc_commit_retaining) := GetProcedureAddress(IBaseLibraryHandle,'isc_commit_retaining');
 
2483
    pointer(isc_commit_transaction) := GetProcedureAddress(IBaseLibraryHandle,'isc_commit_transaction');
 
2484
    pointer(isc_create_blob) := GetProcedureAddress(IBaseLibraryHandle,'isc_create_blob');
 
2485
    pointer(isc_create_blob2) := GetProcedureAddress(IBaseLibraryHandle,'isc_create_blob2');
 
2486
    pointer(isc_create_database) := GetProcedureAddress(IBaseLibraryHandle,'isc_create_database');
 
2487
    pointer(isc_database_info) := GetProcedureAddress(IBaseLibraryHandle,'isc_database_info');
 
2488
    pointer(isc_decode_date) := GetProcedureAddress(IBaseLibraryHandle,'isc_decode_date');
 
2489
    pointer(isc_decode_sql_date) := GetProcedureAddress(IBaseLibraryHandle,'isc_decode_sql_date');
 
2490
    pointer(isc_decode_sql_time) := GetProcedureAddress(IBaseLibraryHandle,'isc_decode_sql_time');
 
2491
    pointer(isc_decode_timestamp) := GetProcedureAddress(IBaseLibraryHandle,'isc_decode_timestamp');
 
2492
    pointer(isc_detach_database) := GetProcedureAddress(IBaseLibraryHandle,'isc_detach_database');
 
2493
    pointer(isc_drop_database) := GetProcedureAddress(IBaseLibraryHandle,'isc_drop_database');
 
2494
    pointer(isc_dsql_allocate_statement) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_allocate_statement');
 
2495
    pointer(isc_dsql_alloc_statement2) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_alloc_statement2');
 
2496
    pointer(isc_dsql_describe) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_describe');
 
2497
    pointer(isc_dsql_describe_bind) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_describe_bind');
 
2498
    pointer(isc_dsql_exec_immed2) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_exec_immed2');
 
2499
    pointer(isc_dsql_execute) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute');
 
2500
    pointer(isc_dsql_execute2) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute2');
 
2501
    pointer(isc_dsql_execute_immediate) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute_immediate');
 
2502
    pointer(isc_dsql_fetch) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_fetch');
 
2503
    pointer(isc_dsql_finish) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_finish');
 
2504
    pointer(isc_dsql_free_statement) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_free_statement');
 
2505
    pointer(isc_dsql_insert) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_insert');
 
2506
    pointer(isc_dsql_prepare) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_prepare');
 
2507
    pointer(isc_dsql_set_cursor_name) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_set_cursor_name');
 
2508
    pointer(isc_dsql_sql_info) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_sql_info');
 
2509
    pointer(isc_encode_date) := GetProcedureAddress(IBaseLibraryHandle,'isc_encode_date');
 
2510
    pointer(isc_encode_sql_date) := GetProcedureAddress(IBaseLibraryHandle,'isc_encode_sql_date');
 
2511
    pointer(isc_encode_sql_time) := GetProcedureAddress(IBaseLibraryHandle,'isc_encode_sql_time');
 
2512
    pointer(isc_encode_timestamp) := GetProcedureAddress(IBaseLibraryHandle,'isc_encode_timestamp');
 
2513
    pointer(isc_event_block) := GetProcedureAddress(IBaseLibraryHandle,'isc_event_block');
 
2514
    pointer(isc_expand_dpb) := GetProcedureAddress(IBaseLibraryHandle,'isc_expand_dpb');
 
2515
    pointer(isc_modify_dpb) := GetProcedureAddress(IBaseLibraryHandle,'isc_modify_dpb');
 
2516
    pointer(isc_free) := GetProcedureAddress(IBaseLibraryHandle,'isc_free');
 
2517
    pointer(isc_get_segment) := GetProcedureAddress(IBaseLibraryHandle,'isc_get_segment');
 
2518
    pointer(isc_get_slice) := GetProcedureAddress(IBaseLibraryHandle,'isc_get_slice');
 
2519
    pointer(isc_interprete) := GetProcedureAddress(IBaseLibraryHandle,'isc_interprete');
 
2520
    pointer(isc_open_blob) := GetProcedureAddress(IBaseLibraryHandle,'isc_open_blob');
 
2521
    pointer(isc_open_blob2) := GetProcedureAddress(IBaseLibraryHandle,'isc_open_blob2');
 
2522
    pointer(isc_prepare_transaction2) := GetProcedureAddress(IBaseLibraryHandle,'isc_prepare_transaction2');
 
2523
    pointer(isc_print_sqlerror) := GetProcedureAddress(IBaseLibraryHandle,'isc_print_sqlerror');
 
2524
    pointer(isc_print_status) := GetProcedureAddress(IBaseLibraryHandle,'isc_print_status');
 
2525
    pointer(isc_put_segment) := GetProcedureAddress(IBaseLibraryHandle,'isc_put_segment');
 
2526
    pointer(isc_put_slice) := GetProcedureAddress(IBaseLibraryHandle,'isc_put_slice');
 
2527
    pointer(isc_que_events) := GetProcedureAddress(IBaseLibraryHandle,'isc_que_events');
 
2528
    pointer(isc_rollback_retaining) := GetProcedureAddress(IBaseLibraryHandle,'isc_rollback_retaining');
 
2529
    pointer(isc_rollback_transaction) := GetProcedureAddress(IBaseLibraryHandle,'isc_rollback_transaction');
 
2530
    pointer(isc_start_multiple) := GetProcedureAddress(IBaseLibraryHandle,'isc_start_multiple');
 
2531
    pointer(isc_start_transaction) := GetProcedureAddress(IBaseLibraryHandle,'isc_start_transaction');
 
2532
    pointer(isc_sqlcode) := GetProcedureAddress(IBaseLibraryHandle,'isc_sqlcode');
 
2533
    pointer(isc_sql_interprete) := GetProcedureAddress(IBaseLibraryHandle,'isc_sql_interprete');
 
2534
    pointer(isc_transaction_info) := GetProcedureAddress(IBaseLibraryHandle,'isc_transaction_info');
 
2535
    pointer(isc_transact_request) := GetProcedureAddress(IBaseLibraryHandle,'isc_transact_request');
 
2536
    pointer(isc_vax_integer) := GetProcedureAddress(IBaseLibraryHandle,'isc_vax_integer');
 
2537
    pointer(isc_portable_integer) := GetProcedureAddress(IBaseLibraryHandle,'isc_portable_integer');
 
2538
    pointer(isc_add_user) := GetProcedureAddress(IBaseLibraryHandle,'isc_add_user');
 
2539
    pointer(isc_delete_user) := GetProcedureAddress(IBaseLibraryHandle,'isc_delete_user');
 
2540
    pointer(isc_modify_user) := GetProcedureAddress(IBaseLibraryHandle,'isc_modify_user');
 
2541
    pointer(isc_compile_request) := GetProcedureAddress(IBaseLibraryHandle,'isc_compile_request');
 
2542
    pointer(isc_compile_request2) := GetProcedureAddress(IBaseLibraryHandle,'isc_compile_request2');
 
2543
    pointer(isc_ddl) := GetProcedureAddress(IBaseLibraryHandle,'isc_ddl');
 
2544
    pointer(isc_prepare_transaction) := GetProcedureAddress(IBaseLibraryHandle,'isc_prepare_transaction');
 
2545
    pointer(isc_receive) := GetProcedureAddress(IBaseLibraryHandle,'isc_receive');
 
2546
    pointer(isc_reconnect_transaction) := GetProcedureAddress(IBaseLibraryHandle,'isc_reconnect_transaction');
 
2547
    pointer(isc_release_request) := GetProcedureAddress(IBaseLibraryHandle,'isc_release_request');
 
2548
    pointer(isc_request_info) := GetProcedureAddress(IBaseLibraryHandle,'isc_request_info');
 
2549
    pointer(isc_seek_blob) := GetProcedureAddress(IBaseLibraryHandle,'isc_seek_blob');
 
2550
    pointer(isc_send) := GetProcedureAddress(IBaseLibraryHandle,'isc_send');
 
2551
    pointer(isc_start_and_send) := GetProcedureAddress(IBaseLibraryHandle,'isc_start_and_send');
 
2552
    pointer(isc_start_request) := GetProcedureAddress(IBaseLibraryHandle,'isc_start_request');
 
2553
    pointer(isc_unwind_request) := GetProcedureAddress(IBaseLibraryHandle,'isc_unwind_request');
 
2554
    pointer(isc_wait_for_event) := GetProcedureAddress(IBaseLibraryHandle,'isc_wait_for_event');
 
2555
    pointer(isc_close) := GetProcedureAddress(IBaseLibraryHandle,'isc_close');
 
2556
    pointer(isc_declare) := GetProcedureAddress(IBaseLibraryHandle,'isc_declare');
 
2557
    pointer(isc_describe) := GetProcedureAddress(IBaseLibraryHandle,'isc_describe');
 
2558
    pointer(isc_describe_bind) := GetProcedureAddress(IBaseLibraryHandle,'isc_describe_bind');
 
2559
    pointer(isc_execute) := GetProcedureAddress(IBaseLibraryHandle,'isc_execute');
 
2560
    pointer(isc_execute_immediate) := GetProcedureAddress(IBaseLibraryHandle,'isc_execute_immediate');
 
2561
    pointer(isc_fetch) := GetProcedureAddress(IBaseLibraryHandle,'isc_fetch');
 
2562
    pointer(isc_open) := GetProcedureAddress(IBaseLibraryHandle,'isc_open');
 
2563
    pointer(isc_prepare) := GetProcedureAddress(IBaseLibraryHandle,'isc_prepare');
 
2564
    pointer(isc_dsql_execute_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute_m');
 
2565
    pointer(isc_dsql_execute2_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute2_m');
 
2566
    pointer(isc_dsql_execute_immediate_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_execute_immediate_m');
 
2567
    pointer(isc_dsql_exec_immed3_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_exec_immed3_m');
 
2568
    pointer(isc_dsql_fetch_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_fetch_m');
 
2569
    pointer(isc_dsql_insert_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_insert_m');
 
2570
    pointer(isc_dsql_prepare_m) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_prepare_m');
 
2571
    pointer(isc_dsql_release) := GetProcedureAddress(IBaseLibraryHandle,'isc_dsql_release');
 
2572
    pointer(isc_embed_dsql_close) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_close');
 
2573
    pointer(isc_embed_dsql_declare) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_declare');
 
2574
    pointer(isc_embed_dsql_describe) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_describe');
 
2575
    pointer(isc_embed_dsql_describe_bind) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_describe_bind');
 
2576
    pointer(isc_embed_dsql_execute) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_execute');
 
2577
    pointer(isc_embed_dsql_execute2) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_execute2');
 
2578
    pointer(isc_embed_dsql_execute_immed) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_execute_immed');
 
2579
    pointer(isc_embed_dsql_fetch) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_fetch');
 
2580
    pointer(isc_embed_dsql_open) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_open');
 
2581
    pointer(isc_embed_dsql_open2) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_open2');
 
2582
    pointer(isc_embed_dsql_insert) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_insert');
 
2583
    pointer(isc_embed_dsql_prepare) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_prepare');
 
2584
    pointer(isc_embed_dsql_release) := GetProcedureAddress(IBaseLibraryHandle,'isc_embed_dsql_release');
 
2585
    pointer(BLOB_open) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_open');
 
2586
    pointer(BLOB_put) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_put');
 
2587
    pointer(BLOB_close) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_close');
 
2588
    pointer(BLOB_get) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_get');
 
2589
    pointer(BLOB_display) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_display');
 
2590
    pointer(BLOB_dump) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_dump');
 
2591
    pointer(BLOB_edit) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_edit');
 
2592
    pointer(BLOB_load) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_load');
 
2593
    pointer(BLOB_text_dump) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_text_dump');
 
2594
    pointer(BLOB_text_load) := GetProcedureAddress(IBaseLibraryHandle,'BLOB_text_load');
 
2595
    pointer(Bopen) := GetProcedureAddress(IBaseLibraryHandle,'Bopen');
 
2596
{$IFDEF Unix}
 
2597
    pointer(Bopen2) := GetProcedureAddress(IBaseLibraryHandle,'Bopen2');
 
2598
{$ENDIF}
 
2599
    pointer(isc_ftof) := GetProcedureAddress(IBaseLibraryHandle,'isc_ftof');
 
2600
    pointer(isc_print_blr) := GetProcedureAddress(IBaseLibraryHandle,'isc_print_blr');
 
2601
    pointer(isc_set_debug) := GetProcedureAddress(IBaseLibraryHandle,'isc_set_debug');
 
2602
    pointer(isc_qtoq) := GetProcedureAddress(IBaseLibraryHandle,'isc_qtoq');
 
2603
    pointer(isc_vtof) := GetProcedureAddress(IBaseLibraryHandle,'isc_vtof');
 
2604
    pointer(isc_vtov) := GetProcedureAddress(IBaseLibraryHandle,'isc_vtov');
 
2605
    pointer(isc_version) := GetProcedureAddress(IBaseLibraryHandle,'isc_version');
 
2606
{$IFDEF Unix}
 
2607
    pointer(isc_reset_fpe) := GetProcedureAddress(IBaseLibraryHandle,'isc_reset_fpe');
 
2608
{$ENDIF}
 
2609
    pointer(isc_service_attach) := GetProcedureAddress(IBaseLibraryHandle,'isc_service_attach');
 
2610
    pointer(isc_service_detach) := GetProcedureAddress(IBaseLibraryHandle,'isc_service_detach');
 
2611
    pointer(isc_service_query) := GetProcedureAddress(IBaseLibraryHandle,'isc_service_query');
 
2612
    pointer(isc_service_start) := GetProcedureAddress(IBaseLibraryHandle,'isc_service_start');
 
2613
{$IFDEF Unix}
 
2614
    pointer(isc_compile_map) := GetProcedureAddress(IBaseLibraryHandle,'isc_compile_map');
 
2615
    pointer(isc_compile_menu) := GetProcedureAddress(IBaseLibraryHandle,'isc_compile_menu');
 
2616
    pointer(isc_compile_sub_map) := GetProcedureAddress(IBaseLibraryHandle,'isc_compile_sub_map');
 
2617
    pointer(isc_create_window) := GetProcedureAddress(IBaseLibraryHandle,'isc_create_window');
 
2618
    pointer(isc_delete_window) := GetProcedureAddress(IBaseLibraryHandle,'isc_delete_window');
 
2619
    pointer(isc_drive_form) := GetProcedureAddress(IBaseLibraryHandle,'isc_drive_form');
 
2620
    pointer(isc_drive_menu) := GetProcedureAddress(IBaseLibraryHandle,'isc_drive_menu');
 
2621
    pointer(isc_form_delete) := GetProcedureAddress(IBaseLibraryHandle,'isc_form_delete');
 
2622
    pointer(isc_form_fetch) := GetProcedureAddress(IBaseLibraryHandle,'isc_form_fetch');
 
2623
    pointer(isc_form_insert) := GetProcedureAddress(IBaseLibraryHandle,'isc_form_insert');
 
2624
    pointer(isc_get_entree) := GetProcedureAddress(IBaseLibraryHandle,'isc_get_entree');
 
2625
    pointer(isc_initialize_menu) := GetProcedureAddress(IBaseLibraryHandle,'isc_initialize_menu');
 
2626
    pointer(isc_menu) := GetProcedureAddress(IBaseLibraryHandle,'isc_menu');
 
2627
    pointer(isc_load_form) := GetProcedureAddress(IBaseLibraryHandle,'isc_load_form');
 
2628
    pointer(isc_pop_window) := GetProcedureAddress(IBaseLibraryHandle,'isc_pop_window');
 
2629
    pointer(isc_put_entree) := GetProcedureAddress(IBaseLibraryHandle,'isc_put_entree');
 
2630
    pointer(isc_reset_form) := GetProcedureAddress(IBaseLibraryHandle,'isc_reset_form');
 
2631
    pointer(isc_suspend_window) := GetProcedureAddress(IBaseLibraryHandle,'isc_suspend_window');
 
2632
{$ENDIF}
 
2633
    end;
 
2634
end;
 
2635
 
 
2636
Procedure ReleaseIBase60;
 
2637
 
 
2638
begin
 
2639
  if RefCount > 0 then dec(RefCount);
 
2640
  if RefCount = 0 then
 
2641
    begin
 
2642
    if not UnloadLibrary(IBaseLibraryHandle) then inc(RefCount);
 
2643
    end;
 
2644
end;
 
2645
 
 
2646
{$ENDIF}
 
2647
 
 
2648
function XSQLDA_LENGTH(n: Integer): Integer;
 
2649
begin
 
2650
  Result := SizeOf(XSQLDA) + (n - 1) * SizeOf(XSQLVAR);
 
2651
end;
 
2652
 
 
2653