Hier das Beispiel:

D $$Nummer S 1024A varying D $$Start S 5I 0
*
D $lfd_Nr S 8 inz('00009999')

C eval $$Nummer = $lfd_Nr
*
* Ermitteln 1. von 0 versch. Stelle
C '0' check $$Nummer $$Start
*
* Ermitteln Nummer ohne führende Nullen
C if %Found
C eval $$Nummer = %Subst($$Nummer:
C $$Start:
C %len($lfd_Nr)
C -$$Start+1)
C endif

Anmerkung : $Lfd_Nr. ist die umzusetzende Nummer.
Die Ausgabe erfolgt im Feld $Nummer mit variabler Satz-Länge --> nur der Wert 9999 steht noch in diesem Feld.

Ich hoffe Du kommst damit klar

B. Hauser