LPARAMETERS xfile,xnewclass,xvcxname IF !FILE(xfile) MESSAGEBOX("file cannot be found: "+xfile,16) RETURN ENDIF USE (xfile) REPLACE classloc WITH xnewclass FOR xvcxname$classloc USEActually it was hard coded and I added xnewclass,xvcxname parameters for you. So there would be syntax error(s)...