CONDENSE 命令により、文字列から冗長スペースが削除されます。
CONDENSE c [NO-GAPS].
この命令により、項目 c に先行空白が含まれる場合は削除され、その他の空白列がある場合は 1 つの空白と置換されます。その結果は左寄せされた単語の列となり、それぞれの単語が 1 つの空白によって区切られます。NO-GAPS オプションを指定すると、すべての空白が削除されます。
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.
出力: one two three four ! Length: 25 one two three four ! Length: 18 onetwothreefour ! Length: 15
項目 string の合計長は変化せず、削除された空白が再び右側に現れていることに注意してください。