****************************************************************
      *  System....... General                                       *
      *  Description.. Date Functions                                *
      *  Program Name. F.DATE                                        *
      *  Author....... Bradley V. Stone                              *
      *  Last Update..                                               *
      *                                                              *
      ****************************************************************
     H NOMAIN
     H DATFMT(*ISO)
      ****************************************************************
      * Prototypes                                                   *
      ****************************************************************
     D #DayOfWeek      PR             1  0
     D  DateIn                         D   VALUE
     D #NameOfDay      PR            10
     D  DayIn                         1  0 VALUE
     D #NameOfMonth    PR            10
     D  DayIn                         2  0 VALUE
      ****************************************************************
      * Global Definitions                                           *
      ****************************************************************
      *//////////////////////////////////////////////////////////////*
      * #DayOfWeek - Return the Day of the Week                      *
      * 1=Sun, 2=Mon, etc.. etc..                                    *
      *//////////////////////////////////////////////////////////////*
     P #DayOfWeek      B                   Export
      *--------------------------------------------------------------*
     D #DayOfWeek      PI             1  0
     D  DateIn                         D   VALUE
      *
     D DayOfWk         S             11P 0
      *--------------------------------------------------------------*
     C     DateIn        SUBDUR    D'1998-08-01' DayOfWk:*D
     C                   DIV       7             DayOfWk
     C                   MvR                     DayOfWk
      *
     C                   if        (DayOfWk > 0)
     C                   RETURN    DayOfWk
     C                   else
     C                   RETURN    DayOfWk + 7
     C                   endif
      *--------------------------------------------------------------*
     P #DayOfWeek      E
      *//////////////////////////////////////////////////////////////*
      * #NameOfDay - Return the Name of the Day                      *
      *//////////////////////////////////////////////////////////////*
     P #NameOfDay      B                   Export
      *--------------------------------------------------------------*
     D #NameOfDay      PI            10
     D  DayIn                         1  0 VALUE
      *--------------------------------------------------------------*
     C                   select
     C                   when      (DayIn = 1)
     C                   RETURN    'Sunday'
     C                   when      (DayIn = 2)
     C                   RETURN    'Monday'
     C                   when      (DayIn = 3)
     C                   RETURN    'Tuesday'
     C                   when      (DayIn = 4)
     C                   RETURN    'Wednesday'
     C                   when      (DayIn = 5)
     C                   RETURN    'Thursday'
     C                   when      (DayIn = 6)
     C                   RETURN    'Friday'
     C                   when      (DayIn = 7)
     C                   RETURN    'Saturday'
     C                   other
     C                   RETURN    'NoDay'
     C                   endsl
      *--------------------------------------------------------------*
     P #NameOfDay      E
      *//////////////////////////////////////////////////////////////*
      * #NameOfMonth - Return the Name of the Month                  *
      *//////////////////////////////////////////////////////////////*
     P #NameOfMonth    B                   Export
      *--------------------------------------------------------------*
     D #NameOfMonth    PI            10
     D  MonthIn                       2  0 VALUE
      *--------------------------------------------------------------*
     C                   select
     C                   when      (MonthIn = 1)
     C                   RETURN    'January'
     C                   when      (MonthIn = 2)
     C                   RETURN    'February'
     C                   when      (MonthIn = 3)
     C                   RETURN    'March'
     C                   when      (MonthIn = 4)
     C                   RETURN    'April'
     C                   when      (MonthIn = 5)
     C                   RETURN    'May'
     C                   when      (MonthIn = 6)
     C                   RETURN    'June'
     C                   when      (MonthIn = 7)
     C                   RETURN    'July'
     C                   when      (MonthIn = 8)
     C                   RETURN    'August'
     C                   when      (MonthIn = 9)
     C                   RETURN    'September'
     C                   when      (MonthIn = 10)
     C                   RETURN    'November'
     C                   when      (MonthIn = 11)
     C                   RETURN    'October'
     C                   when      (MonthIn = 12)
     C                   RETURN    'December'
     C                   other
     C                   RETURN    'NoMonth'
     C                   endsl
      *--------------------------------------------------------------*
     P #NameOfMonth    E