) "<<<<<<<".

*   Solution 2
*   Use reference modification and the PERFORM..VARYING to
*   keep reducing the size of the substring until a non space character
*   is encountered.  Then use reference modification to get the substring.
    PERFORM VARYING CharCount FROM 50 BY -1
          UNTIL xStr(CharCount:1) NOT = SPACE
    END-PERFORM
    DISPLAY "Task4 After = "xStr(1:CharCount) "<<<<<<<".


*   Task5 Left_trimblank(xStr)
*   Remove leading blanks from a string.
*   Solution - Use the ins