Извлечь доменное имя из адреса электронной почты

* Требуется сделать разбор адресов e-mail чтобы затем построить частотную таблицу
* встречаемости доменных имён.

* Автор: Ray. Размещено в новостной группе 24.1.2002.

DATA LIST LIST /address (A40).
BEGIN DATA
abc@free.com
xyz@yahoo.com
abcdfer.kjudyhd@excite.com
END DATA.
LIST.

STRING domain(A20).
COMPUTE domain=SUBSTR(address,INDEX(address,"@")+1).
LIST domain.