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
