Communicator 3000 MPE/iX Release 6.0 (Platform Software Release C.60.00) (30216-90269)

134 Chapter 9
Year 2000 Enhancements
New Date Intrinsics for MPE/iX
HPCALENDAR
The new HPCALENDAR intrinsic returns the date in the supported date
type code 4 listed in the table, “Supported Date Formats.” (This is also a
HP standard format.)
Syntax
I32
date := HPCALENDAR ;
where date is the 32-bit unsigned integer (assigned functional return).
This returns the calendar date in the following format:
Table 9-8 HPCALENDAR Date Format
HPFMTCALENDAR
This a new routine to handle HPCALENDAR format. It does the same job
as FMTCALENDAR except that it accepts the 32-bit integer returned by
HPCALENDAR intrinsic.
Syntax
I32V CA
HPFMTCALENDAR(date,formatdate)
Parameters
date is a 32-bit signed integer by value
This holds the calendar date, in the same format as the
HPCALENDAR intrinsic (that is, date type 4).
formatdate returns the formatted calendar date in a 17-character
array. If the day of the month is less than 10, a blank
precedes it. For example,
FRI, JAN 6, 1989
Examples
Following are two examples:
• The Pascal program example uses most of the new date intrinsics.
• The COBOL program example uses the HPDATECONVERT intrinsic.
Bits Value/Meaning
23:9 Day of year
0:23 Year since 1900