@Baldur
Zitat Zitat von Fuerchau
In COBOL ist das leider doch etwas schwieriger:

01 MyEdit.
05 MyNum pic z.zzz.zz9,99B.
05 MyWacd pic xxx.

77 MyPos pic s9(4) comp-4.

move 1 to MyPos
inspect MyEdit tallying MyPos for characters before space
move MyEdit(MyPos:17 - MyPos) to MyPrtField.
hatte ich gestern abend mit einem kleinen Test-Pgm ausprobiert:
ging nicht... ging nicht ..... ging nicht... bin gegen 22:00 frustriert ins Bett gegangen
Heute morgen wieder ran...
Kann aber auch nicht gehen, wen man MyNum NICHT füllt Blöder Fehler!

Jetzt gehts, vielen Dank!

Gruß
Ralph

PS (MyPos:17 - MyPos) warum 17? da kommt bei mir OUT OF RANGE