C--------------------------------------------------------------
C **  DEFINITION OF RECORD STRUCTURE FOR SQL STYLE WHERE CLAUSE
C
	STRUCTURE /EVAL_WHERE/
	    UNION
		MAP
			CHARACTER*80	FIND, MATCH
			INTEGER*4	FSLEN, LENDF, STPNT
			INTEGER*4	FID, MPNTR
			LOGICAL		EVAL
			CHARACTER*1	FUNC, QUAL
		END MAP
		MAP
			CHARACTER*186	BUFFER
		END MAP
	    END UNION
	END STRUCTURE
C
C **  DEFINE UP TO USRDB$_NUM_FIELDS RECORDS FOR PERFORMING WHERE CLAUSE.
C
	RECORD /EVAL_WHERE/ EVAL$REC(USRDB$_NUM_FIELDS), EVAL$STR
C
C--------------------------------------------------------------