	SUBROUTINE MAKNAM
C
C	CREATE CORRECT FILE NAME FOR DAY
C
	INCLUDE 'BOSS.PRM'
	DIMENSION N(3),YERCOD(12)
	X = GETTAB("53,"11)
	X = LSH(X,-18)
	ENCODE(10,10,FILE) X
	ENCODE(6,20,FILEX) X
10	 FORMAT(O6,'.BOS')
20	FORMAT(O6)
	RETURN
	END

