>Is there code available to fix header corruption problems?
>
>Since our tables are encrypted with Cryptor I need to include the source code of the repair routine in the project so access to encrypted file is set up by application before repair routine is called.
>
>TIA,
>
>Alex

Backup the table

X=SET("TABLEVALIDATE")
SET TABLEVALIDATE TO 0
USE TABLE EXCLUSIVE
PACK
USE
SET TABLEVALIDATE TO (m.x)
USE TABLE