DTR> DECLARE CAL USAGE DATE EDIT_STRING X(23).
       DTR> CAL = "NOW"; PRINT CAL

                 CAL

        1-Feb-1983 08:51:11.55

       DTR> PRINT FN$WEEK (CAL)

         FN$WEEK

                5

       DTR>