>>>
>>>Has anyone written a case insensitive STRTRAN() replacement.
>>>

This simple approach ignores the starting position and number of occurances but it gets the job done for most instances.

function mystrtran
lparameters lcTarget, lcSearchFor, lcReplaceWith

*-- lower case search param
tcLower = lower(lcSearchFor)
*-- upper case search param
tcUpper = upper(lcSearchFor)

tcResult1 = strtran(lcTarget, tcLower, tcReplaceWith)
tcFinalResult = strtran(lcResult1, tcUpper, tcReplaceWith)

return lcFinalResult