PROCEDURE DropCDXFlag(lcFile) LOCAL lihwnd,lixx,m.lcbyte lihwnd=FOPEN(lcfile,12) IF lihwnd>0 lixx=FSEEK(lihwnd,28) IF lixx>-1 lcbyte=CHR(BITCLEAR(ASC(FREAD(lihwnd,1)),0)) lixx=FSEEK(lihwnd,28) lixx=FWRITE(lihwnd,lcbyte) ENDIF =FCLOSE(lihwnd) ENDIFBut if is table in DBC, then DBC contain others informations about indexes.