/*Reads in selected variables from the 2000 version of Area Reference File
and assigns variable labels.  Creates a variable for the number
of persons aged 65 and over in 1990, based on the 1990 Census of 
Population Housing STF1 file.

Area Reference File compiles county-level data from many sources, 
with a focus on health care and services.  It covers all counties 
except those in Alaska.  ARF has only state-level data for Alaska.*/

filename in1 "U:\archivedata\he\001\arf0200.dat.new"   lrecl=31620;
libname ssd 'U:\user4\netid\';
options ls=78 nodate;

data ssd.aged;
infile in1;

input 
     @00046    f00008   $  19.  /*State Name                          */
     @00065    f12424   $  02.  /*State Name Abbreviation             */
     @00067    f00010   $  25.  /*County Name                         */
     @00122    f00011   $  02.  /*FIPS State Code                     */
     @00124    f00012   $  03.  /*Mod FIPS County Code                */
     @21210    f0672690    06.  /*Pop Male 65-74                      */
     @21228    f0672790    06.  /*Pop Fmle 65-74                      */
     @21246    f1164090    06.  /*Pop Male 75-84                      */
     @21252    f1164190    06.  /*Pop Fmle 75-84                      */
     @21258    f1164290    06.  /*Pop Male > 84                       */
     @21264    f1164390    06.  /*Pop Fmle > 84                       */
     @22822    f0972380    07.  /*Persons 65 Yrs And Over for 1980    */
;

label f00008="State name"
      f12424="State postal code"
      f00010="County name"
      f00011="State FIPS code"
      f00012="County FIPS code"
      f0672690="Males 65-74, 1990"
      f0672790="Females 65-74, 1990"
      f1164090="Males 75-84, 1990"
      f1164190="Females 75-84,  1990"
      f1164290="Males over age 84, 1990"  
      f1164390="Females overa ge 84, 1990" 
      f0972380="Number of persons aged 65 and over, 1980";

run;

data ssd.aged2;
   set ssd.aged;
   seniors=f0672690+f0672790+f1164090+f1164190+f1164290+f1164390;
   label seniors='Persons aged 65 and over, 1990 Census STF1A';
   
run;