9.4.2 CDBLK

1.
Function
Replaces two or more consecutive blanks with a single blank.
2.
Call
CALL CDBLK(CHR)
3.
Explanation of Parameters
CHR (C *( *)) The character string to operate on. It is both the input and output parameter.
4.
Notes
(a)
This routine also removes leading blanks.