c
	parameter	gnum = 3
	parameter	maximum_items = 128
	parameter	maximum_list = (1+gnum)*maximum_items
c
c
c Table_Find flags
c
	parameter	lnt$m_write = 1
	parameter	lnt$m_read = 2
c
	structure /equivalence_strings/
		integer*2	name_length,filler
		integer*4	attributes
		character*255	name_string
	end structure
c
	structure /item_list/
	  union
	    map
		integer*2	buffer_length
		integer*2	item_code
		integer*4	Buffer_address
		integer*4	return_length_address
	    end map
	    map
		integer*4	end_list
	    end map
	  end union
	end structure
c	
	structure /descriptor/
		integer*2	length
		byte		type
		byte		class
		integer*4	pointer
	end structure		
c
	structure /lock_status_block/
		integer*2	status
		integer*2	null
		integer*4	lock_id
		integer*4	info(4)
	end structure

	record	/lock_status_block/ node_lksb(2), table_lksb(2), lnm_lksb(2)

	record  /item_list/ syi_list(3)

	character*31	node_name

	Integer*4	image_privileges/0/, current_privileges/0/,
	2		authorized_privileges/0/, process_privileges/0/

	Integer*4	lock_flags/0/, Node_Len/0/, shared_flag /0/

	Common /lnmlocks/ 
	1	lock_flags, image_privileges, current_privileges,
	2	authorized_privileges, process_privileges,
	3	node_len, syi_list,
	4	node_lksb, table_lksb, lnm_lksb, node_name