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

142 Chapter 9
Year 2000 Enhancements
Documentation Changes for MPE/iX Languages
BASIC
Please make the following corrections to the BASIC INTERPRETER
Reference Manual.
The TIM function documentation on page E-3 should be changed as
follows:
For x >= 3, change “current year (0-99)” to “years since 1900”.
Add an example of getting the current year:
150 REM -- Get the current year of the century
160 Y2 = TIM(3) MOD 100
170 REM -- Get 4-digit year
180 Y4 = TIM(3) + 1900
RPG/iX
Please make the following changes to the RPG/iX Reference Manual.
The following changes to the RPG/iX Reference Manual describe the
new functionality:
In the Header Specifications chapter, make the following changes to
UDATE Source (Column 17):
• Add *DATE and *YEAR to the list of predefined fields whose initial
value is set by the RPGUDATE file.
• Change the second paragraph under F (Date Record) to:
You can enter the date (in the date record) in a flexible manner. The
first number begins the date (the number does not have to start in
column 1). Enter the date as six or eight consecutive digits (mmddyy
or mmddyyyy) or in three sets of digits (mm, dd, and yy or yyyy).
Enter the month (mm),the day (dd), and then the year (yy or yyyy).
• Add the following:
If the RPGUDATE file contains a 2-digit year, *DATE and *YEAR will
contain a 4-digit year based on a date window of 1940-2039. Thus, a
yy of 39 will be taken as 2039, while a yy of 40 will be taken as 1940.
• Add the following examples using 4-digit years:
04101988
FORMAT OF DATE IS MMDDYYYY = 04101988
4/10/1988
MONTH IS 4; DAY IS 10; YEAR IS 1988
• Remove the invalid date example for 4/10/1988.
In the Output Specifications chapter, make the following changes to
Field Description Fields (Columns 32-70):
• Add *DATE and *YEAR to the section on UDATE, UDAY, UMONTH,
UYEAR: