SUBROUTINE	OPEN_UAF
!
!
!	****************************************************************
!
!		This subroutine will open the file SYS$SYSTEM:SYSUAF.DAT
!	it will report back to the user a failure message if it can't 
!	open the file for any reason.
!
!	WRITTEN:	21-FEB-1983
!
!	LAST CHANGED:	21-FEB-1983
!
!	WRITTEN BY:	F. A. Kenney
!
!	****************************************************************
!
!

	OPEN	(UNIT=5, FILE='SYS$SYSTEM:SYSUAF.DAT', STATUS='OLD',
     +		 READONLY, SHARED, ERR=100)


	RETURN


100	STOP '%USER-F-OPENERR, unable to open user authorization file'


	END