SUBROUTINE GETACN(IN,NUMB,UIC,PASS,LNAME,FNAME,DATE,LOGIN,DEV)
C..
C..	NUMB=0=START, RTN UIC NUMB, -=EOF
C..
	COMMON/XACNTX/INPUT
	BYTE UIC(9),PASS(6),LNAME(14),FNAME(12),DATE(12),DEV(4)
	BYTE INPUT(512)
	DIMENSION INPUTW(256)
	DOUBLE PRECISION XINPUT(10)
	EQUIVALENCE (INPUT,INPUTW),(INPUT,XINPUT)
	DATA XINPUT/'LB:[0,0]','RSX11.SY','S       ',7*'        '/
	IF(NUMB.LT.0) RETURN
	IF(NUMB.GT.0) GO TO 1
	INPUT(18)=0
	CALL FDBSET(IN,'READONLY','SHARE')
	CALL ASSIGN(IN,INPUT)
C..
C..	READ IN DATA + GO TO CHECKS
C..
1	CONTINUE
	KIN=(NUMB/4)*4
	IF(KIN.NE.NUMB) GO TO 2
	CALL ERRSET(39,.TRUE.,.FALSE.,.TRUE.,.FALSE.,100)
	READ(IN,31,ERR=32,END=32)INPUT
31	FORMAT(16(32A1))
C..
C..	GET ACNT OF NUMB+1
C..
2	NUMB=NUMB+1
	KIN=NUMB-KIN
	LINE=(KIN-1)*128
C..
C..	CHECK FOR EOF
C..
	IF(INPUT(LINE+1).EQ.0) GO TO 32
	LINE2=LINE/2
	LOGIN=INPUTW(LINE+23)
	CALL BYTEDO(UIC,UIC(6),INPUT(LINE+1))
	CALL BYTEDO(PASS,PASS(6),INPUT(LINE+7))
	CALL BYTEDO(LNAME,LNAME(14),INPUT(LINE+13))
	CALL BYTEDO(FNAME,FNAME(12),INPUT(LINE+27))
	CALL BYTEDO(DEV,DEV(4),INPUT(LINE+47))
	IENC=12
	ENCODE(IENC,3,DATE)(INPUT(LINE+J),J=39,44)
3	FORMAT(6I2)
	RETURN
C..
C..	END OF FILE, CLOSE AND REPORT
C..
32	CLOSE(UNIT=IN)
	NUMB=-1
100	CONTINUE
	RETURN
99	TYPE 199,(INPUT(I),I=1,40)
199	FORMAT('0* ERROR FILE NAME =',40A1)
	GO TO 100
	END