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
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.
058057 Tandem Computers Incorporated
yearly-julian-date.
10
day-of-year
10
current-year
JULIAN-DATE Conversion Clause
PIC "999".
PIC "99".
Clauses
5–45