1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
* I would like to parse email addresses to get a Frequency of domain names.

* posted by Ray to newsgroup on 2002/01/24.

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.