PARM rtnvar=""

# Converts "today" to a Julian date.  Handles leap years.
# If "rtnvar" is passed the Julian date is returned in this var,
#   else it is written to $stdlist.

setvar _julian hpdate + &
       ![WORD("0 31 59 90 120 151 181 212 243 273 304 334",,hpmonth)]

if hpyyyy mod 4 = 0 and &
   (hpyyyy mod 100 <> 0 or hpyyyy mod 400 = 0) and &
   hpmonth >= 3 then
  setvar _julian _julian + 1
endif

if "!rtnvar" = "" then
   echo Julian date for !hpdatef is: !_julian
else
   setvar !rtnvar _julian
endif

deletevar _julian