c
C Define the message ID structure
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:  5/7/87
C	5/7/87   E. LAKIA- ADDED MID$M_QUERDERR
C 		QUEUE READ ERROR ENCOUNTERED
c	2/17/87  E. LAKIA- ADDED MID$L_HASH
C
c
	INTEGER*4 MID$K_LEN			! Length of MID area
	PARAMETER (MID$K_LEN=64)
	INTEGER*4 MID$K_SIZ			! Length of MID name
	PARAMETER (MID$K_SIZ=16)

	STRUCTURE /MIDDEF/
	    UNION
		MAP
		    BYTE MIDDEF_ALL(MID$K_LEN)	! Entire buffer
		END MAP
		MAP
	    	    CHARACTER*16 MID$C_MID	! ASCII MESSAGE ID
		    INTEGER*4	MID$L_FLK	! FORWARD LINK TO FIRST MESSAGE IN QUEUE THIS ID
		    INTEGER*4	MID$L_BLK	! BACKWARD LINK TO LAST MESSAGE IN QUEUE THIS ID
		    INTEGER*4	MID$L_RNA	! READ BUT NOT ACKNOWLEGED MESSAGE
		    INTEGER*4	MID$L_BRNA	! RNA Backward pointer
		    INTEGER*2	MID$W_MAX	! MAXIMUM NUMBER OF MESSAGES ALLOWED THIS ID
		    INTEGER*2	MID$W_CNT	! CURRENT NUMBER IN QUEUE THIS MESSAGE ID
		    INTEGER*2	MID$W_QSEQ	! CURRENT ON QUEUE SEQUNECE NUMBER
		    INTEGER*4	MID$L_STAT	! STATUS FLAG WORD ( DEFINITIONS BELOW:)
		    INTEGER*4	MID$L_CPID	! PID LONG WORD OF CONNECTED PROCESS
		    INTEGER*2	MID$W_NVCNT	! NUMBER OF NON-VOLATILE MESSAGE
		    INTEGER*2	MID$W_EFN	! READER'S EFN TO SET IF MID$W_CNT GOES NON-ZERO
		    INTEGER*4	MID$L_PCB	! READER'S PCB
		    INTEGER*4	MID$L_IPID	! READER'S INDEX PID
		    INTEGER*2   MID$W_FILL	! FILL 
		    INTEGER*4   MID$L_HASH	! LINK TO NEXT MID IN HASH CHAIN
		END MAP
	    END UNION
	END STRUCTURE
C
C Definition for status flags
C
	INTEGER*4 MID$M_RQF 	! REMOTE QUUEE FOR THIS MESSAGE ID IS FULL
	PARAMETER (MID$M_RQF = 1)
	INTEGER*4 MID$M_DEL	! This MID has been deleted
	PARAMETER (MID$M_DEL = 4)
	INTEGER*4 MID$M_IOPND	! I/O PENDING FOR THIS ID TO A REMOTE NODE
	PARAMETER (MID$M_IOPND = 8)
	INTEGER*4 MID$M_ACKPND	!  ACKNOWLEGE FROM A REMOTE NODE IS PENDING
	PARAMETER (MID$M_ACKPND=16)
	INTEGER*4 MID$M_NOROUTE	! THIS MID IS NOT ROUTEABLE
	PARAMETER (MID$M_NOROUTE= 32)
	INTEGER*4 MID$M_QUERDERR ! QUEUE READ ERROR ENCOUNTERED
	PARAMETER (MID$M_QUERDERR=64)