suche entspr. COBOL-Anweisung

[kagr]

Habe schon länger nichts mehr in COBOL gemacht; deshalb folgende Frage.
Suche Anweisung um ein linksbündig abgestelltes Alpha-Feld rechtsbündig zu machen,
also die rechts aufgefüllten Blanks raus zuwerfen und den Inhalt dann rechtsbündig vorzufinden.

[Fuerchau]

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