CONDENSE命令により、文字列から冗長スペースが削除

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 の合計長は変化せず、削除された空白が再び右側に現れていることに注意してください。