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

        DISPLAY `[` & var1 & `]`.
        RTRIM var1.
        DISPLAY `[` & var1 & `]`.