probiers mal damit

D UpperCase B
D UpperCase PI 32766A varying
D string 32766A value varying

D lower C Const('abcd...')
D upper C Const('ABCD...')

/free

return %xlate( lower: upper: string);

/end-free

D UpperCase E