!--------------------------------------------------------------
	DEF fn.opens.ok%(fil$, mode$, chan%, reclen%)
	!
	CALL OPEN.(fil$, mode$, chan%, reclen%)
	!
	IF	err1% <> 0%							&
	THEN	do% = fn.logit%(("FCS error " + num1$(err1%) + "opening file " + "fil$")) 	&
\		fn.opens.ok% = .false%						&
	ELSE	fn.opens.ok% = .true% 
	!
	FNEND
	!---------------------------------------------------------------