Here's a corrected version

lcTable = "mytable"
lcPath = "C:\mypath\"

lnFH = FOPEN(lcPath + lcTable + ".dbf", 12)

* Check if there is structural CDX
= FSEEK(lnFH,28)

lnByte28 = ASC(FREAD(lnFH,1))
lnCDXStr = BITAND(lnByte28, 1)

IF lnCDXStr = 1    && there is CDX
	IF FILE(lcPath + lcTable + ".cdx")
		ERASE (lcPath + lcTable + ".cdx")
	ENDIF
        = FSEEK(lnFH,28)
        = FWRITE(lnFH, Chr( BITAND(lnByte28, 0xFE) ))
ENDIF

= FCLOSE(lnFH)

Sorry, I got distracted by something and sent message before it was ready.