Преобразование строки в дату и отбор дат, выпадающих на выходные

* Преобразование строки в дату и отбор дат, выпадающих на выходные.
* (ВОПРОС) Даты записаны как строковые переменные. Надо преобразовать их в формат даты, а также
  отметить те дни, которые приходятся на субботу и воскресенье.
	
*(ОТВЕТ) Размещён в SPSSX-L, автор: Raynald Levesque, 28.02.2002.

DATA LIST LIST /str1(A10) id(F8.0).
BEGIN DATA
2001-03-04              087900
1990-07-28              458900
2001-02-16              895241
2001-03-09              448801
1998-09-30              890210
1999-12-31              754890
END DATA.

COMPUTE date1=NUMBER(str1,SDATE10).
COMPUTE wkday1=XDATE.WKDAY(date1).
COMPUTE flag=ANY(wkday1,1,7) /*дни недели в западной традиции нумеруются, начиная с воскресенья - примеч. перев.*/.
VARIABLE WIDTH date1(11) wkday1(10).
FORMATS wkday1(WKDAY9)date1 (EDATE11).
EXECUTE.