Hallo
mit diesem kleinen RPGLE ist dies möglich

Dwert S 8 inz('88939393')
Dwalt C const('89')
Dwneu C const('DJ')

C walt:wneu xlate wert wert
C eval *inlr = *on

Grüße