C
C NRBDEF.TXT
C
C NODE ROUTING BLOCK WITHIN ROUTING DATABASE WITHIN THE
C MA_ROUTER PROCESS
C
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:   2/23/87
C
C MODIFICATION HISTORY:
C  2/23/87- E. LAKIA  ADDED NRB$M_PRILOG
C
C
	INTEGER*4 NET_MBX_CNT		! NUMBER OF LETTERS
	PARAMETER (NET_MBX_CNT=20)
C
	INTEGER*4 NET_MBX_SIZE		! SIZE OF EACH NETWORK LETTER
	PARAMETER(NET_MBX_SIZE=128)
C
	STRUCTURE/NRBDEF/
	  CHARACTER*6 NRB$C_PRINODE	! PRIMARY DECNET NODE NAME NODE
	  CHARACTER*6 NRB$C_SECNODE	! SECONDARY DECNET NODE NAME
	  INTEGER*4 NRB$Q_NCBDES(2)	! NCB DESCRIPTOR
	  CHARACTER*8 NRB$C_CURNODE 	! ACTUAL CURRENT NODE PLUS DOUBLE COLON
	  CHARACTER*60 NRB$C_ACC 	! DECNET ACCESS CONTROL STRING (LESS NODE NAME)
	  CHARACTER*100 NRB$C_REMNCB	! REMOTE NODE REQUEST NCB, IE:
					!  B4750B::"0=LAKIA      "
	  RECORD/IOSTATUS/NRB$Q_NETSTS	! NETWORK STATUS BLOCK, LINK CONNECTIONS, ETC.
	  RECORD/IOSTATUS/NRB$Q_OLDSTS	! PREVIOUS NETWORK STATUS (SO WON'T LOG FOREVER)
	  RECORD/IOSTATUS/NRB$Q_MBXSTS	! NETWORK MAILBOX STATUS
	  INTEGER*4 NRB$L_FLAGS 	! FLAG WORDS
	  INTEGER*4 NRB$L_CHAN		! CHANNEL ASSIGNED TO REMOTE NODE FOR WRITES
	  INTEGER*4 NRB$L_NETMBX	! CHANNEL ASSIGNED TO NET MBX
	  INTEGER*2 NRB$W_LNKSEQO	! LINK SEQUENCE NUMBER OUTBOUND
	  INTEGER*2 NRB$W_LNKSEQI	! LINK SEQUENCE NUMBER INBOUND
 	  UNION
	  MAP
	    BYTE NRB$B_NETMSG(NET_MBX_SIZE)	! NETWORK MESSAGE
	  END MAP
	  MAP
	    INTEGER*2 NRB$W_NETMSG(NET_MBX_SIZE/2)
	  END MAP
	  MAP
	    INTEGER*4 NRB$L_NETMSG(NET_MBX_SIZE/4)
	  END MAP
	  END UNION
	  INTEGER*4 NRB$L_UNSBUF ! UNSOLICITED READ BUFFER
	  INTEGER*4 NRB$L_UNSSIZ ! SIZE OF THE UNSOLICITED BUFFER
	  INTEGER*4 NRB$L_LASTID   ! LAST ID SCANNED FOR BUFFER FREE
	  INTEGER*4 NRB$L_IDCNT  ! NUMBER OF MESSAGE ID'S ROUTED TO THIS NODE

	END STRUCTURE
C
	INTEGER*4 NRB$L_SIZ
	PARAMETER (NRB$L_SIZ=372)	! LESS BUFFERS, ETC.
C
C DEFINITIONS FOR FLAG WORD
C
	INTEGER*4 NRB$M_DWN	! REMOTE LINK DOWN
	PARAMETER (NRB$M_DWN = 1)
	INTEGER*4 NRB$M_RTM	! REMOTE LINK RETRY TIMER ACTIVE
	PARAMETER (NRB$M_RTM = 2) 
	INTEGER*4 NRB$M_ATM	! LOCAL CONNECT FOR REMOTE NODE IN PROGRESS
	PARAMETER (NRB$M_ATM=4)
	INTEGER*4 NRB$M_DRQ 	! LOCAL DISCONECT FROM REMOTE NODE IN PROGRESS
	PARAMETER (NRB$M_DRQ=8)
	INTEGER*4 NRB$M_CON	! OUTBOUND REMOTE LINK ESTABLISHED AND CONNECTED
	PARAMETER (NRB$M_CON=16)
	INTEGER*4 NRB$M_RNRQC	! REMOTE NODE REQUESTING CONNECTION, USE
				! REMOTE NCB
	PARAMETER (NRB$M_RNRQC=32)
	INTEGER*4 NRB$M_SEC	! SECONDARY NODE NAME IN USE
	PARAMETER (NRB$M_SEC = 64)
	INTEGER*4 NRB$M_LNKAVL	! LOGICAL LINK ESTABLISHED WITH REMOTE NODE
	PARAMETER (NRB$M_LNKAVL=128)
	INTEGER*4 NRB$M_CONTIMER  ! CONNECT TIMER ACTIVE
	PARAMETER (NRB$M_CONTIMER=256)
	INTEGER*4 NRB$M_SHUTDOWN  ! ROUTING SHUTDOWN IN PROGRESS
	PARAMETER (NRB$M_SHUTDOWN=512)
	INTEGER*4 NRB$M_NOMSG	! NO OUTBOUND MESSAGES ROUTED BY THIS NODE
	PARAMETER (NRB$M_NOMSG=1024)
	INTEGER*4 NRB$M_PRILOG
	PARAMETER (NRB$M_PRILOG=2048) ! PRIMARY NODE NAME IS A LOGICAL NODE NAME