Извлечь часть строки

*(Вопрос) Имеется файл данных с текстовой переменной, содержащей имя и фамилию пациента через запятую.
* Как мне создать новую переменную с тремя первыми буквами фамилии?

Пример:
Имя пациента   Новая переменная
ANNIS, DAVID    DAV
ARMOUR, STEPHEN STE
JACKO, RICK     RIC

*(Ответ) Размещён в SPSSX-L 24.01.2002. Автор: Ray.
* Смоделируем данныые.
DATA LIST FIXED /Patient 1-20 (A).
BEGIN DATA
ANNIS, DAVID           
ARMOUR, STEPHEN
JACKO, RICK            
John,    Smith
END DATA.

* Содержательная часть.
STRING newvar(A3).
COMPUTE newvar=LTRIM(SUBSTR(patient,INDEX(patient,',')+1)).
EXECUTE.