Вот - на основе ф-ции n_cst_string.of_removeNonPrint:

char lch_char
long ll_pos = 1
long ll_loop
string ls_source
long ll_source_len

//Check parameters
If IsNull(as_source) Then
string ls_null
SetNull(ls_null)
Return ls_null
End If

ls_source = as_source
ll_source_len = Len(ls_source)

// Remove characters
FOR ll_loop = 1 TO ll_source_len
lch_char = Mid(ls_source, ll_pos, 1)
if of_IsAlphaNum(lch_char) then
ll_pos ++
else
ls_source = Replace(ls_source, ll_pos, 1, "")
end if
NEXT

Return ls_source


Хотя, может в твоем случае было бы проще сделать что-нибудь вроде:
select "хитрая Оракл ф-ция по убиванию ненужных символов типа translate"
into ls_str
from dual
using "объект транзакций";

:)