compile function get_seqkey(tablename)
rowdef(integer)
declare function Set_FSError
equate id to '%SK%'

seqkey = 1
open "DICT",tablename to filevar then
	locked = 0
	loop until locked
		lock filevar, id then
			locked = 1
		end else	
			unlock filevar, id else null
			call Delay(1)
		end	
	repeat	
	readv seqkey from filevar,id,1 else null		
	nextkey = seqkey + 1	
	writev nextkey to filevar,id,1 else
		retval = Set_FSError()
	end
	unlock filevar, id else null
end else
	retval = Set_FSError()
end
return seqkey