mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-22 21:23:04 +01:00
307 lines
14 KiB
QBasic
307 lines
14 KiB
QBasic
! 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: BASIC preprocessor
|
|
!* MODULE: gds.bas
|
|
!* DESCRIPTION: BLR constants
|
|
!*
|
|
|
|
! Error codes
|
|
|
|
DECLARE LONG CONSTANT gds_facility = 20
|
|
DECLARE LONG CONSTANT gds_err_base = 335544320
|
|
DECLARE LONG CONSTANT gds_err_factor = 1
|
|
DECLARE LONG CONSTANT gds_arg_end = 0
|
|
DECLARE LONG CONSTANT gds_arg_gds = 1
|
|
DECLARE LONG CONSTANT gds_arg_string = 2
|
|
DECLARE LONG CONSTANT gds_arg_cstring = 3
|
|
DECLARE LONG CONSTANT gds_arg_number = 4
|
|
DECLARE LONG CONSTANT gds_arg_interpreted = 5
|
|
DECLARE LONG CONSTANT gds_arg_vms = 6
|
|
DECLARE LONG CONSTANT gds_arg_unix = 7
|
|
DECLARE LONG CONSTANT gds_arg_domain = 8
|
|
DECLARE LONG CONSTANT gds_err_max = 138
|
|
|
|
DECLARE LONG CONSTANT gds__arith_except = 335544321
|
|
DECLARE LONG CONSTANT gds__bad_dbkey = 335544322
|
|
DECLARE LONG CONSTANT gds__bad_db_format = 335544323
|
|
DECLARE LONG CONSTANT gds__bad_db_handle = 335544324
|
|
DECLARE LONG CONSTANT gds__bad_dpb_content = 335544325
|
|
DECLARE LONG CONSTANT gds__bad_dpb_form = 335544326
|
|
DECLARE LONG CONSTANT gds__bad_req_handle = 335544327
|
|
DECLARE LONG CONSTANT gds__bad_segstr_handle = 335544328
|
|
DECLARE LONG CONSTANT gds__bad_segstr_id = 335544329
|
|
DECLARE LONG CONSTANT gds__bad_tpb_content = 335544330
|
|
DECLARE LONG CONSTANT gds__bad_tpb_form = 335544331
|
|
DECLARE LONG CONSTANT gds__bad_trans_handle = 335544332
|
|
DECLARE LONG CONSTANT gds__bug_check = 335544333
|
|
DECLARE LONG CONSTANT gds__convert_error = 335544334
|
|
DECLARE LONG CONSTANT gds__db_corrupt = 335544335
|
|
DECLARE LONG CONSTANT gds__deadlock = 335544336
|
|
DECLARE LONG CONSTANT gds__excess_trans = 335544337
|
|
DECLARE LONG CONSTANT gds__from_no_match = 335544338
|
|
DECLARE LONG CONSTANT gds__infinap = 335544339
|
|
DECLARE LONG CONSTANT gds__infona = 335544340
|
|
DECLARE LONG CONSTANT gds__infunk = 335544341
|
|
DECLARE LONG CONSTANT gds__integ_fail = 335544342
|
|
DECLARE LONG CONSTANT gds__invalid_blr = 335544343
|
|
DECLARE LONG CONSTANT gds__io_error = 335544344
|
|
DECLARE LONG CONSTANT gds__lock_conflict = 335544345
|
|
DECLARE LONG CONSTANT gds__metadata_corrupt = 335544346
|
|
DECLARE LONG CONSTANT gds__not_valid = 335544347
|
|
DECLARE LONG CONSTANT gds__no_cur_rec = 335544348
|
|
DECLARE LONG CONSTANT gds__no_dup = 335544349
|
|
DECLARE LONG CONSTANT gds__no_finish = 335544350
|
|
DECLARE LONG CONSTANT gds__no_meta_update = 335544351
|
|
DECLARE LONG CONSTANT gds__no_priv = 335544352
|
|
DECLARE LONG CONSTANT gds__no_recon = 335544353
|
|
DECLARE LONG CONSTANT gds__no_record = 335544354
|
|
DECLARE LONG CONSTANT gds__no_segstr_close = 335544355
|
|
DECLARE LONG CONSTANT gds__obsolete_metadata = 335544356
|
|
DECLARE LONG CONSTANT gds__open_trans = 335544357
|
|
DECLARE LONG CONSTANT gds__port_len = 335544358
|
|
DECLARE LONG CONSTANT gds__read_only_field = 335544359
|
|
DECLARE LONG CONSTANT gds__read_only_rel = 335544360
|
|
DECLARE LONG CONSTANT gds__read_only_trans = 335544361
|
|
DECLARE LONG CONSTANT gds__read_only_view = 335544362
|
|
DECLARE LONG CONSTANT gds__req_no_trans = 335544363
|
|
DECLARE LONG CONSTANT gds__req_sync = 335544364
|
|
DECLARE LONG CONSTANT gds__req_wrong_db = 335544365
|
|
DECLARE LONG CONSTANT gds__segment = 335544366
|
|
DECLARE LONG CONSTANT gds__segstr_eof = 335544367
|
|
DECLARE LONG CONSTANT gds__segstr_no_op = 335544368
|
|
DECLARE LONG CONSTANT gds__segstr_no_read = 335544369
|
|
DECLARE LONG CONSTANT gds__segstr_no_trans = 335544370
|
|
DECLARE LONG CONSTANT gds__segstr_no_write = 335544371
|
|
DECLARE LONG CONSTANT gds__segstr_wrong_db = 335544372
|
|
DECLARE LONG CONSTANT gds__sys_request = 335544373
|
|
DECLARE LONG CONSTANT gds__unavailable = 335544375
|
|
DECLARE LONG CONSTANT gds__unres_rel = 335544376
|
|
DECLARE LONG CONSTANT gds__uns_ext = 335544377
|
|
DECLARE LONG CONSTANT gds__wish_list = 335544378
|
|
DECLARE LONG CONSTANT gds__wrong_ods = 335544379
|
|
DECLARE LONG CONSTANT gds__wronumarg = 335544380
|
|
DECLARE LONG CONSTANT gds__imp_exc = 335544381
|
|
DECLARE LONG CONSTANT gds__random = 335544382
|
|
DECLARE LONG CONSTANT gds__fatal_conflict = 335544383
|
|
|
|
! Minor codes subject to change
|
|
|
|
DECLARE LONG CONSTANT gds__badblk = 335544384
|
|
DECLARE LONG CONSTANT gds__invpoolcl = 335544385
|
|
DECLARE LONG CONSTANT gds__nopoolids = 335544386
|
|
DECLARE LONG CONSTANT gds__relbadblk = 335544387
|
|
DECLARE LONG CONSTANT gds__blktoobig = 335544388
|
|
DECLARE LONG CONSTANT gds__bufexh = 335544389
|
|
DECLARE LONG CONSTANT gds__syntaxerr = 335544390
|
|
DECLARE LONG CONSTANT gds__bufinuse = 335544391
|
|
DECLARE LONG CONSTANT gds__bdbincon = 335544392
|
|
DECLARE LONG CONSTANT gds__reqinuse = 335544393
|
|
DECLARE LONG CONSTANT gds__badodsver = 335544394
|
|
DECLARE LONG CONSTANT gds__relnotdef = 335544395
|
|
DECLARE LONG CONSTANT gds__fldnotdef = 335544396
|
|
DECLARE LONG CONSTANT gds__dirtypage = 335544397
|
|
DECLARE LONG CONSTANT gds__waifortra = 335544398
|
|
DECLARE LONG CONSTANT gds__doubleloc = 335544399
|
|
DECLARE LONG CONSTANT gds__nodnotfnd = 335544400
|
|
DECLARE LONG CONSTANT gds__dupnodfnd = 335544401
|
|
DECLARE LONG CONSTANT gds__locnotmar = 335544402
|
|
DECLARE LONG CONSTANT gds__badpagtyp = 335544403
|
|
DECLARE LONG CONSTANT gds__corrupt = 335544404
|
|
DECLARE LONG CONSTANT gds__badpage = 335544405
|
|
DECLARE LONG CONSTANT gds__badindex = 335544406
|
|
DECLARE LONG CONSTANT gds__dbbnotzer = 335544407
|
|
DECLARE LONG CONSTANT gds__tranotzer = 335544408
|
|
DECLARE LONG CONSTANT gds__trareqmis = 335544409
|
|
DECLARE LONG CONSTANT gds__badhndcnt = 335544410
|
|
DECLARE LONG CONSTANT gds__wrotpbver = 335544411
|
|
DECLARE LONG CONSTANT gds__wroblrver = 335544412
|
|
DECLARE LONG CONSTANT gds__wrodpbver = 335544413
|
|
DECLARE LONG CONSTANT gds__blobnotsup = 335544414
|
|
DECLARE LONG CONSTANT gds__badrelation = 335544415
|
|
DECLARE LONG CONSTANT gds__nodetach = 335544416
|
|
DECLARE LONG CONSTANT gds__notremote = 335544417
|
|
DECLARE LONG CONSTANT gds__trainlim = 335544418
|
|
DECLARE LONG CONSTANT gds__notinlim = 335544419
|
|
DECLARE LONG CONSTANT gds__traoutsta = 335544420
|
|
DECLARE LONG CONSTANT gds__connect_reject = 335544421
|
|
DECLARE LONG CONSTANT gds__dbfile = 335544422
|
|
DECLARE LONG CONSTANT gds__orphan = 335544423
|
|
DECLARE LONG CONSTANT gds__no_lock_mgr = 335544424
|
|
DECLARE LONG CONSTANT gds__ctxinuse = 335544425
|
|
DECLARE LONG CONSTANT gds__ctxnotdef = 335544426
|
|
DECLARE LONG CONSTANT gds__datnotsup = 335544427
|
|
DECLARE LONG CONSTANT gds__badmsgnum = 335544428
|
|
DECLARE LONG CONSTANT gds__badparnum = 335544429
|
|
DECLARE LONG CONSTANT gds__virmemexh = 335544430
|
|
DECLARE LONG CONSTANT gds__blocking_signal = 335544431
|
|
DECLARE LONG CONSTANT gds__lockmanerr = 335544432
|
|
DECLARE LONG CONSTANT gds__journerr = 335544433
|
|
DECLARE LONG CONSTANT gds__keytoobig = 335544434
|
|
DECLARE LONG CONSTANT gds__nullsegkey = 335544435
|
|
DECLARE LONG CONSTANT gds__sqlerr = 335544436
|
|
DECLARE LONG CONSTANT gds__wrodynver = 335544437
|
|
DECLARE LONG CONSTANT gds__obj_in_use = 335544453
|
|
DECLARE LONG CONSTANT gds__nofilter = 335544454
|
|
DECLARE LONG CONSTANT gds__shadow_accessed = 335544455
|
|
DECLARE LONG CONSTANT gds__invalid_sdl = 335544456
|
|
DECLARE LONG CONSTANT gds__out_of_bounds = 335544457
|
|
DECLARE LONG CONSTANT gds__invalid_dimension = 335544458
|
|
|
|
! Database parameter block stuff
|
|
|
|
DECLARE BYTE CONSTANT gds__dpb_version1 = 1
|
|
|
|
DECLARE BYTE CONSTANT gds__dpb_cdd_pathname = 1
|
|
DECLARE BYTE CONSTANT gds__dpb_allocation = 2
|
|
DECLARE BYTE CONSTANT gds__dpb_journal = 3
|
|
DECLARE BYTE CONSTANT gds__dpb_page_size = 4
|
|
DECLARE BYTE CONSTANT gds__dpb_num_buffers = 5
|
|
DECLARE BYTE CONSTANT gds__dpb_buffer_length = 6
|
|
DECLARE BYTE CONSTANT gds__dpb_debug = 7
|
|
DECLARE BYTE CONSTANT gds__dpb_garbage_collect = 8
|
|
DECLARE BYTE CONSTANT gds__dpb_verify = 9
|
|
DECLARE BYTE CONSTANT gds__dpb_sweep = 10
|
|
DECLARE BYTE CONSTANT gds__dpb_enable_journal = 11
|
|
DECLARE BYTE CONSTANT gds__dpb_disable_journal = 12
|
|
DECLARE BYTE CONSTANT gds__dpb_dbkey_scope = 13
|
|
DECLARE BYTE CONSTANT gds__dpb_number_of_users = 14
|
|
DECLARE BYTE CONSTANT gds__dpb_trace = 15
|
|
DECLARE BYTE CONSTANT gds__dpb_no_garbage_collect = 16
|
|
DECLARE BYTE CONSTANT gds__dpb_damaged = 17
|
|
DECLARE BYTE CONSTANT gds__dpb_license = 18
|
|
DECLARE BYTE CONSTANT gds__dpb_sys_user_name = 19
|
|
DECLARE BYTE CONSTANT gds__dpb_encrypt_key = 20
|
|
DECLARE BYTE CONSTANT gds__dpb_activate_shadow = 21
|
|
DECLARE BYTE CONSTANT gds__dpb_sweep_interval = 22
|
|
DECLARE BYTE CONSTANT gds__dpb_delete_shadow = 23
|
|
|
|
DECLARE BYTE CONSTANT gds__dpb_pages = 1
|
|
DECLARE BYTE CONSTANT gds__dpb_records = 2
|
|
DECLARE BYTE CONSTANT gds__dpb_indices = 4
|
|
DECLARE BYTE CONSTANT gds__dpb_transactions = 8
|
|
DECLARE BYTE CONSTANT gds__dpb_no_update = 16
|
|
DECLARE BYTE CONSTANT gds__dpb_repair = 32
|
|
DECLARE BYTE CONSTANT gds__dpb_ignore = 64
|
|
|
|
! Bit assignments in RDB$SYSTEM_FLAG
|
|
|
|
DECLARE BYTE CONSTANT RDB_system = 1
|
|
DECLARE BYTE CONSTANT RDB_id_assigned = 2
|
|
|
|
! Transaction parameter blob stuff
|
|
|
|
DECLARE BYTE CONSTANT gds__tpb_version1 = 1
|
|
DECLARE BYTE CONSTANT gds__tpb_version3 = 3
|
|
DECLARE BYTE CONSTANT gds__tpb_consistency = 1
|
|
DECLARE BYTE CONSTANT gds__tpb_concurrency = 2
|
|
DECLARE BYTE CONSTANT gds__tpb_shared = 3
|
|
DECLARE BYTE CONSTANT gds__tpb_protected = 4
|
|
DECLARE BYTE CONSTANT gds__tpb_exclusive = 5
|
|
DECLARE BYTE CONSTANT gds__tpb_wait = 6
|
|
DECLARE BYTE CONSTANT gds__tpb_nowait = 7
|
|
DECLARE BYTE CONSTANT gds__tpb_read = 8
|
|
DECLARE BYTE CONSTANT gds__tpb_write = 9
|
|
DECLARE BYTE CONSTANT gds__tpb_lock_read = 10
|
|
DECLARE BYTE CONSTANT gds__tpb_lock_write = 11
|
|
DECLARE BYTE CONSTANT gds__tpb_verb_time = 12
|
|
DECLARE BYTE CONSTANT gds__tpb_commit_time = 13
|
|
DECLARE BYTE CONSTANT gds__tpb_ignore_limbo = 14
|
|
|
|
! Blob Parameter Block
|
|
|
|
DECLARE BYTE CONSTANT gds__bpb_version1 = 1
|
|
DECLARE BYTE CONSTANT gds__bpb_source_type = 1
|
|
DECLARE BYTE CONSTANT gds__bpb_target_type = 2
|
|
DECLARE BYTE CONSTANT gds__bpb_type = 3
|
|
|
|
DECLARE BYTE CONSTANT gds__bpb_type_segmented = 0
|
|
DECLARE BYTE CONSTANT gds__bpb_type_stream = 1
|
|
|
|
|
|
! Dynamic SQL datatypes
|
|
|
|
DECLARE WORD CONSTANT SQL_TEXT = 452
|
|
DECLARE WORD CONSTANT SQL_VARYING = 448
|
|
DECLARE WORD CONSTANT SQL_SHORT = 500
|
|
DECLARE WORD CONSTANT SQL_LONG = 496
|
|
DECLARE WORD CONSTANT SQL_DOUBLE = 480
|
|
DECLARE WORD CONSTANT SQL_D_FLOAT = 530
|
|
DECLARE WORD CONSTANT SQL_FLOAT = 482
|
|
DECLARE WORD CONSTANT SQL_DATE = 510
|
|
DECLARE WORD CONSTANT SQL_BLOB = 520
|
|
|
|
|
|
EXTERNAL LONG FUNCTION GDS__SQLCODE BY REF
|
|
EXTERNAL SUB GDS__ATTACH_DATABASE BY REF
|
|
EXTERNAL SUB GDS__CANCEL_BLOB BY REF
|
|
EXTERNAL SUB GDS__CANCEL_EVENTS BY REF
|
|
EXTERNAL SUB GDS__CLOSE_BLOB BY REF
|
|
EXTERNAL SUB GDS__COMMIT_RETAINING BY REF
|
|
EXTERNAL SUB GDS__COMMIT_TRANSACTION BY REF
|
|
EXTERNAL SUB GDS__COMPILE_REQUEST BY REF
|
|
EXTERNAL SUB GDS__CREATE_BLOB BY REF
|
|
EXTERNAL SUB GDS__CREATE_BLOB2 BY REF
|
|
EXTERNAL SUB GDS__CREATE_DATABASE BY REF
|
|
EXTERNAL SUB GDS__DETACH_DATABASE BY REF
|
|
EXTERNAL SUB GDS_EVENT_WAIT BY REF
|
|
EXTERNAL LONG FUNCTION GDS__GET_SEGMENT BY REF
|
|
EXTERNAL SUB GDS__OPEN_BLOB BY REF
|
|
EXTERNAL SUB GDS__OPEN_BLOB2 BY REF
|
|
EXTERNAL SUB GDS__PREPARE_TRANSACTION BY REF
|
|
EXTERNAL SUB GDS__PREPARE_TRANSACTION2 BY REF
|
|
EXTERNAL LONG FUNCTION GDS__PUT_SEGMENT BY REF
|
|
EXTERNAL SUB GDS__QUE_EVENTS BY REF
|
|
EXTERNAL SUB GDS__RECEIVE BY REF
|
|
EXTERNAL SUB GDS__RELEASE_REQUEST BY REF
|
|
EXTERNAL SUB GDS__ROLLBACK_TRANSACTION BY REF
|
|
EXTERNAL SUB GDS__SEND BY REF
|
|
EXTERNAL SUB gds__set_debug BY REF
|
|
EXTERNAL SUB GDS__START_AND_SEND BY REF
|
|
EXTERNAL SUB GDS__START_REQUEST BY REF
|
|
EXTERNAL SUB GDS__START_MULTIPLE BY REF
|
|
EXTERNAL SUB GDS__START_TRANSACTION BY REF
|
|
EXTERNAL SUB GDS__UNWIND_REQUEST BY REF
|
|
EXTERNAL SUB gds__print_status BY REF
|
|
EXTERNAL SUB gds__encode_date BY REF
|
|
EXTERNAL SUB gds__decode_date BY REF
|
|
EXTERNAL SUB blob__display BY REF
|
|
EXTERNAL SUB blob__dump BY REF
|
|
EXTERNAL SUB blob__edit BY REF
|
|
EXTERNAL SUB blob__load BY REF
|
|
EXTERNAL SUB gds__close BY REF
|
|
EXTERNAL SUB gds__declare BY REF
|
|
EXTERNAL SUB gds__describe BY REF
|
|
EXTERNAL SUB gds__dsql_finish BY REF
|
|
EXTERNAL SUB gds__execute BY REF
|
|
EXTERNAL SUB gds__execute_immediate BY REF
|
|
EXTERNAL LONG FUNCTION gds__fetch BY REF
|
|
EXTERNAL SUB gds__open BY REF
|
|
EXTERNAL SUB gds__prepare BY REF
|
|
EXTERNAL SUB gds__open_blob_filtered BY REF
|
|
EXTERNAL SUB gds__get_segment_filtered BY REF
|
|
EXTERNAL SUB gds__close_blob_filtered BY REF
|
|
EXTERNAL SUB gds__event_counts BY REF
|
|
EXTERNAL SUB gds__event_block BY REF
|
|
EXTERNAL SUB gds__get_slice BY REF
|
|
EXTERNAL SUB gds__put_slice BY REF
|
|
EXTERNAL SUB gds__seek_blob BY REF
|
|
EXTERNAL SUB gds__ddl BY REF
|
|
|
|
|