!*** MODULE $LCKDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  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_NOIOLOCK8 = '00004000'X
	PARAMETER LCK$M_NOFORK = '00008000'X
	PARAMETER LCK$M_XVALBLK = '00010000'X
	PARAMETER LCK$M_DEQALL = '00000001'X
	PARAMETER LCK$M_CANCEL = '00000002'X
	PARAMETER LCK$M_INVVALBLK = '00000004'X
	PARAMETER LCK$M_RESV_NOIOLOCK8 = '00004000'X
	PARAMETER LCK$M_RESV_NOFORK = '00008000'X
	PARAMETER LCK$M_RESV_XVALBLK = '00010000'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
	        PARAMETER LCK$S_NOIOLOCK8 = 1
	        PARAMETER LCK$V_NOIOLOCK8 = 14		 !  DO NOT LOCK IOLOCK8 FOR CALLBACK
	        PARAMETER LCK$S_NOFORK = 1
	        PARAMETER LCK$V_NOFORK = 15		 !  SAFE TO PERFORM OPERATION WITHOUT FORK
	        PARAMETER LCK$S_XVALBLK = 1
	        PARAMETER LCK$V_XVALBLK = 16		 !  LONG VALUE BLOCK INCLUDED 
 ! 
 !       IFBLKING bitfield mask;         /* PERFORM CONVERSION IF BLOCKING
 ! 
	    BYTE %FILL (3)
	    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
!DEC$ END OPTIONS