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