Lass das mit den TBL-Objekten besser sein,, da dies mit der QCASE256 nicht CCSID-unabhängig ist.

Verwende hierzu lieber ein SQLRPG/SQLRPGLE:

c/exec sql
c/+ set :var = upper(:var)
c/end-exec

Dies funktionier mit jeder CCSID zur Laufzeit.