C******************************************************************************
	SUBROUTINE AK$SYS_UAF(ISTAT)
C******************************************************************************
C AKSYSUAF.FOR
C
C  written by:  M. Serrer
C  date:        March 1984
C
C	  This routine gets the USERNAME,ACCOUNT and UIC from
C	the file SYSUAF.LIS
C
C******************************************************************************
C
	INCLUDE 'AK.INC/NOLIST'
	LOGICAL*1 JUNK
C
	AK$RECORD=AK$SUMMARY(1)
	AK$USR_NAM='<login>'
	AK$USR_GRP=0
	AK$USR_MEM=0
	AK$USR_ACC='UNKNOWN'
	AK$SUMMARY(1)=AK$RECORD
	TOT_USR=2
C
C_Ignore first record of file
C
	READ(UAF_FIL,'(A1)') JUNK
C
C_Read until end of file found
C
  10	CONTINUE
C
	AK$RECORD=AK$SUMMARY(TOT_USR)
	READ(UAF_FIL,201,END=999) 
     &	     AK$USR_NAM,AK$USR_GRP,AK$USR_MEM,AK$USR_ACC
 201	FORMAT(21X,A12,2X,I3,X,I3,2X,A8)
	AK$SUMMARY(TOT_USR)=AK$RECORD
C
	TOT_USR=TOT_USR+1
C
	GOTO 10
C
 999	CONTINUE
	TOT_USR=TOT_USR-1
C
	RETURN
	END