*-- This program checks the no of records(header and data)
*-- to see if they match the current no of records in the 
*-- YNFLAGS DATA BASE
FUNCTION DATACHK
lnTNRS = YNFLAGS.NOHEADRECS + YNFLAGS.NODATARECS
SELECT RECORDS

lnTNRC = RECCOUNT()
SELECT HEADERS
lnTNRC = lnTNRC + RECCOUNT()
IF lnTNRC = lnTNRS

RETURN .T.
ELSE
WAIT "NO of recs found->|"+ ALLTRIM(STR(lnTNRC))+ ;
"|  No of records there should be->|" + ALLTRIM(STR(lnTNRS))+ ;
"|" WINDOW 

RETURN .F.
ENDIF