!*** MODULE $LKSBDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define Lock Status Block
 ! -
	STRUCTURE /LKSB/
	    INTEGER*2 LKSB$W_STATUS			 !  Status
	    INTEGER*2 LKSB$W_RESERVED		 !  Reserved
	    INTEGER*4 LKSB$L_LKID			 !  Lock identification
	    BYTE      LKSB$B_VALBLK(1:16)		 !  Lock value block
	END STRUCTURE	! LKSB
	PARAMETER LKSB$K_LENGTH = '00000018'X	 !  Length of LKSB
	PARAMETER LKSB$C_LENGTH = '00000018'X	 !  Length of LKSB
	STRUCTURE /XLKSB/
	    INTEGER*2 XLKSB$W_STATUS		 !  Status
	    INTEGER*2 XLKSB$W_RESERVED		 !  Reserved
	    INTEGER*4 XLKSB$L_LKID			 !  Lock identification
	    BYTE      XLKSB$B_XVALBLK(1:64)		 !  Lock value block
	END STRUCTURE	! XLKSB
	PARAMETER XLKSB$K_LENGTH = '00000048'X	 !  Length of XLKSB
	PARAMETER XLKSB$C_LENGTH = '00000048'X	 !  Length of XLKSB
!DEC$ END OPTIONS