C
C STRUCTURE PLACED INTO THE QUEUE WHEN A ROUTING NODE
C AVAILABILITY STATUS CHANGES.  THE RECEIVER MUST INCLUDE
C THE HEADER OF THE MESSAGE TOO.
C
	INTEGER*4 NETMSGLTH	! LENGTH OF THIS STRUCTURE
	PARAMETER (NETMSGLTH=20)
C
	CHARACTER*16 NET_MSG_ID	! MESSAGE ID OF THE NET MESSAGE
	PARAMETER (NET_MSG_ID='NET_STATUS')
	STRUCTURE/NETMSG/
		CHARACTER*6 PRINODE	! FROM ROUTING DATABASE
		CHARACTER*6 SECNODE	! FROM ROUTING DATABASE
		INTEGER*2   NETSTATUS	! NETWORK STATUS (FROM DECNET)
		INTEGER*2   UPDOWN	! FLAG SHOWING (0= DOWN, 1=UP)
		INTEGER*4   FLAGS	! FLAG WORD FROM NRB 
	END STRUCTURE