Feldinhalte verdichten
Die Anweisung CONDENSE löscht überflüssige Leerzeichen in Zeichenketten:
CONDENSE c [NO-GAPS].
Es werden führende Leerzeichen im Feld c entfernt und andere Leerzeichenfolgen durch genau ein Leerzeichen ersetzt. Das Ergebnis ist eine linksbündige Folge von Wörtern, die durch Leerzeichen voneinander getrennt sind. Der Zusatz NO-GAPS bewirkt, dass alle Leerzeichen entfernt werden.
DATA: string(25) TYPE c VALUE ' one two three four', len TYPE I.
len = strlen( string ).WRITE: string, '!'.WRITE: / 'Length: ', len.
CONDENSE string.len = strlen( string ).WRITE: string, '!'.WRITE: / 'Length: ', len.
CONDENSE string NO-GAPS.len = strlen( string ).WRITE: string, '!'.WRITE: / 'Length: ', len.
Listenausgabe:
one two three four !
Length: 25
one two three four !
Length: 18
onetwothreefour !
Length: 15
Es ist zu beachten, dass die Gesamtlänge des Feldes string unverändert bleibt (Ausrufezeichen!) und die entfernten Leerzeichen rechts wieder eingesetzt werden.