Google
 

Trailing-Edge - PDP-10 Archives - BB-FP64A-SB_1986 - 10,7/decnet/nodnam/getnod.for
There are 3 other files named getnod.for in the archive. Click here to see a list.
	Program GETNODES


C	GETNODES.FOR -- Generate NCP commands for TOPS-10
C	  7 Sep 84 /RLC
C
C	This program will read the VAX DECnet permanent database,
C	extract node records containing node numbers and names, 
C	and create NCP commands of the form  SET NODE n NAME foo.
C
C	The output file is suitable for processing by DECnet-36's
C	NCP, or by the DECnet-36 tool NODNAM.

C	Revision History
C	 7-Sep-84 1.0	RLC	Creation.
C	11-Sep-84 1.1	TL	Cosmetic edits, comments, and performance.
C	13-Sep-84 1.2	TL	Support Decnet version 4 file format

	Character*10 version
	data version/'1.2'/


	Integer l,nod_area,nod_number,nod_start,nod_finish,ptr,tmp,rec_num,
	1 errs,packets,param_type,byte_count,ptr2,DECnet_version
	Integer two_bytes
	Integer nod_chrs(256)
	Character nod_str*256, old_nod_nam*6
	Real area_node
	Logical val_found
	Common /string/nod_chrs

C
C	Define us a function for getting 16-bit quantities:
C
	TWO_BYTES(i) = nod_chrs(i) + 256 * nod_chrs(i+1)

	Type 50, Version
50	Format(1x,'Getnodes Version ',A10,/)

	Type 55
55	Format(1x,'DECnet version (3 or 4): ',$)
	Accept 60, DECnet_version
60	Format (I)
	If(DECnet_version .eq. 3 .or. DECnet_version .eq. 4) goto 70
	type 65
65	Format (1x,'?Unknown version')
	call exit

70	Open (unit=20,file='SYS$SYSTEM:NETNODE.DAT', organization='INDEXED',
	1 access='SEQUENTIAL',iostat=io,err=9000,status='OLD',
	2 blank='ZERO')

	Open (unit=21,file='NODNAM.INI',carriagecontrol='LIST',
	1 status='NEW')

	Type 80
80	Format(/)

	rec_num = 0
	errs = 0
	old_nod_nam = '      '

100	Read(20,110,end=1000,err=9100)l,nod_str
110	Format(Q,A256)

	rec_num = rec_num + 1
	packets = 0

C	Copy character data as unsigned bytes to integers

	Do 150 i = l,1,-1
150	nod_chrs(i) = ICHAR(nod_str(i: i))

C	Skip the RMS keys.  Different for different DECnet versions.

	ptr = 2 + 1
	If(DECnet_version .eq. 4) ptr = 10 + 1

C	Type 160,l,(nod_chrs(i),i=1,l)
C160	Format(' Len:',I3,130(' ',12O4,/))

C	Now, loop over the input record.  Format is a series of
C	packets, each contains Param_type (decimal network management
C	parameter type code), Byte_count (number of bytes in value), 
C	and the value.  Numbers are all in DECnet format - low byte
C	first.  Numbers that are values are an arbitrary number of
C	bytes long.  Param_types and Byte_counts are 2 bytes long.
C	ASCII is simple counted ASCII, low byte is left end of string.

C	First, make sure that there is at least a type and a byte
C	count left in the record.  If not, quit.

200	If(Ptr + 2 + 2 .gt. l) Goto 650

C	If we now have 2 packets, no need to look at rest.
C	(This assumes that each only appears at most once.)

	If(packets .eq. 2) Goto 700


C	Extract paramater type and byte count of value

	param_type = TWO_BYTES(ptr)
	ptr = ptr + 2
	byte_count = TWO_BYTES(ptr)

C	Check for node name

	If(param_type .eq. 500) Goto 400


C	Check for node address (number)

	If(param_type .eq. 502) Goto 500

C	Not interesting, Skip past this packet, continue with record.

	ptr = ptr + 2 + byte_count
	Goto 200


C
C	Here if packet 500 (node name)
C
400	nod_name_size = byte_count
	If(nod_name_size .eq. 0) Goto 9400
	nod_start = ptr + 2
	nod_finish = ptr + 1 + byte_count

C	Store node name, update ptr, check for eo$;

	Goto 600

C
C	Here if packet 502 (node number)
C
500	Call Get_Value(ptr,val_found,i)
	If(.not. val_found) Goto 9500

C	Node number is 6 bit area number + 10 bit node number

	nod_area = i / 1024
	nod_number = i  .AND. 1023

C	This gives the number of digits in the node number

	nod_num_size = ALOG10(FLOAT(nod_number)) + 1.0

C	Store node number & area, update ptr, check for eo$;

	Goto 600

C	Check eo$ here;

C	First, we skip the value field of the last packet

600	ptr = ptr + 2 + byte_count

C	Keep track of how many we've found
C	If we don't have both yet, go look some more

	packets = packets + 1
	If(packets .lt. 2) Goto 200

C	Here when the end of record is reached, or both found

C	Complain if we don't have the data we want

650	If(packets .lt. 2) Goto 9200

C	We have the data.  Figure how to format it.  The 'index'
C	is a two-dimensional table of node number size by node name size.

700	index = (nod_name_size - 1) * 4 + nod_num_size - 1

C	Save a copy of the last node name seen for errors

	old_nod_nam = nod_str(nod_start: nod_finish)

C	Zero doesn't work with computed GOTO

	If(index .eq. 0) Goto 7110

C	Dispatch on format code

	Goto (7120,7130,7140,7210,7220,7230,7240,7310,7320,7330,7340,
	1 7410,7420,7430,7440,7510,7520,7530,7540,7610,7620,7630,7640) index


C	Node number 1, Node name 1
7110	If(nod_area .eq. 0) Goto 7117
	Write(21,7115)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7115	Format('Set node',I3,'.',I1,' name ',A1)

7117	Write(21,7116) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7116	Format('Set node ',I1,' name ',A1)

C	Node number 2, Node name 1
7120	If(nod_area .eq. 0) Goto 7127
	Write(21,7125)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Go to 100

7125	Format('Set node',I3,'.',I2,' name ',A1)

7127	Write(21,7126) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7126	Format('Set node ',I2,' name ',A1)

C	Node number 3, Node name 1
7130	If(node_area .eq. 0) Goto 7137
	Write(31,7135)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7135	Format('Set node',I3,'.',I3,' name ',A1)

7137	Write(31,7136) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7136	Format('Set node ',I3,' name ',A1)

C	Node number 4, Node name 1
7140	If(nod_area .eq. 0) Goto 7147
	Write(21,7145)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7145	Format('Set node',I3,'.',I4,' name ',A1)

7147	Write(21,7146) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7146	Format('Set node ',I4,' name ',A1)

C	Node number 1, Node name 2
7210	If(nod_area .eq. 0) Goto 7217
	Write(21,7215)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7215	Format('Set node',I3,'.',I1,' name ',A2)

7217	Write(21,7216) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7216	Format('Set node ',I1,' name ',A2)

C	Node number 2, Node name 2
7220	If(nod_area .eq. 0) Goto 7227
	Write(21,7225)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7225	Format('Set node',I3,'.',I2,' name ',A2)

7227	Write(21,7226) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7226	Format('Set node ',I2,' name ',A2)

C	Node number 3, Node name 2
7230	If(nod_area .eq. 0) Goto 7237
	Write(21,7235)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7235	Format('Set node',I3,'.',I3,' name ',A2)

7237	Write(21,7236) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7236	Format('Set node ',I3,' name ',A2)

C	Node number 4 Node name 2
7240	If(nod_area .eq. 0) Goto 7247
	Write(21,7245)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7245	Format('Set node',I3,'.',I4,' name ',A2)

7247	Write(21,7246) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7246	Format('Set node ',I4,' name ',A2)

C	Node number 1 Node name 3
7310	If(nod_area .eq. 0) Goto 7317
	Write(21,7315)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7315	Format('Set node',I3,'.',I1,' name ',A3)

7317	Write(21,7316) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7316	Format('Set node ',I1,' name ',A3)

C	Node number 2 Node name 3
7320	If(nod_area .eq. 0) Goto 7327
	Write(21,7325)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7325	Format('Set node',I3,'.',I2,' name ',A3)

7327	Write(21,7326) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7326	Format('Set node ',I2,' name ',A3)

C	Node number 3 Node name 3
7330	If(nod_area .eq. 0) Goto 7337
	Write(21,7335)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7335	Format('Set node',I3,'.',I3,' name ',A3)

7337	Write(21,7336) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7336	Format('Set node ',I3,' name ',A3)

C	Node number 4 Node name 3
7340	If(nod_area .eq. 0) Goto 7347
	Write(21,7345)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7345	Format('Set node',I3,'.',I4,' name ',A3)

7347	Write(21,7346) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7346	Format('Set node ',I4,' name ',A3)

C	Node number 1 Node name 4
7410	If(nod_area .eq. 0) Goto 7417
	Write(21,7415)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7415	Format('Set node',I3,'.',I1,' name ',A4)

7417	Write(21,7416) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7416	Format('Set node ',I1,' name ',A4)

C	Node number 2 Node name 4
7420	If(nod_area .eq. 0) Goto 7427
	Write(21,7425)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7425	Format('Set node',I3,'.',I2,' name ',A4)

7427	Write(21,7426) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7426	Format('Set node ',I2,' name ',A4)

C	Node number 3 Node name 4
7430	If(nod_area .eq. 0) Goto 7437
	Write(21,7435)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7435	Format('Set node',I3,'.',I3,' name ',A4)

7437	Write(21,7436) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7436	Format('Set node ',I3,' name ',A4)

C	Node number 4 Node name 4
7440	If(nod_area .eq. 0) Goto 7447
	Write(21,7445)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7445	Format('Set node',I3,'.',I4,' name ',A4)

7447	Write(21,7446) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7446	Format('Set node ',I4,' name ',A4)

C	Node number 1 Node name 5
7510	If(nod_area .eq. 0) Goto 7517
	Write(21,7515)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7515	Format('Set node',I3,'.',I1,' name ',A5)

7517	Write(21,7516) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7516	Format('Set node ',I1,' name ',A5)

C	Node number 2 Node name 5
7520	If(nod_area .eq. 0) Goto 7527
	Write(21,7525)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7525	Format('Set node',I3,'.',I2,' name ',A5)

7527	Write(21,7526) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7526	Format('Set node ',I2,' name ',A5)

C	Node number 3 Node name 5
7530	If(nod_area .eq. 0) Goto 7537
	Write(21,7535)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7535	Format('Set node',I3,'.',I3,' name ',A5)

7537	Write(21,7536) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7536	Format('Set node ',I3,' name ',A5)

C	Node number 4 Node name 5
7540	If(nod_area .eq. 0) Goto 7547
	Write(21,7545)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7545	Format('Set node',I3,'.',I4,' name ',A5)

7547	Write(21,7546) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7546	Format('Set node ',I4,' name ',A5)

C	Node number 1 Node name 6
7610	If(nod_area .eq. 0) Goto 7617
	Write(21,7615)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7615	Format('Set node',I3,'.',I1,' name ',A6)

7617	Write(21,7616) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7616	Format('Set node ',I1,' name ',A6)

C	Node number 2 Node name 6
7620	If(nod_area .eq. 0) Goto 7627
	Write(21,7625)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7625	Format('Set node',I3,'.',I2,' name ',A6)

7627	Write(21,7626) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7626	Format('Set node ',I2,' name ',A6)

C	Node number 3 Node name 6
7630	If(nod_area .eq. 0) Goto 7637
	Write(21,7635)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7635	Format('Set node',I3,'.',I3,' name ',A6)

7637	Write(21,7636) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7636	Format('Set node ',I3,' name ',A6)

C	Node number 4 Node name 6
7640	If(nod_area .eq. 0) Goto 7647
	Write(21,7645)nod_area, nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7645	Format('Set node',I3,'.',I4,' name ',A6)

7647	Write(21,7646) nod_number,
	1 (nod_str(nod_start: nod_finish))
	Goto 100

7646	Format('Set node ',I4,' name ',A6)

C	End of file -- close up shop...

1000	Close (unit=20)
	Close (unit=21)
	Write(6,1010)rec_num,errs
1010	Format(' %Total of ',I5,' records read; ',I3,' errors.')
	Goto 9999

C	Error messages here...
9000	Write(6,9010)io
9010	Format(' %Error opening SYS$SYSTEM:NETNODE.DAT for input',/,
	1 '% Error code = ',I10)
	Goto 9999

9100	rec_num = rec_num + 1
	errs = errs + 1
	Write(6,9110)
9110	Format(' %Error getting record number',I5,/,
	1 ' %Previous node name is ',A6)
	errs = errs + 1
	Goto 100

9200	Write(6,9210) rec_num,nod_str,(nod_chrs(i),i=1,24)
9210	Format(' %Missing packet(s) in record #',
	1 I4,': "',A24,'"',/,5X,18I4,/,5X,6I4,/,' % Ignoring this record...')
	errs = errs + 1
	Goto 100

9400	Write(6,9410) rec_num, nod_str, (nod_chrs(i),i=1,l)
9410	Format(' % Null node name in record #',I4,': "',A24,'"',/,
	5X,18I4,/,5X,6I4,/,' % Ignoring this record...')
	errs = errs + 1
	Goto 100

9500	Write(6,9510) rec_num, nod_str, (nod_chrs(i),i=1,l)
9510	Format(' % Null node number in record #',I4,': "',A24,'"',/,
	5X,18I4,/,5X,6I4,/,' % Ignoring this record...')
	errs = errs + 1
	Goto 100

9999	Stop
	End
C	Subroutine to read a DECnet extensible integer

	Subroutine Get_Value(byte_ptr,value_found,value)
	Integer byte_ptr,value
	Integer byte_array(256)
	Common /string/byte_array
	Logical value_found

	Integer size

	value_found = .false.

	value = 0

C	size = TWO_BYTES(byte_ptr)  !Count of bytes in the integer
	size = byte_array(byte_ptr) + 256 * byte_array(byte_ptr+1)
	If(size .eq. 0) Goto 9999

C	Bytes are stored lo to hi order.  Loop from hi to lo.

	Do 100 i = size, 1, -1
100	value = (value * 256) + byte_array(byte_ptr + 1 + i)
	value_found = .true.

9999	Return
	End