firebird/firebird-mirror
firebird/firebird-mirror
8
0
Fork 1
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 21:23:04 +01:00
Code Issues
B2_0_Release
firebird-mirror/lang_helpers/gds.pli

1028 lines
31 KiB
Plaintext
Raw Permalink 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: PLI preprocessor
* MODULE: gds.pli
* DESCRIPTION: BLR constants
*/
%REPLACE GDS__TRUE BY 1;
%REPLACE GDS__FALSE BY 0;
%REPLACE blr_text BY 14;
%REPLACE blr_short BY 7;
%REPLACE blr_long BY 8;
%REPLACE blr_quad BY 9;
%REPLACE blr_float BY 10;
%REPLACE blr_double BY 27;
%REPLACE blr_d_float BY 11;
%REPLACE blr_date BY 35;
%REPLACE blr_varying BY 37;
%REPLACE blr_blob BY 261;
%REPLACE blr_cstring BY 40;
%REPLACE blr_version4 BY 4;
%REPLACE blr_version4_extended BY 20;
%REPLACE blr_eoc BY 76;
%REPLACE blr_end BY 255;
%REPLACE blr_assignment BY 1;
%REPLACE blr_begin BY 2;
%REPLACE blr_message BY 4;
%REPLACE blr_erase BY 5;
%REPLACE blr_fetch BY 6;
%REPLACE blr_for BY 7;
%REPLACE blr_if BY 8;
%REPLACE blr_loop BY 9;
%REPLACE blr_modify BY 10;
%REPLACE blr_handler BY 11;
%REPLACE blr_receive BY 12;
%REPLACE blr_select BY 13;
%REPLACE blr_send BY 14;
%REPLACE blr_store BY 15;
%REPLACE blr_label BY 17;
%REPLACE blr_leave BY 18;
%REPLACE blr_literal BY 21;
%REPLACE blr_dbkey BY 22;
%REPLACE blr_field BY 23;
%REPLACE blr_fid BY 24;
%REPLACE blr_parameter BY 25;
%REPLACE blr_variable BY 26;
%REPLACE blr_average BY 27;
%REPLACE blr_count BY 28;
%REPLACE blr_maximum BY 29;
%REPLACE blr_minimum BY 30;
%REPLACE blr_total BY 31;
%REPLACE blr_add BY 34;
%REPLACE blr_subtract BY 35;
%REPLACE blr_multiply BY 36;
%REPLACE blr_divide BY 37;
%REPLACE blr_negate BY 38;
%REPLACE blr_concatenate BY 39;
%REPLACE blr_substring BY 40;
%REPLACE blr_parameter2 BY 41;
%REPLACE blr_from BY 42;
%REPLACE blr_via BY 43;
%REPLACE blr_null BY 45;
%REPLACE blr_eql BY 47;
%REPLACE blr_neq BY 48;
%REPLACE blr_gtr BY 49;
%REPLACE blr_geq BY 50;
%REPLACE blr_lss BY 51;
%REPLACE blr_leq BY 52;
%REPLACE blr_containing BY 53;
%REPLACE blr_matching BY 54;
%REPLACE blr_starting BY 55;
%REPLACE blr_between BY 56;
%REPLACE blr_or BY 57;
%REPLACE blr_and BY 58;
%REPLACE blr_not BY 59;
%REPLACE blr_any BY 60;
%REPLACE blr_missing BY 61;
%REPLACE blr_unique BY 62;
%REPLACE blr_like BY 63;
%REPLACE blr_stream BY 65;
%REPLACE blr_set_index BY 66;
%REPLACE blr_rse BY 67;
%REPLACE blr_first BY 68;
%REPLACE blr_project BY 69;
%REPLACE blr_sort BY 70;
%REPLACE blr_boolean BY 71;
%REPLACE blr_ascending BY 72;
%REPLACE blr_descending BY 73;
%REPLACE blr_relation BY 74;
%REPLACE blr_rid BY 75;
%REPLACE blr_union BY 76;
%REPLACE blr_map BY 77;
%REPLACE blr_group_by BY 78;
%REPLACE blr_aggregate BY 79;
%REPLACE blr_join_type BY 80;
%REPLACE blr_agg_count BY 83;
%REPLACE blr_agg_max BY 84;
%REPLACE blr_agg_min BY 85;
%REPLACE blr_agg_total BY 86;
%REPLACE blr_agg_average BY 87;
%REPLACE blr_run_count BY 88;
%REPLACE blr_run_max BY 89;
%REPLACE blr_run_min BY 90;
%REPLACE blr_run_total BY 91;
%REPLACE blr_run_average BY 92;
%REPLACE blr_upcase BY 103;
%REPLACE blr_lock_state BY 104;
%REPLACE blr_value_if BY 105;
%REPLACE blr_matching2 BY 106;
%REPLACE blr_index BY 107;
%REPLACE blr_ansi_like BY 108;
%REPLACE blr_bookmark BY 109;
%REPLACE blr_crack BY 110;
%REPLACE blr_force_crack BY 111;
%REPLACE blr_seek BY 112;
%REPLACE blr_find BY 113;
%REPLACE blr_lock_relation BY 114;
%REPLACE blr_lock_record BY 115;
%REPLACE blr_set_bookmark BY 116;
%REPLACE blr_get_bookmark BY 117;
%REPLACE blr_rs_stream BY 119;
%REPLACE blr_exec_proc BY 120;
%REPLACE blr_begin_range BY 121;
%REPLACE blr_end_range BY 122;
%REPLACE blr_delete_range BY 123;
%REPLACE blr_inner BY 0;
%REPLACE blr_left BY 1;
%REPLACE blr_right BY 2;
%REPLACE blr_full BY 3;
/* Array slice description language (SDL) */
%REPLACE gds__sdl_version1 BY 1;
%REPLACE gds__sdl_eoc BY -1;
%REPLACE gds__sdl_relation BY 2;
%REPLACE gds__sdl_rid BY 3;
%REPLACE gds__sdl_field BY 4;
%REPLACE gds__sdl_fid BY 5;
%REPLACE gds__sdl_struct BY 6;
%REPLACE gds__sdl_variable BY 7;
%REPLACE gds__sdl_scalar BY 8;
%REPLACE gds__sdl_tiny_integer BY 9;
%REPLACE gds__sdl_short_integer BY 10;
%REPLACE gds__sdl_long_integer BY 11;
%REPLACE gds__sdl_literal BY 12;
%REPLACE gds__sdl_add BY 13;
%REPLACE gds__sdl_subtract BY 14;
%REPLACE gds__sdl_multiply BY 15;
%REPLACE gds__sdl_divide BY 16;
%REPLACE gds__sdl_negate BY 17;
%REPLACE gds__sdl_eql BY 18;
%REPLACE gds__sdl_neq BY 19;
%REPLACE gds__sdl_gtr BY 20;
%REPLACE gds__sdl_geq BY 21;
%REPLACE gds__sdl_lss BY 22;
%REPLACE gds__sdl_leq BY 23;
%REPLACE gds__sdl_and BY 24;
%REPLACE gds__sdl_or BY 25;
%REPLACE gds__sdl_not BY 26;
%REPLACE gds__sdl_while BY 27;
%REPLACE gds__sdl_assignment BY 28;
%REPLACE gds__sdl_label BY 29;
%REPLACE gds__sdl_leave BY 30;
%REPLACE gds__sdl_begin BY 31;
%REPLACE gds__sdl_end BY 32;
%REPLACE gds__sdl_do3 BY 33;
%REPLACE gds__sdl_do2 BY 34;
%REPLACE gds__sdl_do1 BY 35;
%REPLACE gds__sdl_element BY 36;
%REPLACE dsc$k_dtype_t BY 14;
%REPLACE dsc$k_dtype_vt BY 37;
%REPLACE dsc$k_dtype_w BY 7;
%REPLACE dsc$k_dtype_l BY 8;
%REPLACE dsc$k_dtype_q BY 9;
%REPLACE dsc$k_dtype_f BY 10;
%REPLACE dsc$k_dtype_g BY 27;
%REPLACE dsc$k_dtype_adt BY 35;
%REPLACE rdb$k_dpb_cdd_pathname BY 1;
%REPLACE rdb$k_dpb_allocation BY 2;
%REPLACE rdb$k_dpb_aij BY 3;
%REPLACE rdb$k_dpb_page_size BY 4;
%REPLACE rdb$k_dpb_num_buff BY 5;
%REPLACE rdb$k_dpb_buffer_length BY 6;
%REPLACE rdb$k_dpb_debug BY 7;
%REPLACE rdb$k_dpb_garbage_collect BY 8;
%REPLACE rdb$k_dpb_verify BY 9;
%REPLACE rdb$k_dpb_sweep BY 10;
%REPLACE rdb$k_dpb_enable_journal BY 11;
%REPLACE rdb$k_dpb_disable_journal BY 12;
%REPLACE rdb$k_dpb_dbkey_scope BY 13;
%REPLACE rdb$k_dpb_number_of_users BY 14;
%REPLACE rdb$k_db_type_default BY 0;
%REPLACE rdb$k_db_type_vms BY 1;
%REPLACE rdb$k_db_type_eln BY 2;
%REPLACE rdb$k_db_type_gds BY -1;
/* Database parameter block stuff */
%REPLACE gds__dpb_cdd_pathname BY 1; /* not implemented */
%REPLACE gds__dpb_allocation BY 2; /* not implemented */
%REPLACE gds__dpb_journal BY 3; /* not implemented */
%REPLACE gds__dpb_page_size BY 4;
%REPLACE gds__dpb_buffers BY 5;
%REPLACE gds__dpb_buffer_length BY 6; /* not implemented */
%REPLACE gds__dpb_debug BY 7; /* not implemented */
%REPLACE gds__dpb_garbage_collect BY 8; /* not implemented */
%REPLACE gds__dpb_verify BY 9;
%REPLACE gds__dpb_sweep BY 10;
%REPLACE gds__dpb_enable_journal BY 11;
%REPLACE gds__dpb_disable_journal BY 12;
%REPLACE gds__dpb_dbkey_scope BY 13; /* not implemented */
%REPLACE gds__dpb_number_of_users BY 14; /* not implemented */
%REPLACE gds__dpb_trace BY 15; /* not implemented */
%REPLACE gds__dpb_no_garbage_collect BY 16; /* not implemented */
%REPLACE gds__dpb_damaged BY 17; /* not implemented */
%REPLACE gds__dpb_license BY 18;
%REPLACE gds__dpb_sys_user_name BY 19; /* User Name (advisory only) */
%REPLACE gds__dpb_encrypt_key BY 20; /* Encryption key */
%REPLACE gds__dpb_activate_shadow BY 21;
%REPLACE gds__dpb_sweep_interval BY 22;
%REPLACE gds__dpb_delete_shadow BY 23;
%REPLACE gds__dpb_pages BY 1;
%REPLACE gds__dpb_records BY 2;
%REPLACE gds__dpb_indices BY 4;
%REPLACE gds__dpb_transactions BY 8;
%REPLACE gds__dpb_no_update BY 16;
%REPLACE gds__dpb_repair BY 32;
/* Bit assignments in RDB$SYSTEM_FLAG */
%REPLACE RDB_system BY 1; /* Object belongs to system */
%REPLACE RDB_id_assigned BY 2; /* Internal id has been assigned */
/* Transaction parameter blob stuff */
%REPLACE gds__tpb_version1 BY 1;
%REPLACE gds__tpb_version3 BY 3;
%REPLACE gds__tpb_consistency BY 1;
%REPLACE gds__tpb_concurrency BY 2;
%REPLACE gds__tpb_shared BY 3;
%REPLACE gds__tpb_protected BY 4;
%REPLACE gds__tpb_exclusive BY 5;
%REPLACE gds__tpb_wait BY 6;
%REPLACE gds__tpb_nowait BY 7;
%REPLACE gds__tpb_read BY 8;
%REPLACE gds__tpb_write BY 9;
%REPLACE gds__tpb_lock_read BY 10;
%REPLACE gds__tpb_lock_write BY 11;
%REPLACE gds__tpb_verb_time BY 12;
%REPLACE gds__tpb_commit_time BY 13;
/* Blob parameter block stuff */
%REPLACE gds__bpb_version1 BY 1;
%REPLACE gds__bpb_source_type BY 1;
%REPLACE gds__bpb_target_type BY 2;
%REPLACE gds__bpb_type BY 3;
%REPLACE gds__bpb_type_segmented BY 0;
%REPLACE gds__bpb_type_stream BY 1;
/* Information call declarations */
/* Common, structural codes */
%REPLACE gds__info_end BY 1;
%REPLACE gds__info_truncated BY 2;
%REPLACE gds__info_error BY 3;
/* Database information items */
%REPLACE gds__info_db_id BY 4;
%REPLACE gds__info_reads BY 5;
%REPLACE gds__info_writes BY 6;
%REPLACE gds__info_fetches BY 7;
%REPLACE gds__info_marks BY 8;
%REPLACE gds__info_implementation BY 11;
%REPLACE gds__info_version BY 12;
%REPLACE gds__info_base_level BY 13;
%REPLACE gds__info_page_size BY 14;
%REPLACE gds__info_number_buffers BY 15;
%REPLACE gds__info_limbo BY 16;
%REPLACE gds__info_current_memory BY 17;
%REPLACE gds__info_max_memory BY 18;
%REPLACE gds__info_window_turns BY 19;
%REPLACE gds__info_license BY 20;
%REPLACE gds__info_allocation BY 21;
%REPLACE gds__info_attachment_id BY 22;
%REPLACE gds__info_read_seq_count BY 23;
%REPLACE gds__info_read_idx_count BY 24;
%REPLACE gds__info_insert_count BY 25;
%REPLACE gds__info_update_count BY 26;
%REPLACE gds__info_delete_count BY 27;
%REPLACE gds__info_backout_count BY 28;
%REPLACE gds__info_purge_count BY 29;
%REPLACE gds__info_expunge_count BY 30;
%REPLACE gds__info_sweep_interval BY 31;
%REPLACE gds__info_ods_version BY 32;
%REPLACE gds__info_ods_minor_version BY 33;
/* Request information items */
%REPLACE gds__info_number_messages BY 4;
%REPLACE gds__info_max_message BY 5;
%REPLACE gds__info_max_send BY 6;
%REPLACE gds__info_max_receive BY 7;
%REPLACE gds__info_state BY 8;
%REPLACE gds__info_message_number BY 9;
%REPLACE gds__info_message_size BY 10;
%REPLACE gds__info_request_cost BY 11;
%REPLACE gds__info_req_active BY 2;
%REPLACE gds__info_req_inactive BY 3;
%REPLACE gds__info_req_send BY 4;
%REPLACE gds__info_req_receive BY 5;
%REPLACE gds__info_req_select BY 6;
/* Blob information items */
%REPLACE gds__info_number_segments BY 4;
%REPLACE gds__info_max_segment BY 5;
%REPLACE gds__info_total_length BY 6;
%REPLACE gds__info_blob_type BY 7;
/* Transaction information items */
%REPLACE gds__info_transaction_id BY 4;
%REPLACE gds_facility BY 20;
%REPLACE gds_err_base BY 335544320;
%REPLACE gds_err_factor BY 1;
%REPLACE gds_arg_end BY 0;
%REPLACE gds_arg_gds BY 1;
%REPLACE gds_arg_string BY 2;
%REPLACE gds_arg_cstring BY 3;
%REPLACE gds_arg_number BY 4;
%REPLACE gds_arg_interpreted BY 5;
%REPLACE gds_arg_vms BY 6;
%REPLACE gds_arg_unix BY 7;
%REPLACE gds_arg_domain BY 8;
%REPLACE gds__arith_except BY 335544321;
%REPLACE gds__bad_dbkey BY 335544322;
%REPLACE gds__bad_db_format BY 335544323;
%REPLACE gds__bad_db_handle BY 335544324;
%REPLACE gds__bad_dpb_content BY 335544325;
%REPLACE gds__bad_dpb_form BY 335544326;
%REPLACE gds__bad_req_handle BY 335544327;
%REPLACE gds__bad_segstr_handle BY 335544328;
%REPLACE gds__bad_segstr_id BY 335544329;
%REPLACE gds__bad_tpb_content BY 335544330;
%REPLACE gds__bad_tpb_form BY 335544331;
%REPLACE gds__bad_trans_handle BY 335544332;
%REPLACE gds__bug_check BY 335544333;
%REPLACE gds__convert_error BY 335544334;
%REPLACE gds__db_corrupt BY 335544335;
%REPLACE gds__deadlock BY 335544336;
%REPLACE gds__excess_trans BY 335544337;
%REPLACE gds__from_no_match BY 335544338;
%REPLACE gds__infinap BY 335544339;
%REPLACE gds__infona BY 335544340;
%REPLACE gds__infunk BY 335544341;
%REPLACE gds__integ_fail BY 335544342;
%REPLACE gds__invalid_blr BY 335544343;
%REPLACE gds__io_error BY 335544344;
%REPLACE gds__lock_conflict BY 335544345;
%REPLACE gds__metadata_corrupt BY 335544346;
%REPLACE gds__not_valid BY 335544347;
%REPLACE gds__no_cur_rec BY 335544348;
%REPLACE gds__no_dup BY 335544349;
%REPLACE gds__no_finish BY 335544350;
%REPLACE gds__no_meta_update BY 335544351;
%REPLACE gds__no_priv BY 335544352;
%REPLACE gds__no_recon BY 335544353;
%REPLACE gds__no_record BY 335544354;
%REPLACE gds__no_segstr_close BY 335544355;
%REPLACE gds__obsolete_metadata BY 335544356;
%REPLACE gds__open_trans BY 335544357;
%REPLACE gds__port_len BY 335544358;
%REPLACE gds__read_only_field BY 335544359;
%REPLACE gds__read_only_rel BY 335544360;
%REPLACE gds__read_only_trans BY 335544361;
%REPLACE gds__read_only_view BY 335544362;
%REPLACE gds__req_no_trans BY 335544363;
%REPLACE gds__req_sync BY 335544364;
%REPLACE gds__req_wrong_db BY 335544365;
%REPLACE gds__segment BY 335544366;
%REPLACE gds__segstr_eof BY 335544367;
%REPLACE gds__segstr_no_op BY 335544368;
%REPLACE gds__segstr_no_read BY 335544369;
%REPLACE gds__segstr_no_trans BY 335544370;
%REPLACE gds__segstr_no_write BY 335544371;
%REPLACE gds__segstr_wrong_db BY 335544372;
%REPLACE gds__sys_request BY 335544373;
%REPLACE gds__unavailable BY 335544375;
%REPLACE gds__unres_rel BY 335544376;
%REPLACE gds__uns_ext BY 335544377;
%REPLACE gds__wish_list BY 335544378;
%REPLACE gds__wrong_ods BY 335544379;
%REPLACE gds__wronumarg BY 335544380;
%REPLACE gds__imp_exc BY 335544381;
%REPLACE gds__random BY 335544382;
%REPLACE gds__fatal_conflict BY 335544383;
/* Minor codes subject to change */
%REPLACE gds__badblk BY 335544384;
%REPLACE gds__invpoolcl BY 335544385;
%REPLACE gds__nopoolids BY 335544386;
%REPLACE gds__relbadblk BY 335544387;
%REPLACE gds__blktoobig BY 335544388;
%REPLACE gds__bufexh BY 335544389;
%REPLACE gds__syntaxerr BY 335544390;
%REPLACE gds__bufinuse BY 335544391;
%REPLACE gds__bdbincon BY 335544392;
%REPLACE gds__reqinuse BY 335544393;
%REPLACE gds__badodsver BY 335544394;
%REPLACE gds__relnotdef BY 335544395;
%REPLACE gds__fldnotdef BY 335544396;
%REPLACE gds__dirtypage BY 335544397;
%REPLACE gds__waifortra BY 335544398;
%REPLACE gds__doubleloc BY 335544399;
%REPLACE gds__nodnotfnd BY 335544400;
%REPLACE gds__dupnodfnd BY 335544401;
%REPLACE gds__locnotmar BY 335544402;
%REPLACE gds__badpagtyp BY 335544403;
%REPLACE gds__corrupt BY 335544404;
%REPLACE gds__badpage BY 335544405;
%REPLACE gds__badindex BY 335544406;
%REPLACE gds__dbbnotzer BY 335544407;
%REPLACE gds__tranotzer BY 335544408;
%REPLACE gds__trareqmis BY 335544409;
%REPLACE gds__badhndcnt BY 335544410;
%REPLACE gds__wrotpbver BY 335544411;
%REPLACE gds__wroblrver BY 335544412;
%REPLACE gds__wrodpbver BY 335544413;
%REPLACE gds__blobnotsup BY 335544414;
%REPLACE gds__badrelation BY 335544415;
%REPLACE gds__nodetach BY 335544416;
%REPLACE gds__notremote BY 335544417;
%REPLACE gds__trainlim BY 335544418;
%REPLACE gds__notinlim BY 335544419;
%REPLACE gds__traoutsta BY 335544420;
%REPLACE gds__connect_reject BY 335544421;
%REPLACE gds__dbfile BY 335544422;
%REPLACE gds__orphan BY 335544423;
%REPLACE gds__no_lock_mgr BY 335544424;
%REPLACE gds__ctxinuse BY 335544425;
%REPLACE gds__ctxnotdef BY 335544426;
%REPLACE gds__datnotsup BY 335544427;
%REPLACE gds__badmsgnum BY 335544428;
%REPLACE gds__badparnum BY 335544429;
%REPLACE gds__virmemexh BY 335544430;
%REPLACE gds__blocking_signal BY 335544431;
%REPLACE gds__lockmanerr BY 335544432;
%REPLACE gds__journerr BY 335544433;
%REPLACE gds__keytoobig BY 335544434;
%REPLACE gds__nullsegkey BY 335544435;
%REPLACE gds__sqlerr BY 335544436;
%REPLACE gds__wrodynver BY 335544437;
%REPLACE gds__obj_in_use BY 335544453;
%REPLACE gds__nofilter BY 335544454;
%REPLACE gds__shadow_accessed BY 335544455;
%REPLACE gds__invalid_sdl BY 335544456;
%REPLACE gds__out_of_bounds BY 335544457;
%REPLACE gds__invalid_dimension BY 335544458;
DECLARE GDS__SQLCODE ENTRY(
(20) FIXED) /* status vector */
RETURNS (FIXED);
DECLARE GDS__ATTACH_DATABASE ENTRY(
ANY VALUE, /* status vector */
FIXED BINARY (15) VALUE, /* file name length */
ANY, /* file name */
ANY, /* database handle */
FIXED BINARY (15) VALUE, /* dpb length */
ANY ); /* dpb */
DECLARE GDS__CANCEL_BLOB ENTRY(
ANY VALUE, /* status vector */
ANY); /* blob handle */
DECLARE GDS__CANCEL_EVENTS ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY); /* id */
DECLARE GDS__CLOSE_BLOB ENTRY(
ANY VALUE, /* status vector */
ANY); /* blob handle */
DECLARE GDS__COMMIT_RETAINING ENTRY(
ANY VALUE, /* status vector */
ANY); /* transaction handle */
DECLARE GDS__COMMIT_TRANSACTION ENTRY(
ANY VALUE, /* status vector */
ANY); /* transaction handle */
DECLARE GDS__COMPILE_REQUEST ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* request handle */
FIXED BINARY (15) VALUE, /* blr length */
ANY); /* blr */
DECLARE GDS__COMPILE_REQUEST2 ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* request handle */
FIXED BINARY (15) VALUE, /* blr length */
ANY); /* blr */
DECLARE GDS__CREATE_BLOB ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* blob handle */
(2) FIXED); /* blob id */
DECLARE GDS__CREATE_BLOB2 ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* blob handle */
(2) FIXED, /* blob id */
FIXED BINARY (15) VALUE, /* blob parameter block length */
ANY); /* blob parameter block */
DECLARE GDS__CREATE_DATABASE ENTRY(
ANY VALUE, /* status vector */
FIXED BINARY (15) VALUE, /* file name length */
ANY, /* file name */
ANY, /* database handle */
FIXED BINARY (15) VALUE, /* dpb length */
ANY VALUE, /* dpb */
FIXED BINARY (15) VALUE); /* database type */
DECLARE GDS__DDL ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
FIXED BINARY (15) VALUE, /* mblr length */
ANY); /* mblr */
DECLARE GDS__DETACH_DATABASE ENTRY(
ANY VALUE, /* status vector */
ANY); /* database handle */
DECLARE GDS__DROP_DATABASE ENTRY(
ANY VALUE, /* status vector */
FIXED BINARY (15) VALUE, /* file name length */
ANY, /* file name */
FIXED BINARY (15) VALUE); /* database type */
DECLARE GDS__EVENT_WAIT ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* length */
ANY, /* events */
ANY); /* buffer */
DECLARE GDS__GET_SEGMENT ENTRY(
ANY VALUE, /* status vector */
ANY, /* blob handle */
ANY, /* segment length */
FIXED BINARY (15) VALUE, /* buffer length */
ANY) /* buffer */
RETURNS (FIXED);
DECLARE GDS__GET_SLICE ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* array (blob) id */
FIXED BINARY (15), /* sdl length */
ANY, /* sdl */
FIXED BINARY (15), /* parameter length */
ANY, /* parameter */
FIXED BINARY (31), /* slice length */
ANY, /* slice */
FIXED BINARY (31)); /* return length */
DECLARE GDS__OPEN_BLOB ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* blob handle */
(2) FIXED); /* blob id */
DECLARE GDS__OPEN_BLOB2 ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* blob handle */
(2) FIXED, /* blob id */
FIXED BINARY (15), /* blob parameter block length */
ANY); /* blob parameter block */
DECLARE GDS__PREPARE_TRANSACTION ENTRY(
ANY VALUE, /* status vector */
ANY); /* transaction handle */
DECLARE GDS__PREPARE_TRANSACTION2 ENTRY(
ANY VALUE, /* status vector */
ANY, /* transaction handle */
FIXED BINARY (15),
ANY);
DECLARE GDS__PUT_SEGMENT ENTRY(
ANY VALUE, /* status vector */
ANY, /* blob handle */
FIXED BINARY (15) VALUE, /* buffer length */
ANY) /* buffer */
RETURNS (FIXED);
DECLARE GDS__PUT_SLICE ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* array (blob) id */
FIXED BINARY (15), /* sdl length */
ANY, /* sdl */
FIXED BINARY (15), /* parameter length */
ANY, /* parameter */
FIXED BINARY (31), /* slice length */
ANY); /* slice */
DECLARE GDS__QUE_EVENTS ENTRY(
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* id */
ANY, /* length */
ANY, /* events */
ANY, /* ast */
ANY); /* arg */
DECLARE GDS__RECEIVE ENTRY(
ANY VALUE, /* status vector */
ANY, /* request handle */
FIXED BINARY (15) VALUE, /* message type */
FIXED BINARY (15) VALUE, /* message length */
PTR VALUE, /* message */
FIXED BINARY (15) VALUE); /* instantiation */
DECLARE GDS__RELEASE_REQUEST ENTRY(
ANY VALUE, /* status vector */
ANY); /* request handle */
DECLARE GDS__ROLLBACK_TRANSACTION ENTRY(
ANY VALUE, /* status vector */
ANY); /* transaction handle */
DECLARE GDS__SEND ENTRY(
ANY VALUE, /* status vector */
ANY, /* request handle */
FIXED BINARY (15) VALUE, /* message type */
FIXED BINARY (15) VALUE, /* message length */
ANY, /* message */
FIXED BINARY (15) VALUE); /* instantiation */
DECLARE GDS__SET_DEBUG ENTRY(
FIXED BINARY (15) VALUE);
DECLARE GDS__START_AND_SEND ENTRY(
ANY VALUE, /* status vector */
ANY, /* request handle */
ANY, /* transaction handle */
FIXED BINARY (15) VALUE, /* message type */
FIXED BINARY (15) VALUE, /* message length */
ANY, /* message */
FIXED BINARY (15) VALUE); /* instantiation */
DECLARE GDS__START_REQUEST ENTRY(
ANY VALUE, /* status vector */
ANY, /* request handle */
ANY, /* transaction handle */
FIXED BINARY (15) VALUE); /* instantiation */
DECLARE GDS__START_MULTIPLE ENTRY(
ANY VALUE, /* status vector */
ANY, /* transaction handle */
FIXED BINARY (15) VALUE, /* transaction count */
ANY); /* teb */
DECLARE GDS__START_TRANSACTION ENTRY(
ANY VALUE, /* status vector */
ANY, /* transaction handle */
FIXED BINARY (15) VALUE, /* transaction count */
ANY VALUE, /* database handle */
FIXED BINARY (15) VALUE, /* tpb length */
ANY VALUE) /* tpb */
OPTIONS (VARIABLE);
DECLARE GDS__STATUS_AND_STOP ENTRY(
ANY VALUE); /* status vector */
DECLARE GDS__UNWIND_REQUEST ENTRY(
ANY VALUE, /* status vector */
ANY, /* request handle */
FIXED BINARY (15) VALUE); /* instantiation */
DECLARE gds__print_status ENTRY(
(20) FIXED); /* status vector */
DECLARE gds__encode_date ENTRY(
ANY, /* time record */
(2) FIXED); /* date */
DECLARE gds__decode_date ENTRY(
(2) FIXED, /* date */
ANY); /* time record */
DECLARE blob__display ENTRY (
(2) FIXED, /* blob_id*/
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* field name */
ANY); /* name_length */
DECLARE blob__dump ENTRY (
(2) FIXED, /* blob_id*/
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* file name */
ANY); /* name_length */
DECLARE blob__edit ENTRY (
(2) FIXED, /* blob_id*/
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* field name */
ANY); /* name_length */
DECLARE blob__load ENTRY (
(2) FIXED, /* blob_id*/
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* file name */
ANY); /* name_length */
/* Dynamic SQL datatypes */
%REPLACE SQL_TEXT BY 452;
%REPLACE SQL_VARYING BY 448;
%REPLACE SQL_SHORT BY 500;
%REPLACE SQL_LONG BY 496;
%REPLACE SQL_FLOAT BY 482;
%REPLACE SQL_DOUBLE BY 480;
%REPLACE SQL_D_FLOAT BY 530;
%REPLACE SQL_DATE BY 510;
%REPLACE SQL_BLOB BY 520;
/* Dynamic SQL DECLAREs */
DECLARE gds__close ENTRY (
ANY VALUE, /* status vector */
ANY /* cursor_name */
);
DECLARE gds__declare ENTRY (
ANY VALUE, /* status vector */
ANY, /* statement_name */
ANY /* cursor_name */
);
DECLARE gds__describe ENTRY (
ANY VALUE, /* status vector */
ANY, /* statement_name */
ANY /* descriptor */
);
DECLARE gds__dsql_finish ENTRY (
ANY /* db_handle */
);
DECLARE gds__execute ENTRY (
ANY VALUE, /* status vector */
ANY, /* trans_handle */
ANY, /* statement_name */
ANY /* descriptor */
);
DECLARE gds__execute_immediate ENTRY (
ANY VALUE, /* status vector */
ANY, /* db_handle */
ANY, /* trans_handle */
ANY, /* string_length */
ANY /* string */
);
DECLARE gds__fetch ENTRY (
ANY VALUE, /* status vector */
ANY, /* cursor_name */
ANY /* descriptor */
) RETURNS (FIXED);
DECLARE gds__open ENTRY (
ANY VALUE, /* status vector */
ANY, /* trans_handle */
ANY, /* cursor_name */
ANY /* descriptor */
);
DECLARE gds__prepare ENTRY (
ANY VALUE, /* status vector */
ANY, /* db_handle */
ANY, /* trans_handle */
ANY, /* statement_name */
ANY, /* string_length */
ANY, /* string */
ANY /* descriptor */
);
/* Forms Package definitions */
/* Map definition block definitions */
%REPLACE PYXIS__MAP_VERSION1 BY 1;
%REPLACE PYXIS__MAP_FIELD2 BY 2;
%REPLACE PYXIS__MAP_FIELD1 BY 3;
%REPLACE PYXIS__MAP_MESSAGE BY 4;
%REPLACE PYXIS__MAP_TERMINATOR BY 5;
%REPLACE PYXIS__MAP_TERMINATING_FIELD BY 6;
%REPLACE PYXIS__MAP_OPAQUE BY 7;
%REPLACE PYXIS__MAP_TRANSPARENT BY 8;
%REPLACE PYXIS__MAP_TAG BY 9;
%REPLACE PYXIS__MAP_SUB_FORM BY 10;
%REPLACE PYXIS__MAP_ITEM_INDEX BY 11;
%REPLACE PYXIS__MAP_SUB_FIELD BY 12;
%REPLACE PYXIS__MAP_END BY -1;
/* Field option flags for display options */
%REPLACE PYXIS__OPT_DISPLAY BY 1;
%REPLACE PYXIS__OPT_UPDATE BY 2;
%REPLACE PYXIS__OPT_WAKEUP BY 4;
%REPLACE PYXIS__OPT_POSITION BY 8;
/* Field option values following display */
%REPLACE PYXIS__OPT_NULL BY 1;
%REPLACE PYXIS__OPT_DEFAULT BY 2;
%REPLACE PYXIS__OPT_INITIAL BY 3;
%REPLACE PYXIS__OPT_USER_DATA BY 4;
/* Pseudo key definitions */
%REPLACE PYXIS__KEY_DELETE BY 127;
%REPLACE PYXIS__KEY_UP BY 128;
%REPLACE PYXIS__KEY_DOWN BY 129;
%REPLACE PYXIS__KEY_RIGHT BY 130;
%REPLACE PYXIS__KEY_LEFT BY 131;
%REPLACE PYXIS__KEY_PF1 BY 132;
%REPLACE PYXIS__KEY_PF2 BY 133;
%REPLACE PYXIS__KEY_PF3 BY 134;
%REPLACE PYXIS__KEY_PF4 BY 135;
%REPLACE PYXIS__KEY_PF5 BY 136;
%REPLACE PYXIS__KEY_PF6 BY 137;
%REPLACE PYXIS__KEY_PF7 BY 138;
%REPLACE PYXIS__KEY_PF8 BY 139;
%REPLACE PYXIS__KEY_PF9 BY 140;
%REPLACE PYXIS__KEY_ENTER BY 141;
%REPLACE PYXIS__KEY_SCROLL_TOP BY 146;
%REPLACE PYXIS__KEY_SCROLL_BOTTOM BY 147;
/* Menu definition stuff */
%REPLACE PYXIS__MENU_VERSION1 BY 1;
%REPLACE PYXIS__MENU_LABEL BY 2;
%REPLACE PYXIS__MENU_ENTREE BY 3;
%REPLACE PYXIS__MENU_OPAQUE BY 4;
%REPLACE PYXIS__MENU_TRANSPARENT BY 5;
%REPLACE PYXIS__MENU_HORIZONTAL BY 6;
%REPLACE PYXIS__MENU_VERTICAL BY 7;
%REPLACE PYXIS__MENU_END BY -1;
DECLARE pyxis__compile_map ENTRY (
ANY VALUE, /* status vector */
ANY, /* form handle */
ANY, /* map handle */
FIXED BINARY (15), /* length */
ANY /* map handle */
);
DECLARE pyxis__compile_sub_map ENTRY (
ANY VALUE, /* status vector */
ANY, /* form handle */
ANY, /* map handle */
FIXED BINARY (15), /* length */
ANY /* map */
);
DECLARE pyxis__create_window ENTRY (
ANY, /* window handle */
FIXED BINARY (15), /* length */
ANY, /* file_name */
FIXED BINARY (15), /* width */
FIXED BINARY (15) /* height */
);
DECLARE pyxis__delete_window ENTRY (
ANY /* window handle */
);
DECLARE pyxis__drive_form ENTRY (
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* window handle */
ANY, /* map handle */
ANY, /* input */
ANY /* output */
);
DECLARE pyxis__fetch ENTRY (
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* map handle */
ANY /* output */
);
DECLARE pyxis__insert ENTRY (
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* map handle */
ANY /* intput */
);
DECLARE pyxis__load_form ENTRY (
ANY VALUE, /* status vector */
ANY, /* database handle */
ANY, /* transaction handle */
ANY, /* form handle */
ANY, /* map handle */
ANY /* form_name */
);
DECLARE pyxis__menu ENTRY (
ANY, /* window handle */
ANY, /* menu handle */
FIXED BINARY (15), /* length */
ANY /* menu */
) RETURNS (FIXED BINARY (15));
DECLARE pyxis__pop_window ENTRY (
ANY /* window handle */
);
DECLARE pyxis__reset_form ENTRY (
ANY VALUE, /* status vector */
ANY /* window handle */
);
DECLARE pyxis__drive_menu ENTRY (
ANY, /* window_handle */
ANY, /* menu_handle */
FIXED BINARY (15), /* blr_length */
ANY, /* blr_source */
FIXED BINARY (15), /* title_length */
ANY, /* title */
FIXED BINARY (15), /* terminator */
FIXED BINARY (15), /* entree_length */
ANY, /* entree_text */
ANY /* entree_value */
);
DECLARE pyxis__get_entree ENTRY (
ANY, /* menu_handle */
FIXED BINARY (15), /* entree_length */
ANY, /* entree_text */
ANY, /* entree_value */
FIXED BINARY (15) /* entree_end */
);
DECLARE pyxis__initialize_menu ENTRY (
ANY /* menu_handle */
);
DECLARE pyxis__put_entree ENTRY (
ANY, /* menu_handle */
FIXED BINARY (15), /* entree_length */
ANY, /* entree_text */
ANY /* entree_value */
);
View Git Blame Copy Permalink