Da gäbe es auch noch den Umweg über %XLATE mit 2 Konstanten (lower und Upper).

Code:
D cXUpper         C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ' 
D CXLower         C                   'abcdefghijklmnopqrstuvwxyz' 

gaData=%XLate(cXLower:cXUpper:gdsSrc.Data);
MfG
Christian Brunner