SUBROUTINE GET_RECORD(SEARCH_STRING, USER_NAME, OWNER, EOF)
!
!
!	****************************************************************
!
!		This routine will read a record from the AUTHORIZE file
!	and see if it should be printed out.  The following records will 
!	always be excluded:
!
!			1) Records with UIC group numbers of 1
!			2) The DEFAULT user template
!			3) Records with the DISUSER flag set
!			4) An records that don't match the search string
!
!	WRITTEN:	21-FEB-1983
!
!	LAST CHANGED: 	21-FEB-1983
!
!	WRITTEN BY:	F. A. Kenney
!
!	****************************************************************
!
!
	CHARACTER 	EXCLUDE_STRING *7, MATCH_STRING *45, OWNER *(*),
     +			SEARCH_STRING *(*), USER_NAME *(*)
	LOGICAL		ACCEPTED, EOF
	LOGICAL *2	DISUSER, DISUSER_FLAG, EXCLUDE_GROUP, GROUP


	ACCEPTED	=	.FALSE.
	DISUSER_FLAG 	= 	'10'X		! Logins disabled so exclude
	EOF		=	.FALSE.		! Set end-of-file flag
	EXCLUDE_GROUP	=	'000001'O	! System accounts so exclude
	EXCLUDE_STRING	=	'DEFAULT'	! Account template so exclude

	DO WHILE (.NOT. ACCEPTED)

		READ(5, 2000, END=90, ERR=100) 	USER_NAME(2:13), GROUP, OWNER, 
     +						DISUSER

		MATCH_STRING = USER_NAME // OWNER

		IF ((INDEX(MATCH_STRING, SEARCH_STRING) .GT. 0) .AND.
     +		    (GROUP. NE. EXCLUDE_GROUP) 			.AND. 
     +		    (DISUSER .NE. DISUSER_FLAG)			.AND.
     +		    (USER_NAME(2:13) .NE. EXCLUDE_STRING)) ACCEPTED = .TRUE.



	ENDDO

	RETURN


90	EOF	=	.TRUE.
	RETURN

100	STOP	'%USERS-F-READERR, error reading data file'


2000	FORMAT( A12, 18X, A2, 94X, A32, 3X, A2 )


	END