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.