/*SHORT TITLE: Example of pulling a subset of tracts */

set width 80.
get file="/eds/datasets/census60/data/newyorkcity.sav".

* Put the tract and suffix together
string tract2 (A7).
compute tract2 = concat(tract,tractsuf).

* New York County (Manhattan)
select if county=31.
select if any(tract2,"0197000", 
                     "0197001", 
                     "0201000", 
                     "0203000", 
                     "0205000", 
                     "0207000", 
                     "0209000", 
                     "0211000", 
                     "0213000", 
                     "0219000")
.
list vars =state county stateq tract tractsuf tract2.


save outfile="/eds/datasets/census60/data/mazza.sav".