Hi Jeffrey,
See the solution, I provided. In the loop through all fields you can exclude the fields, you don't want to compare. Or you can create Group by string based on the fields, you want to compare. I believe, this solution is far better than scan through the file.
>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
If it's not broken, fix it until it is.
My Blog