!	FNFCSERRM.B4S
	!
	!	 - general routine to set error flag (err%) and write err.msg$
	!	 - error number is returned by the function 
	!	 - note: calling module must call with a null string
	!		 in 3rd arg if module name not used
	!
	DEF fn.fcs.err.msg% (what$, file$, module$)
	IF	err1% = 0%						&
	THEN	fn.fcs.err.msg% = 0%					&
	ELSE	fn.fcs.err.msg% = err1%					&
\		IF	err1% <> -10%	! ie, not e.o.f			&
		THEN	modtitle$ = ""					&
\			modtitle$ = "module: " IF module$ > modtitle$	&
\			err.msg$ = CR + LF + "FCS error " +		&
					num1$(err1%) +			&
					" during " + what$ + 		&
					" - file: " + file$ + 		&
				 	CR + LF + modtitle$ + module$	&
\			err% = .true%
	!
	FNEND
	!