ENFORM Reference Manual

JULIAN-DATE Conversion Clause
Clauses
058057 Tandem Computers Incorporated 5–45
Alternatively, convert the date to an integer that can be formatted with an AS clause.
For example:
date AS M<99-99-99>
To convert a date stored as a yearly Julian date, where the day of the year is relative to
January 1 of that year, define each part of the date:
05 yearly-julian-date.
10 day-of-year PIC "999".
10 current-year PIC "99".
Then add day-of-year to the internal date for December 31 of the previous year:
(JULIAN-DATE ((1900 + (current-year - 1)), 12, 31)
+ day-of-year)
Display Format To print a date in internal format on a report, convert the date to a display format with
an AS DATE clause. The AS DATE clause is discussed in this section.