IDENTIFICATION DIVISION.
       PROGRAM-ID. w1str.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-T PIC X(8).
       PROCEDURE DIVISION.
           DISPLAY "[" FUNCTION UPPER-CASE("abc") "]".
           DISPLAY "[" FUNCTION LOWER-CASE("ABC") "]".
           DISPLAY "[" FUNCTION REVERSE("abc") "]".
           DISPLAY FUNCTION LENGTH("hello").
           MOVE FUNCTION TRIM("xy   ") TO WS-T.
           DISPLAY "[" WS-T "]".
           DISPLAY FUNCTION ORD("A").
           DISPLAY FUNCTION CHAR(66).
           STOP RUN.