Hecking Frx ( Visual FoxPro)

PROCEDURE setfrx
LOCAL cRptFile, i, p
FOR p = 1 TO application.Projects.Count
FOR i = 1 TO application.Projects(p).Files.Count
cRptFile = application.Projects(p).Files(i).NAME
IF UPPER(JUSTEXT(cRptFile)) = "FRX"
WAIT WINDOW cRptFile NOWAIT &&if desired
USE (cRptFile)
LOCATE
REPLACE Expr WITH ;
MLINE(Expr,ATLINE("ORIENTATION",Expr)), ;
Tag WITH "", Tag2 WITH ""
USE
ENDIF
ENDFOR
ENDFOR
RETURN