Falls das Ergebnis alphanumerisc sein soll, dann eine kleine Abwandlung von Baldurs ausgezeichneter Lösung:


d MyNum 18
d MyChar 18
d MyInd 5I 0
d MyDig 1

MyNum = *blanks;
for MyInd =1 to %size(MyChar);
MyDig = %subst(MyChar:MyInd:1);
if %check('0123456789':myDig) = *zero;
MyNum = %trim(MyNum) + MyDig;
endif;
next;