cat > script.ff <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
	subroutine mfmain
	include	'INCLUDE/msf.h'

	call mfopen (
     &  'DATABASE'
     &  , 'loans', 'r')

	if (mfchka ('name')) then
		print *, ' ''name'' is in loans'
	else
		print *, ' ''name'' is not in loans'
	end if

	call mfclos ('loans')
	end
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 script.ff
cat > stdout <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
'name' is in loans
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 stdout
cat > tag <<'+-+-+-+-+-END-OF-FILE-+-+-+-+-+'
Check for an attribute in a table
+-+-+-+-+-END-OF-FILE-+-+-+-+-+
chmod 644 tag
