The problem of the year 2000 can be easily solved with the current form of DATESTAMP function. We use several years the following simple TRUEDATE procedure in our ISIS applications:
Procedure TRUEDATE
Begin
LN:=DATESTAMP;
if (substr (LN,7,2) < `81' then
NEWDATE : = `20' substr (LN,7,2) substr (LN, 1,2) substr (LN, 4,2)
else NEWDATE := `19' substr (LN,7,2) substr (LN, 1,2) substr (LN, 4,2);
End;
...and the NEWDATE variable keeps the current date in the form : YYYYMMDD now and after the year 1999. Perhaps it can help the worried users of ISIS.
Contact at: Emil Moncman, http://www.bib.wau.nl/isis/year2000.html