DCL:MISC£±:MISCLIB: Miscellaneous Functions and Subroutines *#:Explanation of Subroutines
Replaces two or more consecutive blanks with a single blank.
CALL CDBLK(CHR)
CHR (C *( *)) The character string to operate on. It is both the input and output parameter.