This is a rewrite of the OWN verb submitted in the spring '84
	SIG tape. 


	The program has three parts.

	(1) Parsing and expanding the file specification
	entered by the user to include the translated
	device, default directory + subdirectories if
	needed. 
	(2) Extracting the lowest parent directory from
	the expanded string to obtain the correct UIC
	for changing the files requested by the user.
	This is explained in detail in the
	documentation.
	(3) Changing the UIC in the file(s) requested
	by the user.


	This program does NOT change the file's UIC to the user's 
	UIC but to the lowest defined directory's UIC. Therefore, 
	you do not have to worry about someone using this verb to gain
	control of another users directory.


	We also found a bug in the old version. By setting your default 
	to the directory containing your default directory, as in 
	[000000], a user could change the UIC on anybody's default.DIR 
	to the same UIC value as it's parent . This meant the next time 
	the orginal user of the changed	default.DIR logged in he would 
	not own his top	level directory and could not access anything.



	Software support assures me that that file id FID for the top 
	directory is reserved by VMS and would not change between systems. 
	This is true on all of our three systems and the VAX's used by 
	software support. FID == (4,4,0).

	If in doubt do:

	DUMP/HEADER DRnn:[000000]*.DIR and look at the first word of the 
	back link file id. If this does not match you'll have to make a 
	modification in the code. The documentation tells you where to 
	do it.

	I have made an effort to fix the bug in the old version by 
	looking at the FID and DID of each file read before modifing it. 
	If either one contains a value of 4 in the first word 
	( 3 words long ), I display an error and do no modification.


	Depending upon how your system and user's top directories are setup, 
	this may or may not solve the problem, but it's better than before 
	and it works for us.


	I used macro instead of fortran since this is a low level RMS
	change and is harder to follow in a higher level language.
	I use QIO's whenever possible because it's easier to see whats 
	happening. The RMS fields are all described in the I/O USERS 
	GUIDE VOL.1 CH. 2. 



	INSTALLATION
	------------


	This verb must be installed with SYSPRV.




		UNITED TECHNOLOGY
		BUILDING SYSTEMS
		433 Las Colinas Boulevard
		Irving, Texas  75039
		(214) 830 - 7501

	Attn: DUANE RIECH