C
C  "HDRDEF"
C
C DEFINE THE STRUCTURE OF THE MESSAGE HEADER. 
C
C THIS IS STRUCTURE CAN BE USED TO FORM A RECORD THAT CAN BE READ 
C FROM THE QUEUE.  IE: CONCATENATE THIS STRUCTURE TO PRECEED
C THE ACTUAL DATA TO BE RETURNED ON A READ_Q.
C
C IE:
C 	STRUCTURE /STEEL_EVENT/
C	   RECORD/HDRDEF/HDR        ! HEADER 
C                               ! --- START OF USER DATA ---
C	   CHARACTER*23 START_BLOW_TIME
C       END STRUCTURE
C
C       RECORD/STEEL_EVENT/MSG_BUF
C
C	INTEGER*4 Q_BLOCK(2)
C	INTEGER*4 RNA_PTR
C	INTEGER*4 SYS_STATUS
C
C       SYS_STATUS=READ_Q(Q_BLOCK,MESSAGE_ID,MSG_BUF,RNA_PTR)
C       IF(.NOT. SYS_STATUS)....
C
C       TYPE *,' START BLOW TIME: ',MSG_BUF.START_BLOW_TIME
C
C 
C
C DATE OF LAST UPDATE:  8/11/86
C
C		INLAND STEEL
C		PROCESS AUTOMATION DEPT.
C		3210 WATLING ST. MS 2-465
C		EAST CHICAGO, IN   46312
C		
	STRUCTURE /HDRDEF/
	  CHARACTER*6  HDR$C_SNM ! ASCII DECNET SOURCE NODE NAME
				 ! (FOR MESSAGES QUEUED WITHIN A NODE
				 !  THIS WILL BE BLANK)
	  CHARACTER*6 HDR$C_DNM  !  DESTINATION DECNET NODE NAME
				 ! FOR MESSAGES QUEUED WITHIN A NODE,
				 ! THIS WILL BE BLANK).
	  INTEGER*4 HDR$Q_OFFQT(2) ! OFF QUEUE TIME (FILLED IN DURING READ)
	  INTEGER*2 HDR$W_TYPE 	   ! TYPE OF MESSAGE 
C
C		0= MESSAGE CAN BE DELETED WHEN QUEUE IS FULL AND THIS IS OLDEST
C	 	1= MESSAGE IS NOT TO BE DELETED  EVEN IF QUEUE IS FULL
C	 	2= IF REMOTE NODE QUEUE IS FULL, THEN DO NOT QUEUE ON 
C		   REMOTE NODE
C
	  INTEGER*4 HDR$Q_ONQT(2)  ! ON QUEUE TIME (FILLED IN WHEN MESSAGE WAS
C				     FIRST WRITTEN TO A QUEUE EITHER LOCALLY
C				     OR ON THE REMOTE QUEUE (IT IS PRESERVED
C				     WHEN REQUEUED ON TARGET NODE)
	  INTEGER*2 HDR$W_LEN	! BYTE COUNT OF MESSAGE DOES NOT INCLUDE HEADER
	  INTEGER*2 HDR$W_QSEQ	! ON QUEUE SEQUENCE NUMBER (0000-HDR$W_MAXSEQ)
	END STRUCTURE
C
C PARAMETERS
C
	INTEGER*4 HDR$K_SIZ	!  MINIMUM MESSAGE SIZE
	PARAMETER (HDR$K_SIZ=34)
	INTEGER*4 HDR$K_MAXSEQ  ! MAXIMUM ON QUEUE SEQUENCE NUMBER
	PARAMETER (HDR$K_MAXSEQ=9999)