77 MyAlpharechts pic x(100) just right.
77 MyAlpha pic x(100).
77 Count pic s9(5) comp-3.

move zero to Count
inspect MyAlpha tallying Count for characters before space
if Count > 0
move MyAlpha(1:Count) to MyAlpharechts
endif