C
C  **************************
C
C **  DEFINE THE VARIABLES FOR INDEXING AND SORTING THE DATABASE.
C
C
	PARAMETER	USRDB$_NUM_INDEX	= 13
	PARAMETER	USRDB$_NUM_MATCH	= 6
C
	CHARACTER*15	IDX$_NAME(USRDB$_NUM_INDEX)
	CHARACTER*2	MTCH$_NAME(USRDB$_NUM_MATCH)
C
	INTEGER*4	IDX$_NMBR(USRDB$_NUM_INDEX)
	INTEGER*4	IDX$_FIDS(USRDB$_NUM_INDEX)
C
C  **************************
C
C **  DEFINE THE FIELD NAMES.
C
	DATA	IDX$_NAME	/	'USER_IDENT',		'LAST_NAME',
     &		'PRIM_WORK',		'CITY_NAME',		'STATE',
     &		'COUNTRY',		'INSTITUTION',		'ZIP_CODE',
     &		'AREA_CODE',		'NETWORK_ID',		'PRIM_ACTIVITY',
     &		'SEC_ACTIVITY',		'PRIN_EMPLOYER'	/
C
C  **************************
C
C **  DEFINE THE FIELD IDENTIFICATIONS.
C
	DATA	IDX$_FIDS	/		USRDB$_FID_PRIM_WORK,
     &		USRDB$_FID_PRIM_ACTIVITY,	USRDB$_FID_PRIN_EMPLOYER,
     &		USRDB$_FID_SEC_ACTIVITY,	USRDB$_FID_CITY_NAME,
     &		USRDB$_FID_ZIP_CODE,		USRDB$_FID_AREA_CODE,
     &		USRDB$_FID_STATE,		USRDB$_FID_COUNTRY,
     &		USRDB$_FID_NETWORK_ID,		USRDB$_FID_INSTITUTION,
     &		USRDB$_FID_LAST_NAME,		USRDB$_FID_USER_IDENT	/
C
C  **************************
C
C **  DEFINE THE FIELD NAMES.
C
	DATA	MTCH$_NAME	/	'NA',	'EQ',	'GT',	'LT',
     &		'GE',	'LE'	/
C
C  **************************
C
C **  DEFINE THE KEY NUMBERS
C
	DATA	IDX$_NMBR	/		USRDB$_KEY_PRIM_WORK,
     &		USRDB$_KEY_PRIM_ACTIVITY,	USRDB$_KEY_PRIN_EMPLOYER,
     &		USRDB$_KEY_SEC_ACTIVITY,	USRDB$_KEY_CITY_NAME,
     &		USRDB$_KEY_ZIP_CODE,		USRDB$_KEY_AREA_CODE,
     &		USRDB$_KEY_STATE,		USRDB$_KEY_COUNTRY,
     &		USRDB$_KEY_NETWORK_ID,		USRDB$_KEY_INSTITUTION,
     &		USRDB$_KEY_LAST_NAME,		USRDB$_KEY_USER_IDENT	/
C
C  **************************
C