!
! DEFINE THE STRUCTURE OF THE MESSAGE HEADER. 
!
! THIS IS STRUCTURE CAN BE USED TO FORM A RECORD THAT CAN BE READ 
! FROM THE QUEUE.  IE: CONCATENATE THIS STRUCTURE TO PROCEED
! THE ACTUAL DATA TO BE RETURNED ON A READ_Q.
! 
!
! DATE OF LAST UPDATE:  8/11/86
!
! COPY RIGHT: 
!		INLAND STEEL
!		PROCESS AUTOMATION DEPT.
!		3210 WATLING ST. MS 2-465
!		EAST CHICAGO, IN   46312
!		
	PARAMETER (HxSIZ=34)
C
	BYTE HDRDEF(HxSIZ)
	BYTE HxSNM(6)		! ASCII DECNET SOURCE NODE NAME
				! (FOR MESSAGES QUEUED WITHIN A NODE
				! THIS WILL BE BLANK)
	BYTE HxDNM(6)		! DESTINATION DECNET NODE NAME
				! FOR MESSAGES QUEUED WITHIN A NODE,
				! THIS WILL BE BLANK).
	INTEGER*2 HxOFQT(4)	! OFF QUEUE TIME (FILLED IN DURING READ)
	INTEGER*2 HxTYPE	! TYPE OF MESSAGE 
!
	! 0= MESSAGE CAN BE DELETED WHEN QUEUE IS FULL AND THIS IS OLDEST
	! 1= MESSAGE IS NOT TO BE DELETED  EVEN IF QUEUE IS FULL
	! 2= IF REMOTE NODE QUEUE IS FULL, THEN DO NOT QUEUE ON REMOTE NODE
!
	INTEGER*2 HxONQT(4)	! ON QUEUE TIME (FILLED IN WHEN MESSAGE WAS
				! FIRST WRITTEN TO A QUEUE EITHER LOCALLY
				! OR ON THE REMOTE QUEUE (IT IS PRESERVED
				! WHEN REQUEUED ON TARGET NODE)
	INTEGER*2 HxLEN		! BYTE COUNT OF MESSAGE 
				!	(DOES NOT INCLUDE HEADER)
	INTEGER*2 HxQSEQ	! ON QUEUE SEQUENCE NUMBER 
C
	PARAMETER (HxMXSQ=9999)
C
	EQUIVALENCE (HDRDEF(1),HxSNM)
	EQUIVALENCE (HDRDEF(7),HxDNM)
	EQUIVALENCE (HDRDEF(13),HxOFQT)
	EQUIVALENCE (HDRDEF(21),HxTYPE)
	EQUIVALENCE (HDRDEF(23),HxONQT)
	EQUIVALENCE (HDRDEF(31),HxLEN)
	EQUIVALENCE (HDRDEF(33),HxQSEQ)