!*** MODULE $LCKDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  LOCK MANAGER DEFINITIONS
! -
	PARAMETER LCK$M_VALBLK = '00000001'X
	PARAMETER LCK$M_CONVERT = '00000002'X
	PARAMETER LCK$M_NOQUEUE = '00000004'X
	PARAMETER LCK$M_SYNCSTS = '00000008'X
	PARAMETER LCK$M_SYSTEM = '00000010'X
	PARAMETER LCK$M_NOQUOTA = '00000020'X
	PARAMETER LCK$M_CVTSYS = '00000040'X
	PARAMETER LCK$M_RECOVER = '00000080'X
	PARAMETER LCK$M_PROTECT = '00000100'X
	PARAMETER LCK$M_NODLCKWT = '00000200'X
	PARAMETER LCK$M_NODLCKBLK = '00000400'X
	PARAMETER LCK$M_EXPEDITE = '00000800'X
	PARAMETER LCK$M_QUECVT = '00001000'X
	PARAMETER LCK$M_BYPASS = '00002000'X
	PARAMETER LCK$M_DEQALL = '00000001'X
	PARAMETER LCK$M_CANCEL = '00000002'X
	PARAMETER LCK$M_INVVALBLK = '00000004'X
	PARAMETER LCK$K_NLMODE = '00000000'X	!  NULL 
	PARAMETER LCK$K_CRMODE = '00000001'X	!  CONCURRENT READ 
	PARAMETER LCK$K_CWMODE = '00000002'X	!  CONCURRENT WRITE 
	PARAMETER LCK$K_PRMODE = '00000003'X	!  PROTECTED READ 
	PARAMETER LCK$K_PWMODE = '00000004'X	!  PROTECTED WRITE 
	PARAMETER LCK$K_EXMODE = '00000005'X	!  EXCLUSIVE 
	STRUCTURE /LCKDEF/
	UNION
	    MAP
	        PARAMETER LCK$S_VALBLK = 1
	        PARAMETER LCK$V_VALBLK = 0		!  VALUE BLOCK INCLUDED 
	        PARAMETER LCK$S_CONVERT = 1
	        PARAMETER LCK$V_CONVERT = 1		!  CONVERSION REQUEST 
	        PARAMETER LCK$S_NOQUEUE = 1
	        PARAMETER LCK$V_NOQUEUE = 2		!  DO NOT QUEUE REQUEST 
	        PARAMETER LCK$S_SYNCSTS = 1
	        PARAMETER LCK$V_SYNCSTS = 3		!  SYNCHRONOUS STATUS REQUESTED 
	        PARAMETER LCK$S_SYSTEM = 1
	        PARAMETER LCK$V_SYSTEM = 4		!  SYSTEM LOCK 
	        PARAMETER LCK$S_NOQUOTA = 1
	        PARAMETER LCK$V_NOQUOTA = 5		!  DON'T CHARGE QUOTA
	        PARAMETER LCK$S_CVTSYS = 1
	        PARAMETER LCK$V_CVTSYS = 6		!  CONVERT TO SYSTEM
	        PARAMETER LCK$S_RECOVER = 1
	        PARAMETER LCK$V_RECOVER = 7		!  RECOVER LOCK DURING FAILOVER
	        PARAMETER LCK$S_PROTECT = 1
	        PARAMETER LCK$V_PROTECT = 8		!  PROTECT LOCK DURING FAILOVER
	        PARAMETER LCK$S_NODLCKWT = 1
	        PARAMETER LCK$V_NODLCKWT = 9		!  NO DEADLOCK WAITING
	        PARAMETER LCK$S_NODLCKBLK = 1
	        PARAMETER LCK$V_NODLCKBLK = 10		!  NO DEADLOCK BLOCKING
	        PARAMETER LCK$S_EXPEDITE = 1
	        PARAMETER LCK$V_EXPEDITE = 11		!  EXPEDITE NLMODE REQUEST
	        PARAMETER LCK$S_QUECVT = 1
	        PARAMETER LCK$V_QUECVT = 12		!  FORCE CONVERSION TO QUEUE
	        PARAMETER LCK$S_BYPASS = 1
	        PARAMETER LCK$V_BYPASS = 13		!  BYPASS WAITING REQUESTS
! 
!     	IFBLKING bitfield mask;		/* PERFORM CONVERSION IF BLOCKING
! 
	    BYTE %FILL (2)
	    END MAP
	    MAP
	        PARAMETER LCK$S_DEQALL = 1
	        PARAMETER LCK$V_DEQALL = 0		!  DEQUEUE ALL LOCKS 
	        PARAMETER LCK$S_CANCEL = 1
	        PARAMETER LCK$V_CANCEL = 1		!  CANCEL REQUEST
	        PARAMETER LCK$S_INVVALBLK = 1
	        PARAMETER LCK$V_INVVALBLK = 2		!  INVALIDATE VALUE BLOCK
	    BYTE %FILL (1)
	    END MAP
! LOCK MODES 
	END UNION
	END STRUCTURE	! LCKDEF
CDEC$ END OPTIONS