214 lines
18 KiB
Plaintext
214 lines
18 KiB
Plaintext
compile insert environ_constants
|
|
/*
|
|
Amended Date Reason
|
|
======= ==== ======
|
|
Mr C 24 Jan 06 Added ENV_UNIQUE_STATION_ID$
|
|
mtr 05-25-06 Added ENV_DFLT_RPT_SHADOW_TYPE$
|
|
bzs 06-02-06 Added ENV_ODBC_CAT_ALL_TABLES$
|
|
WER 07/06/06 Added ENV_EXCLUDE_FROM_REPORTS$
|
|
spf 10/19/06 Added equ ENV_DM_SORT_BY_DBID$ - Sort tables within the Database Manager Add by Database ID
|
|
RO 11/16/06 Added equ equ ENV_RELATIONAL_UPD_0$ - Update Zero Records when relational indexes are updated
|
|
bzs 02/07/07 Added ENV_SAVE_CONVERTED$ and ENV_CREATE_AREVUSER$
|
|
bzs 07/23/08 Added ENV_DATE_FORMAT$
|
|
mtr 08/25/08 Added ENV_B_DFLT_WIN_BACKCOLOR$
|
|
Added ENV_WIN_BACKCOLOR_VALUES$
|
|
Mr C 10/20/08 Added ENV_DEBUGGER_INTERCEPT_PROC$
|
|
bzs 10/22/08 Changed ENV_DATE_FORMAT$ To ENV_LOCALE$
|
|
bzs 02/24/09 Added ENV_OSWRITE$
|
|
rjc 05/06/09 Added env_BTREE_FLUSH_ON$
|
|
djh 01/27/17 Comment out focuscell equates
|
|
Mr C 25 Apr 19 Corrected comments for ENV_LOCALE$
|
|
*/
|
|
|
|
*** Pointers into the environment constants variable for OpenEngine
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENVIRON_PREFIX$ TO "ENV_" ; * Prefix in sysenv for environment records
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.DEFAULT.DATA.VOL TO 1 ; * Default data volume where files are created
|
|
equ ENV_DEFAULT_DATA_VOL$ TO 1 ; * and some TCL commands such as LISTDICT are
|
|
; * used
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.DOS.SORT.VOL to 2 ; * The DOS volume where the temporary sort
|
|
equ ENV_DOS_SORT_VOL$ to 2 ; * files will be built. If not specified then
|
|
; * it uses the default drive.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.TRANS.VOL to 3 ; * Transaction volume name. Where the
|
|
equ ENV_TRANS_VOL$ to 3 ; * trans files and other lock files are
|
|
; * stored.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.DEFAULT.STOPS to 4 ; * MV list of words thrown out when indexing
|
|
equ ENV_DEFAULT_STOPS$ to 4 ; * and Cross-reference
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.INDEX.TIME to 5 ; * Seconds before call to background indexing
|
|
equ ENV_INDEX_TIME$ to 5 ; * process. A zero or null will not call
|
|
; * processor. A one will tell the
|
|
; * background process that the station is
|
|
; * dedicated to index processing.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.SELECT.FLUSH.ON to 6 ; * 1 = Flush Index Transactions BEFORE select.
|
|
equ ENV_SELECT_FLUSH_ON$ to 6
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.UNLOCK.ALL.COMMIT to 7 ; * 1 = true - then UNLOCK ALL imposed at
|
|
equ ENV_UNLOCK_ALL_COMMIT$ to 7 ; * commit time. 0 = false - only logged
|
|
; * locks are unlocked at commit time.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.DEADLOCK.CHECK to 8 ; * Interval (in seconds) for checking
|
|
equ ENV_DEADLOCK_CHECK$ to 8 ; * deadlock after deadlock process has
|
|
; * been started.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LOCK.TIMEOUT to 9 ; * Number of seconds before transaction
|
|
equ ENV_LOCK_TIMEOUT$ to 9 ; * times out in a wait situation
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.CONSISTENCY.LEVEL to 10 ; * Number (0-4) for locking consistency
|
|
equ ENV_CONSISTENCY_LEVEL$ to 10
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LOCKING.GOV to 11 ; * Number of allowable locks from this
|
|
equ ENV_LOCKING_GOV$ to 11 ; * workstation.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.AUTOTRANS to 12 ; * Auto transaction start mode.
|
|
equ ENV_AUTOTRANS$ to 12 ; * (ON = 1 or OFF = 0) for a lock.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.DEADLOCK.POSTING to 13 ; * Number of seconds before deadlock
|
|
equ ENV_DEADLOCK_POSTING$ to 13 ; * checking is begun and locks are posted.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.NETCACHE.OPTION TO 14 ;* For network cache option
|
|
equ ENV_NETCACHE_OPTION$ TO 14
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LND.DEFAULT TO 15 ;* Active language set default name
|
|
equ ENV_LND_DEFAULT$ TO 15
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LND.LOAD TO 16 ;* List of language sets to load into memory
|
|
equ ENV_LND_LOAD$ TO 16
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.QUERY.CASE TO 17 ;* query case sensitivity (true=case insensitive)
|
|
equ ENV_QUERY_CASE$ TO 17
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.TIMEDATE.FMT TO 18 ;* TIMEDATE() override output format for
|
|
;* system processes and for TIMEDATE( ) function.
|
|
equ ENV_TIMEDATE_FMT$ TO 18
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.SUPPRESS.NONNUMERIC TO 19 ;* Suppress nonnumeric error messages
|
|
equ ENV_SUPPRESS_NONNUMERIC$ TO 19
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LPTRHIGH TO 20 ;* Height of PRINTER
|
|
equ ENV_LPTRHIGH$ TO 20
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.LPTRWIDE TO 21 ;* Width of PRINTER
|
|
equ ENV_LPTRWIDE$ TO 21
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ E.NULL.DISPLAY.STRING TO 22 ;* String to represent NULL values in SQL
|
|
* report (display only).
|
|
equ ENV_NULL_DISPLAY_STRING$ TO 22
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DEBUGGER_ENABLED$ TO 23 ;* 1 - Debugger Enabled 0 - Debugger Disabled, 2- Debugger Intercepted To Debugger_Replacement
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DEFAULT_FOLDER$ TO 24 ;* Default folder for stored procedures.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DEFAULT_IOCONV$ TO 25 ;* 0 - No conversion 1 - do convert and validate - with protect.mfs
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_COMMIT_VOL$ TO 26 ;* Commit volume
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_COMMIT_PROTECT$ TO 27 ;* 1 - Commit protected 0 - commit unprotected.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_VICTIM_SELECT$ TO 28 ;* (NUMERIC) deadlock resolution victim selection mode.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_IMPLICIT_LOCK_TYPE$ TO 29 ;* 0 - Table lock, 1 - Record lock
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_COORDINATED_LOCK$ TO 30 ;* 1 - Table/record locks coordinated.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_ENTITY_LOG_CNT$ TO 31 ;* no. of logs each entity keeps
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_STARTUP_PROC$ TO 32 ;* Startup procedure called by INITIALIZE when starting
|
|
;* an application (boot or change application time)
|
|
;* Prototype:
|
|
;* subroutine ...(FirstInitFlag, StationId)
|
|
;* where
|
|
;* FirstInitFlag -- TRUE$ for initial engine startup
|
|
;* StationId -- set this parameter to modify @station
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_SHUTDOWN_PROC$ TO 33 ;* Shutdown procedure... Called by REVSHUTDOWNPROC when closing
|
|
;* Prototype:
|
|
;* subroutine ...(FirstInitFlag, StationId)
|
|
;* where
|
|
;* FirstInitFlag -- TRUE$ for initial engine startup
|
|
;* StationId -- set this parameter to modify @station
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_CONCURRENCY_SCHEME$ TO 34 ;* used for SQL bond optimization
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_FILTER_TABLES_PROC$ TO 35 ;* custom security filter (primarily for ReportDesigner):
|
|
;* Prototype: function ... (AllTableList)
|
|
;* Returns: @fm delimited list of allowed tables
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_FILTER_COLUMNS_PROC$ TO 36 ;* custom security filter (primarily for ReportDesigner):
|
|
;* Prototype: function ... (TableName, AllColumnList)
|
|
;* Returns: @fm delimited list of allowed columns
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DATASOURCE_TYPE$ TO 37 ;* DataSource type (primarily used by XOInstance, DSInstance)
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_XO_DEFAULTS$ TO 38 ;* DataSet/Connection Object defaults
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_AREV_COMPAT_RTP9$ TO 39 ;* 1=Arev compatibility mode for RTP9 (Warning! Breaks Rev_SQL)
|
|
;* 0=OpenInsight compatibility mode for RTP9 (default)
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_UNIQUE_STATION_ID$ TO 40 ;* 1=Append ProcessID to 'normal' @station
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DFLT_RPT_SHADOW_TYPE$ TO 41 ;* Html Or rtf
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_ODBC_CAT_ALL_TABLES$ TO 42 ;* Override flag - display _all_ attached tables regardless of SQLTables qualifier
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_EXCLUDE_FROM_REPORTS$ to 43 ;* Exclude these tables from list of available tables for Report Builder reports
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DFLT_OIPI_UOM$ to 44 ;* Standard Or Metric
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DM_SORT_BY_DBID$ to 45 ; * Sort tables within the Database Manager Add by Database ID
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_RELATIONAL_UPD_0$ to 46 ;* Update Zero Records when relational indexes are updated
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_SAVE_CONVERTED$ to 47 ;* 0 = Do not preserve precompiled source
|
|
;* 1 = Save converted precompiled source in SYSLISTS (DEFAULT)
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_CREATE_AREVUSER$ TO 48 ;* 0 = Creation of OI user does not create AREV32 user (DEFAULT)
|
|
;* 1 = Creation of OI user creates AREV32 user
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_OIPI_SAVE_PATH$ TO 49 ;* Default Path for OIPI files (PDF,RTF,Etc)
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_EXCLUDE_FIELDS$ TO 50 ;* Fields to be excluded from reports in report builder
|
|
// ------------------------------------------------------------------------------------------------
|
|
* bzs 102208 equ ENV_DATE_FORMAT$ To 51 ;* 0=US/1=European/-1=Determine from Locale
|
|
equ ENV_LOCALE$ To 51 ;* 0=None/1=LND/2=Determine from Windows Locale ;* bzs 102208
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_B_DFLT_WIN_BACKCOLOR$ To 52 ;* Boolean: Yes means show a default background color for all windows
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_WIN_BACKCOLOR_VALUES$ to 53 ;* From color and to color, @Vm delimited
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DEBUGGER_INTERCEPT_PROC$ to 54 ; * // Name of an SSP to use for debugger intercepts.
|
|
; * // Defaults to "debugger_replacement"
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_LANG_SET$ To 55 ;* The language set used by the system. It should be one of the lnd_ records in the sysenv table.
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_OSWRITE$ To 56 ;* BZS 022409 Flag to use new style in oswrite (always convert value to string)
|
|
// ------------------------------------------------------------------------------------------------
|
|
* 01/27/17 djh - Remove focuscell equates, not deleting so we can see what used to be in these fields
|
|
* mtr 3-13-09 glad I'm not triskadeccaphobic
|
|
/*equ ENV_B_USE_FOCUSCELL$ To 57; * MTR Use the FocusCell settings
|
|
equ env_FOCUSCELL_FONT$ To 58; * mtr font and related data to use in the edittable cell that has focus
|
|
equ env_FOCUSCELL_FGCOLOR$ To 59; * foreground color for the edittable cell that has does not focus
|
|
equ env_FOCUSCELL_BGCOLOR$ To 60; * background color for the edittable cell that has does not focus
|
|
equ env_FOCUSCELL_SELECT_FGCOLOR$ To 61; * foreground color for the edittable cell that has focus
|
|
equ env_FOCUSCELL_SELECT_BGCOLOR$ To 62; * background color for the edittable cell that has focus
|
|
equ env_FOCUSCELL_RECTSTYLE$ To 63; * rectangle style for the edittable cell that has focus; 0=dotted, 1=solid
|
|
equ env_FOCUSCELL_RECTWEIGHT$ to 64; * rectangle weight for the edittable cell that has focus; 0=light, 1=medium, 2=thick
|
|
equ env_FOCUSCELL_RECTCOLOR$ To 65; * color of the rectangle*/
|
|
// ------------------------------------------------------------------------------------------------
|
|
* rjc 5-06-09 Hexakosioihexekontahexaphobia is a Revelation problem
|
|
equ env_BTREE_FLUSH_ON$ To 66; * true if btree.extract should flush indexes before query
|
|
// ------------------------------------------------------------------------------------------------
|
|
*equ env_source_code_management$ To 67; * true means we will use the source code management routines
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ env_git_enabled$ To 67; * true means we will use the Git system
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_MSG_STYLESHEET$ To 68 ;* STYLESHEET To BE USED For ALL MESSAGES - moved to SYSAPPS
|
|
// ------------------------------------------------------------------------------------------------
|
|
equ ENV_DFLT_DATE_VALID$ to 69
|
|
// ------------------------------------------------------------------------------------------------
|