/* Sample SAS Program "econ_035.sas" */

/*
This is a SAS program to extract variables from the County Profile
Table (CA30) for 1969-1997.  This table was obtained from the
Regional Economic Information System (REIS) CD-ROM for 1969-1993. 
Relevant FIPS codes are as follows: 

36007   Broome County                       
36035   Fulton                                                               
36043   Herkimer                                                               
36065   Oneida         
36103   Suffolk  
36109   Tompkins 
*/

filename in 'U:\ArchiveData\econ\035\ca30.y6997.all';
libname ssd 'U:\Users\your_netid\proj\';
options ls=80;

data ssd.econ035;
infile in lrecl=384;

input
    table  $ 6 fipsco 1-5  linecode 7-9 @;

   if table = "V" and fipsco in (36007,36035,36043,36065,36103,36109) 
        and (linecode=110) then do; 
       input var1 265-275 var2 276-286 var3 287-297;
    end; 
   else delete;
run;
proc print data=ssd.econ035;
   var fipsco var1-var3; 
run;