C*	QXBE	- BUILD FILE NAME ENTRY
C
	SUBROUTINE QXBE (BNAME)
C
	INCLUDE 'QXCM.COM/NOLIST'
C
	DIMENSION BNAME(32)
	DIMENSION IPRM(6), IFNAM(3)
	DIMENSION IATLST(3), JSTAT(2)
	DIMENSION BATLST(2), BNAM(3,2), BIORAT(2), BFS(9)
	EQUIVALENCE (IATLST,BATLST)
	EQUIVALENCE (IORAT,BIORAT), (JSTAT,BSTAT)
	DATA ILUND/2/
C
C  SET UP FOR QIO TO READ ATTRIBUTES GIVEN THE FILE-ID OF THE
C  DIRECTORY CONTAINING THE FILE A'LA DEC SPR.TSK
C
	DATA BATLST/-05,06/
	DATA BIORAT/O000,O026/
C
	CALL GETADR (IATLST(2), IFNAM)
	CALL GETADR (IPRM(1), BENT(QFDID))
	CALL GETADR (IPRM(2), IATLST)
	IATLST(3) = 0
C
C  ASSIGN TO THE PROPER DEVICE AND UNIT
C
	CALL ASNLUN (ILUND, BENT(QFDEV), IENT(QFUNI/2))
C
C  AND GET THE DIRECTORY FILE NAME
C
	CALL WTQIO (IORAT, ILUND, 3, 100, JSTAT, IPRM, IDSW)
	IF (BSTAT .LT. 0) WRITE (5, 505) BSTAT,IDSW
 505	FORMAT (' BSTAT,IDSW',2I5)
	IF (BSTAT .LT. 0) STOP '**ERROR** ON DIRECTORY READ'
C
C  CONVERT FROM RAD50 AND STRIP OFF LEADING ZEROES
C
	CALL R50ASC (6, IFNAM, BNAM)
	DO 100 I=1,2
	DO 90  J=1,3
	IF (BNAM(J,I).NE.'0') GO TO 100
	BNAM(J,I) = ' '
 90	CONTINUE
 100	CONTINUE
C
C  CONVERT ALL BINARY STUFF IN THE QUEUE ENTRY TO ASCII
C
	ENCODE (32, 510, BNAME) IENT(QFDEV/2), IENT(QFUNI/2), BNAM,
	1	IENT(QFVER/2)
 510	FORMAT (A2,O2,':[',3A1,',',3A1,']',9X,'.',3X,';',O4)
C
C  MOVE IN FILE SPEC
C
	CALL R50ASC (9, BENT(QFNAM), BNAME(15))
	CALL R50ASC (3, BENT(QFTYP), BNAME(25))
C
C  FINALLY STRIP OUT ALL BLANKS TO CLEAN IT UP
C
	CALL STBLK (BNAME, BNAME, 32)
C
	RETURN
	END
