>Dear Sirs,
>
>Regards & Hello
>
>I want a small prog or solution to clean a string which will remove all things execpt numbers and Alphbets.
>
>e.g:
>
>Original string is "abcd ## 55 JJJ )))345 )) +++++"
>Result I should get: "ABCD55JJJ345"
>RESULT IS IN UPPERCASE:
>
>
>EARLY REPLY IS APPRICIATED.
>
>RAHUL


One of possible solutions:

#define SYMBOLS ':;,./\<>+=-{}[]()#*!?'
for i=1 to len(SYMBOLS)
	lcSymbol=substr(SYMBOLS,i,1)
	cWordString=strtran(cWordString,lcSymbol,'') 
next
cWordString=upper(cWordString)