hey john,

i forgot to mention that there are certain fields that i want to exclude from the comparison.

IsDupRec = .T.

SELE LOCAL_HIV
SCATTER MEMO TO aRecOne

SELE CDCHIV
SCATTER MEMO TO aRecTwo

fieldcnt = FCOUNT('LOCAL_HIV')
verifycnt = 1

DO WHILE verifycnt <= fieldcnt
IF ALLT(FIELD(VERIFYCNT)) != 'PROJNO' OR ALLT(FIELD(VERIFYCNT)) != 'COMMENTS' OR ALLT(FIELD(VERIFYCNT)) != 'UNIQKEYSAS' ;
OR ALLT(FIELD(VERIFYCNT)) != 'UNIQKEYBAY' OR ALLT(FIELD(VERIFYCNT)) != 'YEAR' OR ALLT(FIELD(VERIFYCNT)) != 'NEWREC' ;
OR ALLT(FIELD(VERIFYCNT)) != 'DISPUTE' OR ALLT(FIELD(VERIFYCNT)) != 'PRO_DATE' OR ALLT(FIELD(VERIFYCNT)) != 'DRAWDATE' ;
OR ALLT(FIELD(VERIFYCNT)) != 'YEAR' OR ALLT(FIELD(VERIFYCNT)) != 'CDATE' OR ALLT(FIELD(VERIFYCNT)) != 'CRECV_DATE' ;
OR ALLT(FIELD(VERIFYCNT)) != 'CREPT_DATE'

IF aRecOne(verifycnt) = aRecTwo(verifycnt)
IsDupRec = .F.
RETURN IsDupRec
ELSE
verifycnt = verifycnt + 1
ENDIF
ELSE
VERIFYCNT = VERIFYCNT + 1
ENDIF
ENDDO

RETURN IsDupRec