Extracts the month part of input (MMM in dd-MMM-yyyy
       hh:mm:ss.cc).

1  –  Input

       A date.

2  –  Output

       An unsigned integer from 1 to 12.

3  –  Example

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

                 CAL

        1-Feb-1990 08:51:11.55

       DTR> PRINT FN$MONTH (CAL)

         FN$MONTH

                   2

       DTR>