firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-23 00:03:02 +01:00
Code Issues
f91bc11492
firebird-mirror/lang_helpers/gds.vpas

1619 lines
47 KiB
Plaintext
Raw Blame History

(*******************************************************************)
(* *)
(* The contents of this file are subject to the Interbase Public *)
(* License Version 1.0 (the "License"); you may not use this file *)
(* except in compliance with the License. You may obtain a copy *)
(* of the License at http://www.Inprise.com/IPL.html *)
(* *)
(* Software distributed under the License is distributed on an *)
(* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express *)
(* or implied. See the License for the specific language governing *)
(* rights and limitations under the License. *)
(* *)
(* The Original Code was created by Inprise Corporation *)
(* and its predecessors. Portions created by Inprise Corporation are *)
(* Copyright (C) Inprise Corporation. *)
(* *)
(* All Rights Reserved. *)
(* Contributor(s): ______________________________________. *)
(*******************************************************************)
(*
* PROGRAM: Preprocessor
* MODULE: sql.pas
* DESCRIPTION: SQL constants, procedures, etc.
*)
type
gds__short = [word] -32768..32767;
gds__handle = ^integer;
gds__string = array [1..65535] of char;
gds__ptr_type = [UNSAFE] ^gds__string;
gds__status_vector = array [1..20] of integer;
gds__quad = array [1..2] of integer;
gds__vector = array [1..256] of integer;
gds__evb_t = array [1..256, 1..31] of char;
gds__teb_t = record
dbb_ptr : gds__ptr_type;
tpb_len : integer;
tpb_ptr : gds__ptr_type;
end;
gds__tm = record
tm_sec : integer;
tm_min : integer;
tm_hour : integer;
tm_mday : integer;
tm_mon : integer;
tm_year : integer;
tm_wday : integer;
tm_yday : integer;
tm_isdst : integer;
end;
sqlvar = record
sqltype : gds__short;
sqllen : gds__short;
sqldata : gds__ptr_type;
sqlind : gds__ptr_type;
sqlname_length : gds__short;
sqlname : array [1..30] of char;
end;
sqlda = record
sqldaid : array [1..8] of char;
sqldabc : integer;
sqln : gds__short;
sqld : gds__short;
sqlvars : array [1..100] of sqlvar;
end;
xsqlvar = record
sqltype : gds__short;
sqlscale : gds__short;
sqlsubtype : gds__short;
sqllen : gds__short;
sqldata : gds__ptr_type;
sqlind : gds__ptr_type;
sqlname_length : gds__short;
sqlname : array [1..32] of char;
relname_length : gds__short;
relname : array [1..32] of char;
ownname_length : gds__short;
ownname : array [1..32] of char;
aliasname_length : gds__short;
aliasname : array [1..32] of char;
end;
xsqlda = record
version : gds__short;
sqldaid : array [1..8] of char;
sqldabc : integer;
sqln : gds__short;
sqld : gds__short;
sqlvars : array [1..100] of xsqlvar;
end;
procedure GDS__SET_DEBUG (
debug_val : [IMMEDIATE] gds__short
); extern;
procedure gds__ATTACH_DATABASE (
var stat : gds__status_vector;
name_length : [IMMEDIATE] gds__short;
file_name : gds__ptr_type;
var db_handle : gds__handle;
dpb_length : [IMMEDIATE] gds__short;
dpb : gds__ptr_type
); extern;
procedure gds__ATTACH_DATABASE_D (
var stat : gds__status_vector;
file_name : gds__ptr_type;
var db_handle : gds__handle;
dpb_length : [IMMEDIATE] gds__short;
dpb : gds__ptr_type
); extern;
function isc_BADDRESS (
handle : gds__ptr_type
) : integer; extern;
procedure gds__CANCEL_BLOB (
var stat : gds__status_vector;
var blob_handle : gds__handle
); extern;
procedure GDS__CANCEL_EVENTS (
var stat : gds__status_vector;
var db_handle : gds__handle;
id : gds__handle
); extern;
procedure gds__CLOSE_BLOB (
var stat : gds__status_vector;
var blob_handle : gds__handle
); extern;
procedure GDS__COMMIT_RETAINING (
var stat : gds__status_vector;
var tra_handle : gds__handle
); extern;
procedure gds__COMMIT_TRANSACTION (
var stat : gds__status_vector;
var tra_handle : gds__handle
); extern;
procedure gds__COMPILE_REQUEST (
var stat : gds__status_vector;
db_handle : gds__handle;
var request_handle : gds__handle;
blr_length : [IMMEDIATE] gds__short;
blr : gds__ptr_type
); extern;
procedure gds__COMPILE_REQUEST2 (
var stat : gds__status_vector;
db_handle : gds__handle;
var request_handle : gds__handle;
blr_length : [IMMEDIATE] gds__short;
blr : gds__ptr_type
); extern;
procedure gds__CREATE_BLOB (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
var blob_handle : gds__handle;
var blob_id : gds__quad
); extern;
procedure GDS__CREATE_BLOB2 (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
var blob_handle : gds__handle;
var blob_id : gds__quad;
bpb_length : integer;
bpb : gds__ptr_type
); extern;
procedure GDS__CREATE_DATABASE (
var stat : gds__status_vector;
name_length : [IMMEDIATE] gds__short;
file_name : gds__ptr_type;
var db_handle : gds__handle;
dpb_length : [IMMEDIATE] gds__short;
dpb : gds__ptr_type;
dpb_type : [IMMEDIATE] gds__short
); extern;
procedure GDS__DDL (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
mblr_length : [IMMEDIATE] gds__short;
mblr : gds__ptr_type
); extern;
procedure gds__DETACH_DATABASE (
var stat : gds__status_vector;
var db_handle : gds__handle
); extern;
procedure gds__DROP_DATABASE (
var stat : gds__status_vector;
name_length : [IMMEDIATE] gds__short;
file_name : gds__ptr_type;
db_type : [IMMEDIATE] gds__short
); extern;
function GDS__EVENT_BLOCK_A (
var events : gds__ptr_type;
var buffer : gds__ptr_type;
length : [IMMEDIATE] gds__short;
names : gds__evb_t
) : gds__short; extern;
procedure GDS__EVENT_COUNTS (
var counts : gds__vector;
length : [IMMEDIATE] gds__short;
event_buffer : [IMMEDIATE] gds__ptr_type;
result_buffer : [IMMEDIATE] gds__ptr_type
); extern;
procedure GDS__EVENT_WAIT (
var stat : gds__status_vector;
db_handle : gds__handle;
length : [IMMEDIATE] gds__short;
events : [IMMEDIATE] gds__ptr_type;
buffer : [IMMEDIATE] gds__ptr_type
); extern;
procedure GDS__GET_SLICE (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
blob_id : gds__quad;
sdl_length : [IMMEDIATE] gds__short;
sdl : gds__ptr_type;
param_length : [IMMEDIATE] gds__short;
param : gds__ptr_type;
slice_length : [IMMEDIATE] integer;
slice : gds__ptr_type;
var return_length : integer
); extern;
function gds__GET_SEGMENT (
var stat : gds__status_vector;
blob_handle : gds__handle;
var length : gds__short;
buffer_length : [IMMEDIATE] gds__short;
var buffer : gds__ptr_type
): integer; extern;
procedure gds__OPEN_BLOB (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
var blob_handle : gds__handle;
blob_id : gds__quad
); extern;
procedure GDS__OPEN_BLOB2 (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
var blob_handle : gds__handle;
blob_id : gds__quad;
bpb_length : integer;
bpb : gds__ptr_type
); extern;
procedure gds__PREPARE_TRANSACTION (
var stat : gds__status_vector;
var tra_handle : gds__handle
); extern;
procedure gds__STATUS_AND_STOP (
var stat : gds__status_vector
); extern;
function gds__PUT_SEGMENT (
var stat : gds__status_vector;
blob_handle : gds__handle;
length : [IMMEDIATE] gds__short;
buffer : gds__ptr_type
): integer; extern;
procedure GDS__PUT_SLICE (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
blob_id : gds__quad;
sdl_length : [IMMEDIATE] gds__short;
sdl : gds__ptr_type;
param_length : [IMMEDIATE] gds__short;
param : gds__ptr_type;
slice_length : [IMMEDIATE] integer;
slice : gds__ptr_type
); extern;
procedure GDS__QUE_EVENTS (
var stat : gds__status_vector;
db_handle : gds__handle;
id : gds__quad;
length : [IMMEDIATE] gds__short;
events : gds__ptr_type;
ast : gds__handle;
arg : gds__quad
); extern;
procedure gds__RECEIVE (
var stat : gds__status_vector;
request_handle : gds__handle;
message_type : [IMMEDIATE] gds__short;
message_length : [IMMEDIATE] gds__short;
var message : gds__ptr_type;
instantiation : [IMMEDIATE] gds__short
); extern;
procedure gds__RELEASE_REQUEST (
var stat : gds__status_vector;
var request_handle : gds__handle
); extern;
procedure gds__ROLLBACK_TRANSACTION (
var stat : gds__status_vector;
var tra_handle : gds__handle
); extern;
procedure gds__SEND (
var stat : gds__status_vector;
request_handle : gds__handle;
message_type : [IMMEDIATE] gds__short;
message_length : [IMMEDIATE] gds__short;
message : gds__ptr_type;
instantiation : [IMMEDIATE] gds__short
); extern;
procedure gds__START_AND_SEND (
var stat : gds__status_vector;
request_handle : gds__handle;
tra_handle : gds__handle;
message_type : [IMMEDIATE] gds__short;
message_length : [IMMEDIATE] gds__short;
message : gds__ptr_type;
instantiation : [IMMEDIATE] gds__short
); extern;
procedure gds__START_REQUEST (
var stat : gds__status_vector;
request_handle : gds__handle;
tra_handle : gds__handle;
instantiation : [IMMEDIATE] gds__short
); extern;
procedure gds__START_MULTIPLE (
var stat : gds__status_vector;
var tra_handle : gds__handle;
tra_count : [IMMEDIATE] gds__short;
teb : gds__ptr_type
); extern;
procedure gds__START_TRANSACTION (
var stat : gds__status_vector;
var tra_handle : gds__handle;
tra_count : [IMMEDIATE] gds__short;
db_handle : gds__handle;
tpb_length : [IMMEDIATE] gds__short;
tpb : gds__ptr_type
); extern;
procedure gds__UNWIND_REQUEST (
var stat : gds__status_vector;
request_handle : gds__handle;
instantiation : [IMMEDIATE] gds__short
); extern;
procedure isc_dsql_allocate_statement (
var stat : gds__status_vector;
db_handle : gds__handle;
var stmt_handle : gds__handle
); extern;
procedure isc_dsql_alloc_statement2 (
var stat : gds__status_vector;
db_handle : gds__handle;
var stmt_handle : gds__handle
); extern;
procedure isc_dsql_execute_m (
var stat : gds__status_vector;
tra_handle : gds__handle;
stmt_handle : gds__handle;
blr_length : [IMMEDIATE] gds__short;
blr : gds__ptr_type;
msg_type : [IMMEDIATE] gds__short;
msg_length : [IMMEDIATE] gds__short;
msg : gds__ptr_type
); extern;
procedure isc_dsql_execute2_m (
var stat : gds__status_vector;
tra_handle : gds__handle;
stmt_handle : gds__handle;
in_blr_length : [IMMEDIATE] gds__short;
in_blr : gds__ptr_type;
in_msg_type : [IMMEDIATE] gds__short;
in_msg_length : [IMMEDIATE] gds__short;
in_msg : gds__ptr_type;
out_blr_length : [IMMEDIATE] gds__short;
out_blr : gds__ptr_type;
out_msg_type : [IMMEDIATE] gds__short;
out_msg_length : [IMMEDIATE] gds__short;
var out_msg : gds__ptr_type
); extern;
procedure isc_dsql_free_statement (
var stat : gds__status_vector;
stmt_handle : gds__handle;
option : [IMMEDIATE] gds__short
); extern;
procedure isc_dsql_set_cursor_name (
var stat : gds__status_vector;
stmt_handle : gds__handle;
cursor_name : gds__ptr_type;
cursor_type : [IMMEDIATE] gds__short
); extern;
procedure gds__ftof (
string1 : [REFERENCE] gds__ptr_type;
length1 : [IMMEDIATE] gds__short;
string2 : [REFERENCE] gds__ptr_type;
length2 : [IMMEDIATE] gds__short
); extern;
procedure gds__print_status (
stat : gds__status_vector
); extern;
function gds__sqlcode (
stat : gds__status_vector
) : integer; extern;
procedure gds__encode_date (
times : gds__tm;
var date : gds__quad
); extern;
procedure gds__decode_date (
date : gds__quad;
var times : gds__tm
); extern;
procedure isc_exec_procedure (
var stat : gds__status_vector;
db_handle : gds__handle;
tra_handle : gds__handle;
name_length : [IMMEDIATE] gds__short;
proc_name : gds__ptr_type;
blr_length : [IMMEDIATE] gds__short;
blr : gds__ptr_type
in_msg_length : [IMMEDIATE] gds__short;
in_msg : gds__ptr_type;
out_msg_length : [IMMEDIATE] gds__short;
out_msg : gds__ptr_type
); extern;
const
gds__true = 1;
gds__false = 0;
blr_text = chr(14);
blr_short = chr(7);
blr_long = chr(8);
blr_quad = chr(9);
blr_float = chr(10);
blr_double = chr(27);
blr_d_float = chr(11);
blr_date = chr(35);
blr_varying = chr(37);
blr_cstring = chr(40);
(* blr_blob = chr(261); *)
blr_version4 = chr(4);
blr_version4_extended = chr(20);
blr_eoc = chr(76);
blr_end = chr(255);
blr_blob_id = chr(45);
blr_inner = chr(0);
blr_left = chr(1);
blr_right = chr(2);
blr_full = chr(3);
blr_gds_code = chr(0);
blr_sql_code = chr(1);
blr_exception = chr(2);
blr_trigger_code = chr(3);
blr_default_code = chr(4);
blr_assignment = chr(1);
blr_begin = chr(2);
blr_message = chr(4);
blr_erase = chr(5);
blr_fetch = chr(6);
blr_for = chr(7);
blr_if = chr(8);
blr_loop = chr(9);
blr_modify = chr(10);
blr_handler = chr(11);
blr_receive = chr(12);
blr_select = chr(13);
blr_send = chr(14);
blr_store = chr(15);
blr_label = chr(17);
blr_leave = chr(18);
blr_literal = chr(21);
blr_dbkey = chr(22);
blr_field = chr(23);
blr_fid = chr(24);
blr_parameter = chr(25);
blr_variable = chr(26);
blr_average = chr(27);
blr_count = chr(28);
blr_maximum = chr(29);
blr_minimum = chr(30);
blr_total = chr(31);
blr_add = chr(34);
blr_subtract = chr(35);
blr_multiply = chr(36);
blr_divide = chr(37);
blr_negate = chr(38);
blr_concatenate = chr(39);
blr_substring = chr(40);
blr_parameter2 = chr(41);
blr_from = chr(42);
blr_via = chr(43);
blr_null = chr(45);
blr_eql = chr(47);
blr_neq = chr(48);
blr_gtr = chr(49);
blr_geq = chr(50);
blr_lss = chr(51);
blr_leq = chr(52);
blr_containing = chr(53);
blr_matching = chr(54);
blr_starting = chr(55);
blr_between = chr(56);
blr_or = chr(57);
blr_and = chr(58);
blr_not = chr(59);
blr_any = chr(60);
blr_missing = chr(61);
blr_unique = chr(62);
blr_like = chr(63);
blr_stream = chr(65);
blr_set_index = chr(66);
blr_rse = chr(67);
blr_first = chr(68);
blr_project = chr(69);
blr_sort = chr(70);
blr_boolean = chr(71);
blr_ascending = chr(72);
blr_descending = chr(73);
blr_relation = chr(74);
blr_rid = chr(75);
blr_union = chr(76);
blr_map = chr(77);
blr_group_by = chr(78);
blr_aggregate = chr(79);
blr_agg_count = chr(83);
blr_agg_max = chr(84);
blr_agg_min = chr(85);
blr_agg_total = chr(86);
blr_agg_average = chr(87);
blr_run_count = chr(118);
blr_run_max = chr(89);
blr_run_min = chr(90);
blr_run_total = chr(91);
blr_run_average = chr(92);
blr_upcase = chr(103);
blr_lock_state = chr(104);
blr_value_if = chr(105);
blr_matching2 = chr(106);
blr_index = chr(107);
blr_ansi_like = chr(108);
blr_bookmark = chr(109);
blr_crack = chr(110);
blr_force_crack = chr(111);
blr_seek = chr(112);
blr_find = chr(113);
blr_lock_relation = chr(114);
blr_lock_record = chr(115);
blr_set_bookmark = chr(116);
blr_get_bookmark = chr(117);
blr_parameter3 = chr(88);
blr_rs_stream = chr(119);
blr_exec_proc = chr(120);
blr_begin_range = chr(121);
blr_end_range = chr(122);
blr_delete_range = chr(123);
blr_procedure = chr(124);
blr_pid = chr(125);
blr_exec_pid = chr(126);
blr_singular = chr(127);
blr_abort = chr(128);
blr_block = chr(129);
blr_error_handler = chr(130);
blr_cast = chr(131);
(* Database parameter block stuff *)
gds__dpb_version1 = chr (1);
gds__dpb_cdd_pathname = chr (1); (* not implemented *)
gds__dpb_allocation = chr (2); (* not implemented *)
gds__dpb_journal = chr (3);
gds__dpb_page_size = chr (4);
gds__dpb_num_buffers = chr (5);
gds__dpb_buffer_length = chr (6); (* not implemented *)
gds__dpb_debug = chr (7); (* not implemented *)
gds__dpb_garbage_collect = chr (8); (* not implemented *)
gds__dpb_verify = chr (9);
gds__dpb_sweep = chr (10);
gds__dpb_enable_journal = chr (11);
gds__dpb_disable_journal = chr (12);
gds__dpb_dbkey_scope = chr (13); (* not implemented *)
gds__dpb_number_of_users = chr (14); (* not implemented *)
gds__dpb_trace = chr (15); (* not implemented *)
gds__dpb_no_garbage_collect = chr (16); (* not implemented *)
gds__dpb_damaged = chr (17); (* not implemented *)
gds__dpb_license = chr (18);
gds__dpb_sys_user_name = chr (19);
gds__dpb_encrypt_key = chr (20);
gds__dpb_activate_shadow = chr (21);
gds__dpb_sweep_interval = chr (22);
gds__dpb_delete_shadow = chr (23);
gds__dpb_force_write = chr (24);
gds__dpb_begin_log = chr (25);
gds__dpb_quit_log = chr (26);
gds__dpb_no_reserve = chr (27);
gds__dpb_user_name = chr (28);
gds__dpb_password = chr (29);
gds__dpb_password_enc = chr (30);
gds__dpb_sys_user_name_enc = chr (31);
gds__dpb_pages = chr(1);
gds__dpb_records = chr(2);
gds__dpb_indices = chr(4);
gds__dpb_transactions = chr(8);
gds__dpb_no_update = chr(16);
gds__dpb_repair = chr(32);
gds__dpb_ignore = chr(64);
(* Transaction parameter block stuff *)
gds__tpb_version1 = chr (1);
gds__tpb_version3 = chr (3);
gds__tpb_consistency = chr (1);
gds__tpb_concurrency = chr (2);
gds__tpb_shared = chr (3);
gds__tpb_protected = chr (4);
gds__tpb_exclusive = chr (5);
gds__tpb_wait = chr (6);
gds__tpb_nowait = chr (7);
gds__tpb_read = chr (8);
gds__tpb_write = chr (9);
gds__tpb_lock_read = chr (10);
gds__tpb_lock_write = chr (11);
gds__tpb_verb_time = chr (12);
gds__tpb_commit_time = chr (13);
gds__tpb_ignore_limbo = chr (14);
(* Blob parameter block stuff *)
gds__bpb_version1 = chr (1);
gds__bpb_source_type = chr (1);
gds__bpb_target_type = chr (2);
gds__bpb_type = chr (3);
gds__bpb_type_segmented = chr (0);
gds__bpb_type_stream = chr (1);
(* Blob routine declarations *)
type
gds__field_name = array [1..31] of char;
gds__file_name = array [1..128] of char;
procedure blob__display (
blob_id : gds__quad;
db_handle : gds__handle;
tra_handle : gds__handle;
field_name : gds__ptr_type;
name_length : [IMMEDIATE] integer
); extern;
procedure blob__dump (
blob_id : gds__quad;
db_handle : gds__handle;
tra_handle : gds__handle;
file_name : gds__ptr_type;
name_length : [IMMEDIATE] integer
); extern;
procedure blob__edit (
blob_id : gds__quad;
db_handle : gds__handle;
tra_handle : gds__handle;
field_name : gds__ptr_type;
name_length : [IMMEDIATE] integer
); extern;
procedure blob__load (
blob_id : gds__quad;
db_handle : gds__handle;
tra_handle : gds__handle;
file_name : gds__ptr_type;
name_length : [IMMEDIATE] integer
); extern;
(* Dynamic SQL procedures *)
procedure gds__close (
var stat : gds__status_vector;
cursor_name : gds__ptr_type
); extern;
procedure gds__declare (
var stat : gds__status_vector;
statement_name : gds__ptr_type;
cursor_name : gds__ptr_type
); extern;
procedure gds__describe (
var stat : gds__status_vector;
statement_name : gds__ptr_type;
var descriptor : gds__ptr_type
); extern;
procedure gds__dsql_finish (
db_handle : gds__handle
); extern;
procedure gds__execute (
var stat : gds__status_vector;
trans_handle : gds__handle;
statement_name : gds__ptr_type;
var descriptor : gds__ptr_type
); extern;
procedure gds__execute_immediate (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
string_length : gds__short;
string : gds__ptr_type
); extern;
function gds__fetch (
var stat : gds__status_vector;
cursor_name : gds__ptr_type;
var descriptor : gds__ptr_type
) : integer; extern;
procedure gds__open (
var stat : gds__status_vector;
trans_handle : gds__handle;
cursor_name : gds__ptr_type;
var descriptor : gds__ptr_type
); extern;
procedure gds__prepare (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
statement_name : gds__ptr_type;
string_length : gds__short;
string : gds__ptr_type;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_close (
var stat : gds__status_vector;
cursor_name : gds__ptr_type
); extern;
procedure isc_embed_dsql_declare (
var stat : gds__status_vector;
statement_name : gds__ptr_type;
cursor_name : gds__ptr_type
); extern;
procedure isc_embed_dsql_describe (
var stat : gds__status_vector;
statement_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_describe_bind (
var stat : gds__status_vector;
statement_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_execute (
var stat : gds__status_vector;
trans_handle : gds__handle;
statement_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_execute2 (
var stat : gds__status_vector;
trans_handle : gds__handle;
statement_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var in_descriptor : gds__ptr_type;
var out_descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_execute_immed (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
string_length : [IMMEDIATE] gds__short;
string : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
function isc_embed_dsql_fetch (
var stat : gds__status_vector;
cursor_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
) : integer; extern;
procedure isc_embed_dsql_open (
var stat : gds__status_vector;
trans_handle : gds__handle;
cursor_name : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_prepare (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
statement_name : gds__ptr_type;
string_length : [IMMEDIATE] gds__short;
string : gds__ptr_type;
dialect : [IMMEDIATE] gds__short;
var descriptor : gds__ptr_type
); extern;
procedure isc_embed_dsql_release (
var stat : gds__status_vector;
statement_name : gds__ptr_type
); extern;
(* Information parameters *)
(* Common, structural codes *)
const
gds__info_end = chr(1);
gds__info_truncated = chr(2);
gds__info_error = chr(3);
(* Database information items *)
gds__info_db_id = chr(4);
gds__info_reads = chr(5);
gds__info_writes = chr(6);
gds__info_fetches = chr(7);
gds__info_marks = chr(8);
gds__info_implementation = chr(11);
gds__info_version = chr(12);
gds__info_base_level = chr(13);
gds__info_page_size = chr(14);
gds__info_num_buffers = chr(15);
gds__info_limbo = chr(16);
gds__info_current_memory = chr(17);
gds__info_max_memory = chr(18);
gds__info_window_turns = chr(19);
gds__info_license = chr(20);
gds__info_allocation = chr(21);
gds__info_attachment_id = chr(22);
gds__info_read_seq_count = chr(23);
gds__info_read_idx_count = chr(24);
gds__info_insert_count = chr(25);
gds__info_update_count = chr(26);
gds__info_delete_count = chr(27);
gds__info_backout_count = chr(28);
gds__info_purge_count = chr(29);
gds__info_expunge_count = chr(30);
gds__info_sweep_interval = chr(31);
gds__info_ods_version = chr(32);
gds__info_ods_minor_version = chr(33);
gds__info_no_reserve = chr(34);
(* Request information items *)
gds__info_number_messages = chr(4);
gds__info_max_message = chr(5);
gds__info_max_send = chr(6);
gds__info_max_receive = chr(7);
gds__info_state = chr(8);
gds__info_message_number = chr(9);
gds__info_message_size = chr(10);
gds__info_request_cost = chr(11);
gds__info_req_active = chr(2);
gds__info_req_inactive = chr(3);
gds__info_req_send = chr(4);
gds__info_req_receive = chr(5);
gds__info_req_select = chr(6);
(* Blob information items *)
gds__info_blob_num_segments = chr(4);
gds__info_blob_max_segment = chr(5);
gds__info_blob_total_length = chr(6);
gds__info_blob_type = chr(7);
(* Transaction information items *)
gds__info_tra_id = chr(4);
(* SQL information items *)
gds__info_sql_select = chr(4);
gds__info_sql_bind = chr(5);
gds__info_sql_num_variables = chr(6);
gds__info_sql_describe_vars = chr(7);
gds__info_sql_describe_end = chr(8);
gds__info_sql_sqlda_seq = chr(9);
gds__info_sql_message_seq = chr(10);
gds__info_sql_type = chr(11);
gds__info_sql_sub_type = chr(12);
gds__info_sql_scale = chr(13);
gds__info_sql_length = chr(14);
gds__info_sql_null_ind = chr(15);
gds__info_sql_field = chr(16);
gds__info_sql_relation = chr(17);
gds__info_sql_owner = chr(18);
gds__info_sql_alias = chr(19);
(* Error codes *)
const
gds_facility = 20;
gds_err_base = 335544320;
gds_err_factor = 1;
gds_arg_end = 0; (* end of argument list *)
gds_arg_gds = 1; (* generic DSRI status value *)
gds_arg_string = 2; (* string argument *)
gds_arg_cstring = 3; (* count & string argument *)
gds_arg_number = 4; (* numeric argument (long) *)
gds_arg_interpreted = 5; (* interpreted status code (string) *)
gds_arg_vms = 6; (* VAX/VMS status code (long) *)
gds_arg_unix = 7; (* UNIX error code *)
gds_arg_domain = 8; (* Apollo/Domain error code *)
gds_arg_dos = 9; (* DOS error code *)
gds_arg_mpexl = 10; (* MPE XL error code *)
gds_arg_mpexl_ipc = 11; (* MPE XL (IPC) error code *)
gds__arith_except = 335544321;
gds__bad_dbkey = 335544322;
gds__bad_db_format = 335544323;
gds__bad_db_handle = 335544324;
gds__bad_dpb_content = 335544325;
gds__bad_dpb_form = 335544326;
gds__bad_req_handle = 335544327;
gds__bad_segstr_handle = 335544328;
gds__bad_segstr_id = 335544329;
gds__bad_tpb_content = 335544330;
gds__bad_tpb_form = 335544331;
gds__bad_trans_handle = 335544332;
gds__bug_check = 335544333;
gds__convert_error = 335544334;
gds__db_corrupt = 335544335;
gds__deadlock = 335544336;
gds__excess_trans = 335544337;
gds__from_no_match = 335544338;
gds__infinap = 335544339;
gds__infona = 335544340;
gds__infunk = 335544341;
gds__integ_fail = 335544342;
gds__invalid_blr = 335544343;
gds__io_error = 335544344;
gds__lock_conflict = 335544345;
gds__metadata_corrupt = 335544346;
gds__not_valid = 335544347;
gds__no_cur_rec = 335544348;
gds__no_dup = 335544349;
gds__no_finish = 335544350;
gds__no_meta_update = 335544351;
gds__no_priv = 335544352;
gds__no_recon = 335544353;
gds__no_record = 335544354;
gds__no_segstr_close = 335544355;
gds__obsolete_metadata = 335544356;
gds__open_trans = 335544357;
gds__port_len = 335544358;
gds__read_only_field = 335544359;
gds__read_only_rel = 335544360;
gds__read_only_trans = 335544361;
gds__read_only_view = 335544362;
gds__req_no_trans = 335544363;
gds__req_sync = 335544364;
gds__req_wrong_db = 335544365;
gds__segment = 335544366;
gds__segstr_eof = 335544367;
gds__segstr_no_op = 335544368;
gds__segstr_no_read = 335544369;
gds__segstr_no_trans = 335544370;
gds__segstr_no_write = 335544371;
gds__segstr_wrong_db = 335544372;
gds__sys_request = 335544373;
gds__unavailable = 335544375;
gds__unres_rel = 335544376;
gds__uns_ext = 335544377;
gds__wish_list = 335544378;
gds__wrong_ods = 335544379;
gds__wronumarg = 335544380;
gds__imp_exc = 335544381;
gds__random = 335544382;
gds__fatal_conflict = 335544383;
(* Minor codes subject to change *)
gds__badblk = 335544384;
gds__invpoolcl = 335544385;
gds__nopoolids = 335544386;
gds__relbadblk = 335544387;
gds__blktoobig = 335544388;
gds__bufexh = 335544389;
gds__syntaxerr = 335544390;
gds__bufinuse = 335544391;
gds__bdbincon = 335544392;
gds__reqinuse = 335544393;
gds__badodsver = 335544394;
gds__relnotdef = 335544395;
gds__fldnotdef = 335544396;
gds__dirtypage = 335544397;
gds__waifortra = 335544398;
gds__doubleloc = 335544399;
gds__nodnotfnd = 335544400;
gds__dupnodfnd = 335544401;
gds__locnotmar = 335544402;
gds__badpagtyp = 335544403;
gds__corrupt = 335544404;
gds__badpage = 335544405;
gds__badindex = 335544406;
gds__dbbnotzer = 335544407;
gds__tranotzer = 335544408;
gds__trareqmis = 335544409;
gds__badhndcnt = 335544410;
gds__wrotpbver = 335544411;
gds__wroblrver = 335544412;
gds__wrodpbver = 335544413;
gds__blobnotsup = 335544414;
gds__badrelation = 335544415;
gds__nodetach = 335544416;
gds__notremote = 335544417;
gds__trainlim = 335544418;
gds__notinlim = 335544419;
gds__traoutsta = 335544420;
gds__connect_reject = 335544421;
gds__dbfile = 335544422;
gds__orphan = 335544423;
gds__no_lock_mgr = 335544424;
gds__ctxinuse = 335544425;
gds__ctxnotdef = 335544426;
gds__datnotsup = 335544427;
gds__badmsgnum = 335544428;
gds__badparnum = 335544429;
gds__virmemexh = 335544430;
gds__blocking_signal = 335544431;
gds__lockmanerr = 335544432;
gds__journerr = 335544433;
gds__keytoobig = 335544434;
gds__nullsegkey = 335544435;
gds__sqlerr = 335544436;
gds__wrodynver = 335544437;
gds__obj_in_use = 335544453;
gds__nofilter = 335544454;
gds__shadow_accessed = 335544455;
gds__invalid_sdl = 335544456;
gds__out_of_bounds = 335544457;
gds__invalid_dimension = 335544458;
gds__rec_in_limbo = 335544459;
gds__shadow_missing = 335544460;
gds__cant_validate = 335544461;
gds__cant_start_journal = 335544462;
gds__gennotdef = 335544463;
gds__cant_start_logging = 335544464;
gds__bad_segstr_type = 335544465;
gds__foreign_key = 335544466;
gds__high_minor = 335544467;
gds__tra_state = 335544468;
gds__trans_invalid = 335544469;
gds__buf_invalid = 335544470;
gds__indexnotdefined = 335544471;
gds__login = 335544472;
gds__invalid_bookmark = 335544473;
gds__bad_lock_level = 335544474;
gds__relation_lock = 335544475;
gds__record_lock = 335544476;
gds__max_idx = 335544477;
gds__jrn_enable = 335544478;
gds__old_failure = 335544479;
gds__old_in_progress = 335544480;
gds__old_no_space = 335544481;
gds__no_wal_no_jrn = 335544482;
gds__num_old_files = 335544483;
gds__wal_file_open = 335544484;
gds__bad_stmt_handle = 335544485;
gds__wal_failure = 335544486;
gds__walw_err = 335544487;
gds__logh_small = 335544488;
gds__logh_inv_version = 335544489;
gds__logh_open_flag = 335544490;
gds__logh_open_flag2 = 335544491;
gds__logh_diff_dbname = 335544492;
gds__logf_unexpected_eof = 335544493;
gds__logr_incomplete = 335544494;
gds__logr_header_small = 335544495;
gds__logb_small = 335544496;
gds__wal_illegal_attach = 335544497;
gds__wal_invalid_wpb = 335544498;
gds__wal_err_rollover = 335544499;
gds__no_wal = 335544500;
gds__drop_wal = 335544501;
gds__stream_not_defined = 335544502;
gds__unknown_183 = 335544503;
gds__wal_subsys_error = 335544504;
gds__wal_subsys_corrupt = 335544505;
gds__no_archive = 335544506;
gds__store_proc_failed = 335544507;
gds__range_in_use = 335544508;
gds__range_not_found = 335544509;
gds__charset_not_found = 335544510;
gds__lock_timeout = 335544511;
gds__prcnotdef = 335544512;
gds__prcmismat = 335544513;
gds_err_max = 193;
(* Dynamic Data Definition Language operators *)
(* Version number *)
gds__dyn_version_1 = chr(1);
gds__dyn_eoc = chr(255);
(* Operations (may be nested) *)
gds__dyn_begin = chr(2);
gds__dyn_end = chr(3);
gds__dyn_if = chr(4);
gds__dyn_def_database = chr(5);
gds__dyn_def_global_fld = chr(6);
gds__dyn_def_local_fld = chr(7);
gds__dyn_def_idx = chr(8);
gds__dyn_def_rel = chr(9);
gds__dyn_def_sql_fld = chr(10);
gds__dyn_def_view = chr(12);
gds__dyn_def_trigger = chr(15);
gds__dyn_def_security_class = chr(120);
gds__dyn_def_dimension = chr(140);
gds__dyn_mod_rel = chr(11);
gds__dyn_mod_global_fld = chr(13);
gds__dyn_mod_idx = chr(102);
gds__dyn_mod_local_fld = chr(14);
gds__dyn_mod_view = chr(16);
gds__dyn_mod_security_class = chr(122);
gds__dyn_mod_trigger = chr(113);
gds__dyn_delete_database = chr(18);
gds__dyn_delete_rel = chr(19);
gds__dyn_delete_global_fld = chr(20);
gds__dyn_delete_local_fld = chr(21);
gds__dyn_delete_idx = chr(22);
gds__dyn_delete_security_class = chr(123);
gds__dyn_delete_dimensions = chr(143);
gds__dyn_grant = chr(30);
gds__dyn_revoke = chr(31);
gds__dyn_def_primary_key = chr(37);
gds__dyn_def_foreign_key = chr(38);
gds__dyn_def_unique = chr(40);
gds__dyn_def_procedure = chr(164);
gds__dyn_delete_procedure = chr(165);
gds__dyn_def_parameter = chr(135);
gds__dyn_delete_parameter = chr(136);
gds__dyn_def_intl_info = chr(172);
gds__dyn_mod_procedure = chr(175);
(* Booleans *)
gds__dyn_rel_defined = chr(30);
gds__dyn_global_fld_defined = chr(31);
gds__dyn_local_fld_defined = chr(32);
gds__dyn_index_defined = chr(33);
gds__dyn_not = chr(34);
gds__dyn_and = chr(35);
gds__dyn_or = chr(36);
(* View specific stuff *)
gds__dyn_view_blr = chr(43);
gds__dyn_view_source = chr(44);
gds__dyn_view_relation = chr(45);
gds__dyn_view_context = chr(46);
gds__dyn_view_context_name = chr(47);
(* Generic attributes *)
gds__dyn_rel_name = chr(50);
gds__dyn_fld_name = chr(51);
gds__dyn_idx_name = chr(52);
gds__dyn_description = chr(53);
gds__dyn_security_class = chr(54);
gds__dyn_system_flag = chr(55);
gds__dyn_update_flag = chr(56);
gds__dyn_prc_name = chr(166);
gds__dyn_prm_name = chr(137);
(* Relation specific attributes *)
gds__dyn_rel_dbkey_length = chr(61);
gds__dyn_rel_store_trig = chr(62);
gds__dyn_rel_modify_trig = chr(63);
gds__dyn_rel_erase_trig = chr(64);
gds__dyn_rel_store_trig_source = chr(65);
gds__dyn_rel_modify_trig_source = chr(66);
gds__dyn_rel_erase_trig_source = chr(67);
gds__dyn_rel_erase_ext_file = chr(68);
gds__dyn_rel_sql_protection = chr(69);
gds__dyn_rel_constraint = chr(162);
gds__dyn_delete_rel_constraint = chr(163);
(* Global field specific attributes *)
gds__dyn_fld_type = chr(70);
gds__dyn_fld_length = chr(71);
gds__dyn_fld_scale = chr(72);
gds__dyn_fld_sub_type = chr(73);
gds__dyn_fld_segment_length = chr(74);
gds__dyn_fld_query_header = chr(75);
gds__dyn_fld_edit_string = chr(76);
gds__dyn_fld_validation_blr = chr(77);
gds__dyn_fld_validate_source = chr(78);
gds__dyn_fld_computed_blr = chr(79);
gds__dyn_fld_computed_source = chr(80);
gds__dyn_fld_missing_value = chr(81);
gds__dyn_fld_default_value = chr(82);
gds__dyn_fld_query_name = chr(83);
gds__dyn_fld_dimensions = chr(84);
gds__dyn_fld_not_null = chr(85);
gds__dyn_fld_collation_name = chr(173);
gds__dyn_fld_character_set_name = chr(174);
(* Local field specific attributes *)
gds__dyn_fld_source = chr(90);
gds__dyn_fld_base_fld = chr(91);
gds__dyn_fld_position = chr(92);
gds__dyn_fld_update_flag = chr(93);
(* Index specific attributes *)
gds__dyn_idx_unique = chr(100);
gds__dyn_idx_active = chr(101);
gds__dyn_idx_type = chr(103);
gds__dyn_idx_foreign_key = chr(104);
gds__dyn_idx_ref_column = chr(105);
(* Trigger specific attributes *)
gds__dyn_trg_type = chr(110);
gds__dyn_trg_blr = chr(111);
gds__dyn_trg_source = chr(112);
gds__dyn_trg_name = chr(114);
gds__dyn_trg_sequence = chr(115);
gds__dyn_trg_inactive = chr(116);
gds__dyn_trg_msg_number = chr(117);
gds__dyn_trg_msg = chr(118);
(* Security Class specific attributes *)
gds__dyn_scl_acl = chr(121);
(* Grant/Revoke specific attributes *)
gds__dyn_grant_user = chr(130);
gds__dyn_grant_proc = chr(186);
gds__dyn_grant_trig = chr(187);
gds__dyn_grant_view = chr(188);
gds__dyn_grant_grantor = chr(131);
gds__dyn_grant_options = chr(132);
(* dimension specific stuff *)
gds__dyn_dim_lower = chr(141);
gds__dyn_dim_upper = chr(142);
(* File specific attributes *)
gds__dyn_file_name = chr(125);
gds__dyn_file_start = chr(126);
gds__dyn_file_length = chr(127);
gds__dyn_shadow_number = chr(128);
gds__dyn_shadow_man_auto = chr(129);
gds__dyn_shadow_conditional = chr(130);
(* Function specific attributes *)
gds__dyn_function_name = chr(145);
gds__dyn_function_type = chr(146);
gds__dyn_func_module_name = chr(147);
gds__dyn_func_entry_point = chr(148);
gds__dyn_func_return_argument = chr(149);
gds__dyn_func_arg_position = chr(150);
gds__dyn_func_mechanism = chr(151);
gds__dyn_filter_in_subtype = chr(152);
gds__dyn_filter_out_subtype = chr(153);
(* Generator specific attributes *)
gds__dyn_generator_name = chr(95);
gds__dyn_generator_id = chr(96);
(* International specific attributes *)
gds__dyn_fld_cription2 = chr(154);
gds__dyn_fld_computed_source2 = chr(155);
gds__dyn_fld_edit_string2 = chr(156);
gds__dyn_fld_query_header2 = chr(157);
gds__dyn_fld_validation_source2 = chr(158);
gds__dyn_fld_trg_msg2 = chr(159);
gds__dyn_fld_trg_source2 = chr(160);
gds__dyn_fld_view_source2 = chr(161);
(* Procedure specific attributes *)
gds__dyn_prc_inputs = chr(167);
gds__dyn_prc_outputs = chr(168);
gds__dyn_prc_source = chr(169);
gds__dyn_prc_blr = chr(170);
gds__dyn_prc_source2 = chr(171);
(* Procedure parameter specific attributes *)
gds__dyn_prm_number = chr(138);
gds__dyn_prm_type = chr(139);
(* Exception specific attributes *)
gds__dyn_def_exception = chr(181);
gds__dyn_mod_exception = chr(182);
gds__dyn_del_exception = chr(183);
gds__dyn_xcp_msg2 = chr(184);
gds__dyn_xcp_msg = chr(185);
(* Array slice description language (SDL) *)
gds__sdl_version1 = chr(1);
gds__sdl_eoc = chr(255);
gds__sdl_relation = chr(2);
gds__sdl_rid = chr(3);
gds__sdl_field = chr(4);
gds__sdl_fid = chr(5);
gds__sdl_struct = chr(6);
gds__sdl_variable = chr(7);
gds__sdl_scalar = chr(8);
gds__sdl_tiny_integer = chr(9);
gds__sdl_short_integer = chr(10);
gds__sdl_long_integer = chr(11);
gds__sdl_literal = chr(12);
gds__sdl_add = chr(13);
gds__sdl_subtract = chr(14);
gds__sdl_multiply = chr(15);
gds__sdl_divide = chr(16);
gds__sdl_negate = chr(17);
gds__sdl_eql = chr(18);
gds__sdl_neq = chr(19);
gds__sdl_gtr = chr(20);
gds__sdl_geq = chr(21);
gds__sdl_lss = chr(22);
gds__sdl_leq = chr(23);
gds__sdl_and = chr(24);
gds__sdl_or = chr(25);
gds__sdl_not = chr(26);
gds__sdl_while = chr(27);
gds__sdl_assignment = chr(28);
gds__sdl_label = chr(29);
gds__sdl_leave = chr(30);
gds__sdl_begin = chr(31);
gds__sdl_end = chr(32);
gds__sdl_do3 = chr(33);
gds__sdl_do2 = chr(34);
gds__sdl_do1 = chr(35);
gds__sdl_element = chr(36);
(* Dynamic SQL datatypes *)
const
SQL_TEXT = 452;
SQL_VARYING = 448;
SQL_SHORT = 500;
SQL_LONG = 496;
SQL_FLOAT = 482;
SQL_DOUBLE = 480;
SQL_D_FLOAT = 530;
SQL_DATE = 510;
SQL_BLOB = 520;
(* Forms Package definitions *)
(* Map definition block definitions *)
const
PYXIS__MAP_VERSION1 = chr(1);
PYXIS__MAP_FIELD2 = chr(2);
PYXIS__MAP_FIELD1 = chr(3);
PYXIS__MAP_MESSAGE = chr(4);
PYXIS__MAP_TERMINATOR = chr(5);
PYXIS__MAP_TERMINATING_FIELD = chr(6);
PYXIS__MAP_OPAQUE = chr(7);
PYXIS__MAP_TRANSPARENT = chr(8);
PYXIS__MAP_TAG = chr(9);
PYXIS__MAP_SUB_FORM = chr(10);
PYXIS__MAP_ITEM_INDEX = chr(11);
PYXIS__MAP_SUB_FIELD = chr(12);
PYXIS__MAP_END = chr(255);
(* Field option flags for display options *)
const
PYXIS__OPT_DISPLAY = 1;
PYXIS__OPT_UPDATE = 2;
PYXIS__OPT_WAKEUP = 4;
PYXIS__OPT_POSITION = 8;
(* Field option values following display *)
const
PYXIS__OPT_NULL = 1;
PYXIS__OPT_DEFAULT = 2;
PYXIS__OPT_INITIAL = 3;
PYXIS__OPT_USER_DATA = 4;
(* Pseudo key definitions *)
const
PYXIS__KEY_DELETE = 127;
PYXIS__KEY_UP = 128;
PYXIS__KEY_DOWN = 129;
PYXIS__KEY_RIGHT = 130;
PYXIS__KEY_LEFT = 131;
PYXIS__KEY_PF1 = 132;
PYXIS__KEY_PF2 = 133;
PYXIS__KEY_PF3 = 134;
PYXIS__KEY_PF4 = 135;
PYXIS__KEY_PF5 = 136;
PYXIS__KEY_PF6 = 137;
PYXIS__KEY_PF7 = 138;
PYXIS__KEY_PF8 = 139;
PYXIS__KEY_PF9 = 140;
PYXIS__KEY_ENTER = 141;
PYXIS__KEY_SCROLL_TOP = 146;
PYXIS__KEY_SCROLL_BOTTOM = 147;
(* Menu definition stuff *)
const
PYXIS__MENU_VERSION1 = chr(1);
PYXIS__MENU_LABEL = chr(2);
PYXIS__MENU_ENTREE = chr(3);
PYXIS__MENU_OPAQUE = chr(4);
PYXIS__MENU_TRANSPARENT = chr(5);
PYXIS__MENU_HORIZONTAL = chr(6);
PYXIS__MENU_VERTICAL = chr(7);
PYXIS__MENU_END = chr(255);
procedure pyxis__compile_map (
var stat : gds__status_vector;
form_handle : gds__handle;
var map_handle : gds__handle;
length : gds__short;
map : gds__ptr_type
); extern;
procedure pyxis__compile_sub_map (
var stat : gds__status_vector;
form_handle : gds__handle;
var map_handle : gds__handle;
length : gds__short;
map : gds__ptr_type
); extern;
procedure pyxis__create_window (
var window_handle : gds__handle;
name_length : gds__short;
file_name : gds__ptr_type;
var width : gds__short;
var height : gds__short
); extern;
procedure pyxis__delete_window (
var window_handle : gds__handle
); extern;
procedure pyxis__drive_form (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
var window_handle : gds__handle;
map_handle : gds__handle;
input : gds__ptr_type;
output : gds__ptr_type
); extern;
procedure pyxis__fetch (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
map_handle : gds__handle;
output : gds__ptr_type
); extern;
procedure pyxis__insert (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
map_handle : gds__handle;
input : gds__ptr_type
); extern;
procedure pyxis__load_form (
var stat : gds__status_vector;
db_handle : gds__handle;
trans_handle : gds__handle;
var form_handle : gds__handle;
name_length : gds__short;
form_name : gds__ptr_type
); extern;
function pyxis__menu (
var window_handle : gds__handle;
var menu_handle : gds__handle;
length : gds__short;
menu : gds__ptr_type
) : gds__short; extern;
procedure pyxis__pop_window (
window_handle : gds__handle
); extern;
procedure pyxis__reset_form (
var stat : gds__status_vector;
window_handle : gds__handle
); extern;
procedure pyxis__drive_menu (
var window_handle : gds__handle;
var menu_handle : gds__handle;
blr_length : gds__short;
blr_source : gds__ptr_type;
title_length : gds__short;
title : gds__ptr_type;
var terminator : gds__short;
var entree_length : gds__short;
entree_text : gds__ptr_type;
var entree_value : integer
); extern;
procedure pyxis__get_entree (
menu_handle : gds__handle;
var entree_length : gds__short;
entree_text : gds__ptr_type;
var entree_value : integer;
var entree_end : gds__short
); extern;
procedure pyxis__initialize_menu (
var menu_handle : gds__handle
); extern;
procedure pyxis__put_entree (
menu_handle : gds__handle;
entree_length : gds__short;
entree_text : gds__ptr_type;
entree_value : integer
); extern;
[HIDDEN] PROCEDURE LIB$SCOPY_DXDX; EXTERNAL;
View Git Blame Copy Permalink