!
! QUEUE SECTION FILE HEADER STRUCTURE
!
!
! COPY RIGHT: 
!		INLAND STEEL
!		PROCESS AUTOMATION DEPT.
!		3210 WATLING ST. MS 2-465
!		EAST CHICAGO, IN   46312
!		
! DATE OF LAST UPDATE:  9/16/86
!
	INTEGER QxKSIZ
	PARAMETER (QxKSIZ=20)	! SIZE OF QUEUE HEADER
	BYTE QHDDEF(QxKSIZ)
	INTEGER*2 QxSIZ	! SIZE OF QUEUE IN 512 BYTE BLOCKS
	INTEGER*2 QxUPD(4) ! QUAD WORD FOR LAST UPDATED TIME STAMP
	INTEGER*2 QxIDC 	! ACTUAL NUMBER OF ID'S IN USE OR DEFINED
	INTEGER*2 QxFREE 	! NUMBER OF FREE BLOCKS 
	BYTE QxNODE(6)		! Local node name
C
	EQUIVALENCE(QHDDEF(1),QxSIZ)
	EQUIVALENCE(QHDDEF(3),QxUPD)
	EQUIVALENCE(QHDDEF(11),QxIDC)
	EQUIVALENCE(QHDDEF(13),QxFREE)
	EQUIVALENCE(QHDDEF(15),QxNODE)