Und noch ein Trick:
dtext s 5a inz('0034')
c eval text = %char(%dec(TEXT:5:0))
c evalr text = %char(%dec(TEXT:5:0))