I don't know if this helps but this script is from
the Help Files, and shows how to get the Julian Date.
proc main
integer LeapYear ; State of leap year.
integer DayYear, DayWeek ; DOY and DOW.
string WeekDay, Leap ; Day and leap state.
string DayStr ; Display date info.
; Get the day of the week, day of the year,
; and state of leap year. Leap year is a 0 or 1 value.
ltimemisc $LTIME DayWeek DayYear LeapYear
weekdaystr DayWeek WeekDay ; Get DOW in string format.
if LeapYear ; See if it's a leap year and if
Leap = "is" ; so, adjust string
else ; If it's not a leap year
Leap = "is not"
endif
; Create string containing day of week and leap year info
; and display it to user.
strfmt DayStr "Today is Julian Day: %d." DayYear
usermsg DayStr
endproc
Hank