20 lines
753 B
Plaintext
20 lines
753 B
Plaintext
compile Insert global_Common
|
|
*
|
|
* GLOBAL_COMMON Insert File
|
|
*
|
|
* Labeled common variable which holds global environment parameters.
|
|
*
|
|
* created 6/7/89 jpv
|
|
|
|
|
|
COMMON /%GLOBAL.ENV%/ GLOBAL.ENV@
|
|
|
|
EQU E.COMMIT.VOLUME$ TO 1 ;* Contains global commit volume
|
|
EQU E.COMMIT.PROT$ TO 2 ;* 1 = Yes, 0 = No
|
|
EQU E.VICTIM.SELECTION$ TO 3 ;* For deadlock situations.
|
|
EQU E.IMPLICIT.LOCKING$ TO 4 ;* 1 = Record locking, 0 = File locking
|
|
EQU E.COORD.LOCKING$ TO 5 ;* Automatic coordinated locking (on/off)
|
|
|
|
EQU SYSTEM_RECORD$ TO "%GLOBAL_ENVIRONMENT%" ;* Record name in SYSTEM file where global constants are kept
|
|
* Source Date: 17:07:55 30 JUN 1992 Build ID: AREV*2.2.38 Level: 2.2
|