DTR> DECLARE X USAGE DATE EDIT_STRING X(23).
       DTR> X = FN$DATE("30-AUG-1990 15:20:31.45")
       DTR> PRINT X

                   X

       30-Aug-1990 15:20:31.45

       DTR>

       DTR> DECLARE Y USAGE DATE EDIT_STRING X(23).
       DTR> DECLARE Z PIC X(23).
       DTR> Z = "20-FEB-1990 14:54:29.83"
       DTR> Y = FN$DATE (Z)
       DTR> PRINT Y

                   Y

       20-Feb-1990 14:54:29.83

       DTR>