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 ...........