197 lines
13 KiB
Plaintext
197 lines
13 KiB
Plaintext
compile insert ENVIRON.CONSTANTS
|
|
* Positional definitions into @ENVIRON.SET variable
|
|
* Revision History:
|
|
* 05-11-94 janem PR-10468
|
|
* 04/23/93 SLJ Added HR-specific positions 120 thru 130
|
|
* 10/30/91 RKH Removed E.TIMEDATE.FMT (=91) as consequence of bug 5441
|
|
* 03/12/90 bda Added E.SYS.DELIM.SUPPRESS - suppress entry of system delimiters chars in INPUT.CHAR
|
|
* 10/11/90 rkp added E.DET - name of display equivalence table
|
|
* 10/11/90 rkp added E.PRN.DRVS,E.PRN.LPTNO - printer driver support vars
|
|
* 09/21/90 bda Added E.LND.DEFAULT -language set default name
|
|
* 09/21/90 bda Added E.QUERY.CASE - query case sensitivity (true=case insensitive)
|
|
* 10/02/90 bda Added E.LND.LOAD - language set load list
|
|
* 10/02/90 bda Added E.TIMEDATE.FMT - TIMEDATE() format override
|
|
* 06/29/90 rkp - Added E.VIDTYPE for storing monitor type
|
|
* 06/21/90 rkp - Added E.MOUSE.ON & E.MOUSE.DEF
|
|
* 01/08/90 bda - Added E.NULL.DISPLAY.STRING for SQL display formatting.
|
|
* 09/18/89 RKP - Added E.MSTYLE for menu style
|
|
* E.PULLDOWN.NUMBERS for numbering options on pulldowns
|
|
* 09/14/89 PAT - Added E.NETCACHE.OPTION for using network cache options
|
|
* 08/16/89 RKP - Added E.INDEX.CODE, E.INDEX.CMD, E.POST.CHECK.CODE,
|
|
* E.POST.CHECK.CMD for background process hooks
|
|
* 08/10/89 RKP - Added E.SHADOWS.ON
|
|
* 07/31/89 hhw - Added E.EDIT.CASE
|
|
* 07-07-89 JPV - Added E.DEFAULT.DATA.VOL
|
|
* 06-08-89 JPV - Removing some of the variables I added.
|
|
* 05-17-89 JPV - Added E.DISABLE.LOCK.INT
|
|
* 03-09-89 JPV - Added Concurrency control variables
|
|
* 02-18-88 MEN - Added E.VIEW.MODE
|
|
* 01/19/88 MEN - Added E.QUERY.BOTTOM E.QUERY.CHAR, E.QUERY.SEL.CODE, E.QUERY.SEL.CMD
|
|
* 02/02/87 MEN - Removed some PAINT and color variables
|
|
* 01/02/87 MEN - Added E.LINE.WRAP, E.LINE.INDENT, E.LINE.INSERT
|
|
* 11/18/86 MEN - Changed E.APPL.MENU to E.INSERT.MODE and got rid of
|
|
* E.ALT.ENVIRON, E.BACK.ATR
|
|
* 10/15/86 MEN - Added E.TCL.OFF, E.MACROS.OFF, E.CAPTURE.OFF, E.BREAK.OFF
|
|
* E.SET.MACROS.OFF, E.SELECT.FLUSH.OFF, E.DOS.SORT.VOL
|
|
* 10-15-86 JAH - Added E.MENU
|
|
* 09/08/86 JAW - Added Backdrop attribute
|
|
* 08/22/86 NGM - Added @QUERY.DEPTH
|
|
* 08/21/86 NGM - Added @TYPEAHEAD
|
|
*
|
|
EQU E.INSERT.MODE TO 1 ;* 1=Put editor in insert mode.
|
|
EQU E.BACK.CHAR TO 2 ;* If present, print this as the background char.
|
|
EQU E.TCL.DEPTH TO 3 ;* Number of TCL stack items saved in memory
|
|
EQU E.TCL.SAVE TO 4 ;* If not null, the FILE where to save stack.
|
|
* The key will be 'COMMAND.STACK*':@USERNAME
|
|
EQU E.PORT TO 5 ;* Communications port information baud, etc.
|
|
EQU E.LOGON TO 6 ;* 'M' brings up Main Menu when LOGON, 'T' brings
|
|
* up TCL window, 'S' displays the SQL window
|
|
EQU E.BG.BACK.COLOR TO 7 ;* Only needed for Color sequences
|
|
EQU E.ROLLOUT TO 8 ;* If present, this is the DOS filename where
|
|
* memory is rolled out to. (Used by PCS command)
|
|
* (not used by OS/2)
|
|
EQU E.DEFAULT.STOPS TO 9 ;* MV list of words thrown out when indexing and
|
|
* Cross-reference
|
|
EQU DATA.TYPE.VERIFICATION TO 10 ;* Flag to require prompting of data types
|
|
EQU E.TAB.STOPS TO 11 ;* System Tab stops variable separated by @VM
|
|
EQU E.STATUS.ON TO 12 ;* 1 = If status lines are to be printed.
|
|
EQU E.STATUS.FORE.COLOR TO 13 ;* Color literal of status line.
|
|
EQU E.CRTHIGH TO 14 ;* Height of CRT
|
|
EQU E.CRTWIDE TO 15 ;* Width of CRT
|
|
EQU E.LPTRHIGH TO 16 ;* Height of PRINTER
|
|
EQU E.LPTRWIDE TO 17 ;* Width of PRINTER
|
|
EQU E.EDIT.CASE TO 18 ;* True for case-insensitive edit searches
|
|
EQU E.DISP.CHFILL TO 20 ;* Column Heading Fill Char to Display
|
|
EQU E.EDIT.ATR TO 21 ;* Edit attribute color when in PAINT.
|
|
EQU E.ROW.LIMIT TO 22 ;* Maximum number of rows in a PAINT window.
|
|
EQU E.VIRTUAL.LIMIT TO 23 ;* Virtual space limitation
|
|
EQU E.PRT.CHFILL TO 24 ;* Column Heading Fill Char to Printer
|
|
EQU E.DISP.CHUND TO 25 ;* Column Heading Underline Char to Display
|
|
EQU E.PRT.CHUND TO 26 ;* Column Heading Underline Char to Printer
|
|
EQU E.TYPEAHEAD TO 27 ;* Type ahead flag - 1 = allow type ahead
|
|
* 0 = type ahead disabled ("eat" extra chars)
|
|
EQU E.QUERY.DEPTH TO 28 ;* Number of queries that may be stored
|
|
EQU E.INDEX.TIME TO 29 ;* 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 E.BACKGRND.TIME TO 30 ;* Seconds between checks for index
|
|
* transactions when no transactions found.
|
|
EQU E.PLAYDELAY TO 31 ;* Hundreths of seconds between keystrokes
|
|
* during CAPTURE playback.
|
|
EQU E.BG.FORE.COLOR TO 32 ;* Color to use with E.BACK.CHAR above.
|
|
EQU E.DFLT.DICT TO 33
|
|
EQU E.BEEPS TO 34 ;* Beeping messages if non-NULL.
|
|
EQU E.DFLT.BIND TO 35 ;* Default Dictionary Binding mode for Paint
|
|
EQU E.MESSAGE.TIME TO 36 ;* Default message time when 'T' type is used.
|
|
EQU E.MENU TO 37 ;* Default system menu for use by windows that don't have custom menus
|
|
EQU E.TCL.ON TO 38 ;* 1 = TCL window turned on from INPUT.CHAR
|
|
EQU E.ENABLE.MACRO.EXEC TO 39 ;* 1 = MACROS playback enabled.
|
|
EQU E.CAPTURE.ON TO 40 ;* 1 = KEY CAPTURE process enabled.
|
|
EQU E.ENABLE.MACRO.BUILD TO 41 ;* 1 = MACRO building enabled.
|
|
EQU E.SELECT.FLUSH.ON TO 42 ;* 1 = Flush Index Transactions BEFORE select.
|
|
EQU E.DOS.SORT.VOL TO 43 ;* The DOS volume where the temporary sort
|
|
* files will be built. If not specified then
|
|
* it uses the default drive.
|
|
EQU E.EDIT.SNAPSHOTS TO 44 ;* 1 = EDIT will take snapshots while exiting each edit session
|
|
EQU E.LINE.WRAP TO 45 ;* 1 = EDIT will auto wrap lines
|
|
EQU E.LINE.INDENT TO 46 ;* 1 = EDIT will auto indent lines
|
|
EQU E.LINE.INSERT TO 47 ;* 1 = EDIT will auto insert lines
|
|
EQU E.DEFAULT.MACRO TO 48 ;* Name of the macro to be loaded at logon
|
|
EQU E.SYS.MENU.POPUP TO 49 ;* 1 = Displays system menus on menu <F2>
|
|
EQU E.STATUS.BACK.COLOR TO 50 ;* status line background color
|
|
EQU E.DEFAULT.DATA.VOL TO 51 ;* Default data volume where files are
|
|
* created and some TCL commands such as LISTDICT are used
|
|
*EQU E.XX TO 52 ;* reserved
|
|
EQU E.SUPPRESS.NONNUMERIC TO 53 ;* Suppress nonnumeric error messages
|
|
EQU E.SUPPRESS.SYSTEM.MSGS TO 54 ;* Suppress system error messages
|
|
EQU E.QUERY.BOTTOM TO 55 ;* 1 = Prompt for all QUERY mode info in border
|
|
EQU E.QUERY.CHAR TO 56 ;* If present, print this as the QUERY mask character
|
|
EQU E.QUERY.SEL.CODE TO 57 ;* The CATALYST code used to display the QUERY SELECT window.
|
|
EQU E.QUERY.SEL.CMD TO 58 ;* The command used to display the QUERY SELECT window.
|
|
EQU E.VIEW.MODE TO 59 ;* 1 = R/LIST in View window; '' = Non-windowed RLIST
|
|
EQU E.VIEW.RLIST.CODE TO 60 ;* The CATALYST code for displaying the default R/LIST builder in View
|
|
EQU E.VIEW.RLIST.CMD TO 61 ;* The command associated with E.VIEW.RLIST.CODE
|
|
EQU E.HELP.LEVEL TO 62 ;* Help Level @HELP.LEVEL
|
|
EQU E.DESTRUCT.EDIT TO 63 ;* If Yes then editor will erase line when toggling is originated by first typed char
|
|
EQU E.FKEY.FGROUND TO 64 ;* Help level 1 & 2 status line function key foreground
|
|
EQU E.FKEY.BGROUND TO 65 ;* Help level 1 & 2 status line function key background
|
|
|
|
* Concurrency Control variables
|
|
EQU E.TRANS.VOL TO 66 ;* Transaction volume name. Where the
|
|
* trans files and other lock files are
|
|
* stored.
|
|
EQU E.UNLOCK.ALL.COMMIT TO 67 ;* 1 = true - then UNLOCK ALL imposed at
|
|
* commit time. 0 = false - only logged
|
|
* locks are unlocked at commit time.
|
|
EQU E.DEADLOCK.CHECK TO 68 ;* Interval (in seconds) for checking
|
|
* deadlock after deadlock process has
|
|
* been started.
|
|
EQU E.LOCK.TIMEOUT TO 69 ;* Number of seconds before transaction
|
|
* times out in a wait situation
|
|
EQU E.CONSISTENCY.LEVEL TO 70 ;* Number (0-4) for locking consistency
|
|
EQU E.LOCKING.GOV TO 72 ;* Number of allowable locks from this
|
|
* workstation.
|
|
EQU E.AUTOTRANS TO 73 ;* Auto transaction start mode.
|
|
* (ON = 1 or OFF = 0)
|
|
EQU E.DISABLE.LOCK.INT TO 74 ;* If "Y" this will disable the [Esc] key
|
|
* interrupt for the user while waiting
|
|
* for a lock.
|
|
EQU E.DEADLOCK.POSTING TO 75 ;* Number of seconds before deadlock
|
|
* checking is begun and locks are posted.
|
|
|
|
EQU E.SHADOWS.ON TO 76 ;* If true, borders are displayed with
|
|
* shadows.
|
|
* Background process equates
|
|
EQU E.INDEX.CODE TO 77 ;* Catalyst code for replace background
|
|
* process
|
|
EQU E.INDEX.CMD TO 78 ;* Catalyst command for replace background
|
|
* process
|
|
EQU E.POST.CHECK.CODE TO 79 ;* Catalyst code for post index check
|
|
* process
|
|
EQU E.POST.CHECK.CMD TO 80 ;* Catalyst command for post index check
|
|
* process
|
|
EQU E.NETCACHE.OPTION TO 81 ;* For network cache option
|
|
EQU E.MSTYLE TO 82 ;* menu style for WINUS
|
|
EQU E.PULLDOWN.NUMBERS TO 83 ;* BOOLEAN, number options on pulldowns
|
|
EQU E.NULL.DISPLAY.STRING TO 84 ;* String to represent NULL values in SQL
|
|
* report (display only).
|
|
EQU E.MOUSE.ON TO 85 ;* BOOLEAN, mouse enable switch
|
|
EQU E.MOUSE.DEF TO 86 ;* Key to record in SYSTEM file containing
|
|
* mouse definition record
|
|
EQU E.VIDTYPE TO 87 ;* Stores video card type
|
|
EQU E.LND.DEFAULT TO 88 ;* Active language set default name
|
|
EQU E.LND.LOAD TO 89 ;* List of language sets to load into memory
|
|
EQU E.QUERY.CASE TO 90 ;* query case sensitivity (true=case insensitive)
|
|
EQU E.PRN.DRVS TO 92 ;* List of printer drivers selected
|
|
EQU E.PRN.LPTNO TO 93 ;* Associated list of devices for redirection
|
|
EQU E.DET TO 94 ;* Name of display equivalence table to use
|
|
EQU E.SYS.DELIM.SUPPRESS TO 95 ;* BOOLEAN, suppress input of system
|
|
;* delimiter characters ( >= CHAR(250)). True = suppress.
|
|
Equ E.User1 To 96 ;* Reserved for Users/Developers
|
|
Equ E.User2 To 97 ;* ""
|
|
Equ E.User3 To 98 ;* ""
|
|
Equ E.User4 To 99 ;* ""
|
|
Equ E.User5 To 100 ;* ""
|
|
|
|
*** equates 120-130 are for the HR product ***
|
|
|
|
equ e.pen.view.color to 120 ;* pending view color
|
|
equ e.custom.colors to 121 ;* suppress the the custom colors (1/0)
|
|
equ bchar$ to 122 ;* background character with all video
|
|
* attributes gets constructed in
|
|
* initialize
|
|
* these are set by initialize
|
|
|
|
equ sr.vendor$ to 123 ;* vendor name (e.g., cdc, isi, rti)
|
|
equ sr.changes$ to 124 ;* changes flag (1/0)
|
|
equ sr.product$ to 125 ;* name of the product
|
|
equ sr.dflt.ac$ to 126 ;* default area code
|
|
equ sr.dflt.dt$ to 127 ;* default date
|
|
equ sr.hr_paycheck$ to 128 ;* hr-paycheck type (e.g. cdc, rti, etc.)
|
|
equ sr.pit_on$ to 129 ;* point in time flag
|
|
equ sr.clean_station$ to 130 ;* cleaned-up stationid
|
|
|
|
* Source Date: 12:06:56 11 MAY 1994 Build ID: AREV*3.1.180 Level: 3.13
|