/*SHORT TITLE: Pick a county*/

set width 80.
get file="/eds/datasets/census60/data/newyorkcity.sav".
*
* NYC County Codes:
*    03  "Bronx, NY"
*    24  "Kings, NY"
*    31  "New York, NY"
*    41  "Queens, NY"
*    43  "Staten Island, NY"

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


* Bronx County
*select if county=03.
*list vars =state county stateq tract tractsuf tract2.
*save outfile="/eds/datasets/census60/data/bronx.sav".

* Kings County (Brooklyn)
*select if county=24.
*list vars =state county stateq tract tractsuf tract2.
*save outfile="/eds/datasets/census60/data/kings.sav".

* New York County (Manhattan)
*select if county=31.
*list vars =state county stateq tract tractsuf tract2.
*save outfile="/eds/datasets/census60/data/manhattan.sav".

* Queens County
*select if county=41.
*list vars =state county stateq tract tractsuf tract2.
*save outfile="/eds/datasets/census60/data/queens.sav".

* Richmond County (Staten Island)
select if county=43.
list vars =state county stateq tract tractsuf tract2.
save outfile="/eds/datasets/census60/data/richmond.sav".