DTR> DECLARE WOMBAT PIC X(25).
       DTR> WOMBAT = "Wombats have sharp claws."
       DTR> PRINT FN$UPCASE (WOMBAT)

                 FN$UPCASE

       WOMBATS HAVE SHARP CLAWS.

       DTR>