	SUBROUTINE WEKNAM(FILE,IX)
	IMPLICIT INTEGER(A-Z)
	DOUBLE PRECISION FILE
10	format(' BOSS Weekly Report Generator',/)
20	format(' Last File Name: ',$)
	WRITE(5,10) ; WRITE(5,20)
30	FORMAT(A6)
	READ(5,30) FILE
	IF (FILE .EQ. 'WEEK') GOTO 40
	IF (FILE .EQ. 'MONTH') GOTO 40
	IF (FILE .EQ. '2WEEK') GOTO 40
50	FORMAT(' NUMBER OF DAYS: ',$)
	WRITE(5,50)
60	FORMAT(I2)
	READ(5,60) IX
	RETURN
40	X = GETTAB("53,"11)
	X = LSH(X,-18)
	X = X-1
	IF (FILE .EQ. 'MONTH') IX = 30
	IF (FILE .EQ. 'WEEK') IX = 7
	IF (FILE .EQ. '2WEEK') IX = 14
	encode(6,70,file) x
70	FORMAT(O6)
	RETURN
	END

