01 var1 PIC X(n) VALUE `      trimvarcontents   `.

        DISPLAY `[` & var1 & `]`.
        LTRIM var1.
        DISPLAY `[` & var1 & `]`.