Конвертация строки вида "1997-08-22" в формат даты

* Требуется конвертировать строку 1997-08-22 в переменную, имеющую формат даты.
* Автор: Ray, 10.10.2003.

data list fixed /date1 1-10(a).
begin data
1997-08-22
1998-03-31
end data.

compute yr=number(substr(date1,1,4),f4).
compute mo=number(substr(date1,6,2),f4).
compute da=number(substr(date1,9,2),f4).
compute date2=date.dmy(da,mo,yr).
formats date2(adate10).
execute.