RPG Anfänger-Frage

[loeweadolf]

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;

[Fuerchau]

Wie immer, gibt es viele Varianten, ob es tatsächlich messbare Unterschiede gibt, k.A., aber wenn in 99,9% aller Fälle Sonderzeichen in der Nummer vorhanden sind, ist der erste Test eben meistens bereits unnötig.

Auch was die Umwandlung nach CHAR angeht, so ist Ludgers Lösung nicht ganz so gut , besser wäre am Ende:

a) MyChar = %char(MyNum); // Linksbündig ohne Vornullen
b) MyChar = %editc(MyNum:'X'); // Mit vornullen

Somit entfällt das ständige trimmen und catten.