Dear Sir,

Your following codes have solved a part of my problem.

CLOSE ALL
CLOSE DATABASES
OPEN DATABASE D:\SYSTEM\TABLES\ACCOUNT.DBC EXCLUSIVE
=OPENTABLE("AVLBOOK")
=OPENTABLE("YEAR")
=OPENTABLE("STOCK")
=OPENTABLE("MASTER")

PROCEDURE OPENTABLE
PARAMETERS M.TABLE

ON ERROR DO MYERROR WITH ERROR(),MESSAGE(),MESSAGE(1),PROGRAM(),LINENO()
USE (M.TABLE) IN 0
ON ERROR
ENDPROC

PROCEDURE MYERROR
PARAMETERS M.ERROR,M.MESSAGE,M.MESSAGE1,M.PROGRAM,M.LINENO

CLEAR
? 'Error number: ' + LTRIM(STR(m.error))
? 'Error message: ' + M.MESSAGE
? 'Line of code with error: ' + M.MESSAGE1
? 'Line number of error: ' + LTRIM(STR(m.lineno))
? 'Program with error: ' + m.program
WAIT
RETURN

But is it possible to know the exact names of corrupted dbf in a dbc?
Please help me again in this challanging problem, I want to make a special programe with the help of your co-operation. If I get success I shall tell you.

Thanks in advance