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

        DISPLAY `[` & var1 & `]`.
        UPPER var1.
        DISPLAY `[` & var1 & `]`.