** Return the day of the week as a string .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0020 P WeekDay B EXPORT .....DName+++++++++++EUDS.......Length+TDc.Functions++++++++++++++++++++++++++++ 0021 D WeekDay PI 32A 0022 D InputDate D CONST DATFMT(*ISO) 0023 D Days DS 0024 D Sunday 10A Inz('Sunday') 0025 D Monday 10A Inz('Monday') 0026 D Tuesday 10A Inz('Tuesday') 0027 D Wednesday 10A Inz('Wednesday') 0028 D Thursday 10A Inz('Thursday') 0029 D Friday 10A Inz('Friday') 0030 D Saturday 10A Inz('Saturday') 0031 D Day 10A Dim(7) Overlay(Days) .....CSRn01Factor1+++++++OpCode(ex)Factor2+++++++Result++++++++Len++DcHiLoEq.... 0032 C TEST(E) InputDate 0033 C If %ERROR 0034 C Return 'Invalid Date' 0035 C Endif ** Note: Date validation is done her to avoid -1 return value ** by the DAYOFWEEK function. 0036 C return Day(DayOfWeek(InputDate)) .....PProcName+++++++..B...................Functions++++++++++++++++++++++++++++ 0037 P WeekDay E