Code: Alles auswählen.
parameters input(10) type c.
Code: Alles auswählen.
IF input CO '0123456789 '. "wichtig: Leerzeichen im Prüfstring
* Eingabe nach rechts schieben, bis eine Ziffer dort steht
SHIFT input RIGHT DELETE TRAILING space.
* Leerzeichen mit '0' ersetzen
OVERLAY input WITH '0000000000' ONLY space.
* or
TRANSLATE input USING ' 0'.
ENDIF.
Code: Alles auswählen.
12 34 => 0000012034
Code: Alles auswählen.
REPORT Z.
PARAMETERS EINGABE(10) TYPE C.
DATA: AUSGABE(10) TYPE N.
START-OF-SELECTION.
WRITE : / INPUT.
AUSGABE = INPUT. " Umwandlung fertig
INPUT = AUSGABE. " hier nur zurückschieben
WRITE : / INPUT.