Вывести день недели вместе с датой

*(Вопрос) Есть переменная формата даты. Мне нужно вывести её в формате
*	ddd dd-mmm-yyyy, где ddd - первые 3 буквы дня недели.

*(Ответ) Размещён в новостной группе spss 24.03.2003. Автор: Raynald Levesque.

DATA LIST LIST /date1 (ADATE10).
BEGIN DATA
03/24/2003
END DATA.

FORMATS date1 (DATE11).
COMPUTE dweek=XDATE.WKDAY(date1).
STRING dayname(A21) date2(A40).
COMPUTE dayname="ВосПонВтоСреЧетПятСуб".
COMPUTE date2=CONCAT(SUBSTR(dayname,1+ (dweek-1)*3,3)," ",STRING(date1,DATE12)).
LIST date2.

* Результат последней команды LIST таков:
DATE2

Пон 24-MAR-2003