Cobol: Remove trailing blanks from a string

Mit Cobol-Anweisungen nachfolgende Leerstellen aus einem String entfernen.

remove trailing blanks

Cobol: Remove trailing blanks from a string

Für Cobol-Experten sicherlich ein alter Hut, hier aber trotzdem ein bewährtes Rezept zur Löschung von Trailing Blanks: 

INSPECT REVERSE(element) TALLYING elemrückwärts FOR LEADING SPACES
COMPUTE element-LENGTH = LENGTH OF element - elemrückwärts
MOVE element(1:element-LENGTH) TO ...........
/ code for z/OS / Tags: ,

Comments

Comments are closed.