Here it is:
***************************
SET PROCEDURE TO C:\myprog\program\nohabc.prg ADDITIVE
use C:\myprog\data\helyseg.dbf exclusive
FOR nCount = 1 TO 254
IF !EMPTY(TAG(nCount))
IF SUBSTR(KEY(nCount),1,5) $ "HABC("
ALTER TABLE helyseg drop foreign KEY TAG NEV
ENDIF
ENDIF
ENDFOR
RELEASE PROCEDURE C:\myprog\program\nohabc.prg

SELECT helyseg
USE -- this command wont work if this .prg is called by another, but if it
runs alone, it works fine!!!!


>>Hi all,
>>I have a .prg file that calls another small file to get rid of the UDF on an index expression. It works fine, but if I want to close the altered table within this small file, it looks as if the "USE" command is skipped and ignored and the table stays open.
>>If this small file is not called, run by itself, the command "USE" works.
>>Why?
>>
>>Thanks
>>
>>Tamas Szigeti
>
>Hi Tamas. Can you post the code of the small file for everyone to review?