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 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