The simple way

mvalue = ALLTRIM(mvalue)
DO WHILE (SPACE(2) $ mvalue)
  mvalue = STRTRAN(mvalue, SPACE(2), SPACE(1))
ENDDO

>Ok, don't know where my mind is today because I have become stumped on what should be a simple function. I have the following value:
>
>

>mvalue = "John A. Doe             555 MyStreet   "
>

>and I want mvalue to equal:
>

>mvalue="John A. Doe 555 Mystreet"
>

>Yet I cannot seem to do it without removing all of the spaces...