Hast mich auf eine Idee gebracht. Ganz so funktionierte es nicht, daher habe ich den Quellcode noch etwas verändert.

h nomain
0002.00 f************************************************* *********************************************
0003.00 f
0004.00 f* Umsetzen Alphafeld in nummerisches Feld
0005.00 f
0006.00 f************************************************* *********************************************
0007.00 d §alph_numm pr 10 2 Umsetzen Alph->Numm
0008.00 d alpha 8 value
0009.00 p************************************************* *********************************************
0010.00 p §alph_numm b export
0011.00 d pi 10 2
0012.00 d alpha 8 value
0013.00 c************************************************* *********************************************
0014.00 d numm s 10 2
0015.00 d komma s 1 0 Stelle des Kommas
0016.00 d blank s 1 0 Stelle des Blanks
0017.00 d gueltig c '0123456789, ' Gültige Eingaben
0018.00 c*
0019.00 c gueltig check alpha ____99
0020.00 c if not *in99
0021.00 c eval komma=%scan(',':alpha)
0022.00 c if komma>0
0023.00 c ' ':'0' xlate alpha alpha
0024.00 c eval alpha = '0' + %subst(alpha:1:komma-1) +
0025.00 c %subst(alpha:komma+1:8-komma)
0026.00 c movel alpha numm
0027.00 c eval komma = 8-komma
0028.00 c else
0029.00 c eval blank=%scan(' ':alpha)
0030.00 c ' ':'0' xlate alpha alpha
0031.00 c movel alpha numm
0032.00 c eval komma = 8-blank+1
0033.00 c endif
0034.00 c do komma
0035.00 c eval numm = numm / 10
0036.00 c enddo
0037.00 c endif
0038.00 c return numm
0039.00 d************************************************* *********************************************
0040.00 p e