Dear Sir,

Regards & Hello

I want to Index on fields after removing unwanted characters . So I have written a function given below. which will remove all unwanted characters and then if the field value becomes Null it will add a space to it and then index on it. SET Procedure to file is also defined but not working.

Help
Rahul




do form addbkpg.scx
FUNCTION strindex
PARAMETER strname
clnstr=CHRTRAN(UPPER(strname),CHRTRAN(UPPER(strname),"01234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ",""),"")
IF clnstr=""
clnstr=" "
endif
RETURN clnstr
ENDFUNC