PARM p1="!hpmonth" p2="!hpdate" p3="!hpyyyy"
##  DOW.XEQ - Returns Date, Day of Week, and Day Name
##  Michael P. Smith - Hertz Corporation
SETVAR _dow_month ![UPS("!p1")]
SETVAR _dow_day   ![UPS("!p2")]
SETVAR _dow_year  ![LFT("!hpyyyy",4-LEN("!p3"))+"!p3"]
SETVAR _dow_days  "Sun   Mon   Tues  WednesThurs Fri   Satur  "
SETVAR _dow_xyear     _dow_year-((12-_dow_month)/10)
SETVAR _dow_xmonth    _dow_month+(((12-_dow_month)/10)*12)
SETVAR _dow_xday      _dow_day+(_dow_xmonth*2)+(((_dow_xmonth+1)*6)/10)
SETVAR _dow_leap_year (_dow_xyear/4) - (_dow_xyear/100) + (_dow_xyear/400)
SETVAR _dow_xday      (_dow_xday+_dow_xyear+_dow_leap_year+1) MOD 7
SETVAR _dow_xdays     STR(_dow_days,_dow_xday*6+1,6)
ECHO Date        = !_dow_month/!_dow_day/!_dow_year
ECHO Day of week = !_dow_xday
ECHO Day name    = ![RTRIM(_dow_xdays)]day
DELETEVAR _dow_@