The code snipped below is a final desperate attempt to try to track down an error that has been plauging me for about 10 months. Simply stated I have a table with an index tag named xrec. When I try to set the order to this tag the 'variable xrec does not exist' error occurs. This happens only on certain installations - about 1 out of a hundred. So I thought, oh well, lets just create this thing on the fly since almost all these programs are run on single machine installations. Now I am getting another strange error set. The first time through this an error occurs at the line marked '4.'. The error is 'Alias WPSCTRAN is not found'. An error then occurs on the next line -'Variable RECNUM is not found'. When the routine is run again the error occurs at line 3 and is 'File is in use'. I would really appreciate it if someone could tell me what is happening here. Thanks! PS - I know that the code below the else statement is bad code - I wanted it to generate an error but NOT the errors that I am getting.

lparameters buffermode
if tagno('xrec','wpsctran') > 0
	select wpsctran
	tagpos=tagno('xrec','wpsctran')
	set order to tagpos
else			
1.	* try to create the tag here, added this code on 9.21.04
2.	use in wpsctran
3.	use wpsctran in 0 exclusive
4.	select wpsctran
5.	index on recnum tag xrec
6.	use 	
7.	use wpsctran in 0
8.	select wpsctran
9.	SET ORDER TO tag XREC
10.	buffermode=iif(lower(buffermode) = 'op' , 5 , 1 )
	=cursorsetprop("Buffering",buffermode)	&& either optimistic table or no buffering
endif