Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.
Code Block
*  Pointers into the environment constants variable for OpenEngine
*  Used by Set_Env and Get_Env routines
 
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 and some TCL commands such as LISTDICT are used
EQU ENV_DEFAULT_DATA_VOL$    TO 1
EQU E.DOS.SORT.VOL           TO 2  ;* The DOS volume where the temporary sort
                                   ;* files will be built. If not specified then
                                   ;* it uses the default drive.
EQU ENV_DOS_SORT_VOL$        TO 2
EQU E.TRANS.VOL              TO 3  ;* Transaction volume name.  Where the
                                   ;* trans files and other lock files are
                                   ;* stored.
EQU ENV_TRANS_VOL$           TO 3
EQU E.DEFAULT.STOPS          TO 4  ;* MV list of words thrown out when indexing and
                                   ;* Cross-reference
EQU ENV_DEFAULT_STOPS$       TO 4
EQU E.INDEX.TIME             TO 5  ;* Seconds before call to background indexing
                                   ;* 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 ENV_INDEX_TIME$          TO 5
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
                                   ;* commit time.  0 = false - only logged
                                   ;* locks are unlocked at commit time.
EQU ENV_UNLOCK_ALL_COMMIT$   TO 7
EQU E.DEADLOCK.CHECK         TO 8  ;* Interval (in seconds) for checking
                                   ;* deadlock after deadlock process has
                                   ;* been started.
EQU ENV_DEADLOCK_CHECK$      TO 8
EQU E.LOCK.TIMEOUT           TO 9  ;* Number of seconds before transaction
                                   ;* times out in a wait situation
EQU ENV_LOCK_TIMEOUT$        TO 9
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
                                   ;* workstation.
EQU ENV_LOCKING_GOV$         TO 11
EQU E.AUTOTRANS              TO 12 ;* Auto transaction start mode.
                                   ;* (ON = 1 or OFF = 0)  for a lock.
EQU ENV_AUTOTRANS$           TO 12
EQU E.DEADLOCK.POSTING       TO 13 ;* Number of seconds before deadlock
                                   ;* checking is begun and locks are posted.
EQU ENV_DEADLOCK_POSTING$    TO 13
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.
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... see above.
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
Equ ENV_LOCALE$               TO 51 ;* 0=None/1=LND/-1=Determine from Windows Locale
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 ;* Flag to use new style in oswrite (always convert value to string)
Equ ENV_B_USE_FOCUSCELL$      To 57 ;* Use the FocusCell settings
Equ ENV_FOCUSCELL_FONT$       To 58 ;* 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
Equ ENV_BTREE_FLUSH_ON$       To 66; * true if btree.extract should flush indexes before query

 

...

See Also

Set_EnvGet_Env