c
c MESSAGE STRUCTURE AS STORED WITHIN THE QUEUE MESSAGE BLOCKS
c
c
c		INLAND STEEL
c		PROCESS AUTOMATION DEPT.
c		3210 WATLING ST. MS 2-465
c		EAST CHICAGO, IN   46312
c		
c DATE OF LAST UPDATE:  8/12/86
c
	INTEGER*4 QST$K_MSGL			! Length of data area
	PARAMETER (QST$K_MSGL=504)
	INTEGER*4 QS2$K_MSGL			! Length of data area in header
	PARAMETER (QS2$K_MSGL=462)
	INTEGER*4 QST$K_SIZ			! Length of QST area
	PARAMETER (QST$K_SIZ=512)
	STRUCTURE /QSTDEF/
	    UNION
		MAP
		    BYTE QSTDEF_ALL(QST$K_SIZ)	! Entire buffer
		END MAP
		MAP
		    INTEGER*4	QS2$L_FLNK	! Foward link
		    INTEGER*4	QS2$L_BLNK	! Backward link
		    INTEGER*4	QS2$L_DLNK(2)	! Data links
		    BYTE	QS2$C_HDR(HDR$K_SIZ)	! Header
		    BYTE	QS2$C_MSG(QS2$K_MSGL)	! Data in block 1
		END MAP
		MAP
		    INTEGER*4	QST$L_FLNK	! Foward link
		    INTEGER*4	QST$L_BLNK	! Backward link
		    BYTE	QST$C_MSG(QST$K_MSGL)	! Data in blocks 2-N
		END MAP
	    END UNION
	END STRUCTURE
C