A simple quick hack:

lcStr contains the string you wish to change.

<b>
for lnASC = 0 to 255
	if !between(lnASC, 48,57) .and. !between(lnASC, 65, 90) .and. !between(lnASC, 97,122)
		lcStr = strtran(lcStr, chr(lnASC), "")	
	endif
endfor
lcStr = upper(lcStr)
</b>

Hope that helps..

- Erik Niese-Petersen

>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