c
C Define the queue section file header
C
C 		Inland Steel
c 		Earl Lakia
c		3210 Watling ST.  ms 2-465
c		East Chicago, IN 
c		46312
c
c Date of last update:  3/3/87
C	2/7/87 E. LAKIA  ADDED QHD$L_LKID
C	2/8/87 E. LAKIA  ADDED QHD$L_LKB
C	2/10/87 E. LAKIA ADDED QHD$L_RSB
c	2/16/87 E. LAKIA ADDED QHD$C_HASH
C	3/3/87 E. LAKIA changed QHD$W_FILL to 	QHD$W_VERSION
c		added QHD$$VERSION which reflect the current major
c		version of the queue software.  If this and the
c		installed queue, queue checker, etc. don't match
c		the queue will not be installed.
c
	INTEGER*4	QHD$K_SIZ
	PARAMETER (QHD$K_SIZ = 1024)	   ! Length of entire header
					   ! 2 BLOCKS (1024 BYTES)
	INTEGER*2 QHD$$VERSION		! RELEASE VERSION FOR THE QUEUE
	PARAMETER(QHD$$VERSION=2)	! COMPATIBLE VERSIONS
	STRUCTURE /QHDDEF/
	    UNION
		MAP
		  BYTE		QHDDEF_ALL(QHD$K_SIZ)
		END MAP
		MAP
		  INTEGER*4	QHD$L_SIZ   ! Size of queue in 512 byte blocks
		  REAL*8	QHD$Q_UPD   ! Last updated time stamp
		  INTEGER*4	QHD$L_AID   ! Number of allocated MID
		  INTEGER*4	QHD$L_IDC   ! Actual current number ID's active
		  INTEGER*4	QHD$L_FREE  ! Number of free blocks in free list
		  INTEGER*4	QHD$Q_FLS(2)! Free-list list head
		  INTEGER*4	QHD$L_EFN   ! EFN OF CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_PID   ! PID OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_IPID  ! IPID OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_PCB   ! PCB OF REGION CHECKPOINT PROCESS
		  INTEGER*4	QHD$L_STAT  ! STATUS FLAGS
		  INTEGER*4 	QHD$L_INSRV ! NUMBER OF PROCESSES IN SYS. SRV.
		  BYTE		CLOCK_CNT   ! Count of change lock name
		  CHARACTER*19	QHD$C_CLOCK ! CHANGE LOCK ASCII NAME
		  BYTE		RMBX_CNT    ! Count of router mailbox name
		  CHARACTER*19	QHD$C_RMBX  ! ROUTER MAILBOX ASCII NAME
		  CHARACTER*6	QHD$C_NODE  ! LOCAL NODE NAME
		  INTEGER*2	QHD$W_VERSION ! VERSION OF THE QUEUE
		  INTEGER*4	QHD$L_LKID  ! LOCK ID OF CHANGE LOCK
		  INTEGER*4 	QHD$L_LKB   ! ADDRESS OF LOCK BLOCK
		  INTEGER*4 	QHD$L_RSB   ! RSB OF LOCK
		  INTEGER*4 	QHD$C_HASH(128) ! HAS ENTRIES
		END MAP
	    END UNION
	END STRUCTURE

C
C Definition for status flags
C
	INTEGER*4 QHD$M_LOCK	! MID LIST BEING REORGANIZED
	PARAMETER (QHD$M_LOCK = 1)
	INTEGER*4 QHD$M_SHUTDOWN  ! QUEUE IS SHUTDOWN
	PARAMETER (QHD$M_SHUTDOWN=2)