/*------------------------------------------------------------------------------------*/
/*by Jean Roth	Mon Nov  1 14:34:21 EST 2004
  This program reads the 1970 Census Summary File 1A Data File
  NOTE:  This program is distributed under the GNU GPL. See end of
  this file and http://www.gnu.org/licenses/ for details.
  Please report errors to jroth@nber.org
  Six steps:
       (1)   Uncomment the 'options compress=yes' statement if desired to save space
       (2)   Uncomment 'LENGTH' statement if desired to save space
       (3)   Specify output directories in 'libname' statements
       (4)   Specify the input file name/location in the 'filename' statement
       (5)   On a PC, use backslashes as in C:\
       (6)   Read in the compressed or uncompressed raw data file.  See the
             'filename' and 'INFILE' statements.
  Other changes may be user and platform specific.                                    
/*------------------------------------------------------------------------------------*/

*options obs=100;
*options compress=yes;
*Choose compress=yes to save space ;
*Choose compress=no if converting to another package using transfer software ;
*options pagesize=59 linesize=72;
options nocenter ;

/*------------------------------------------------------------------------------------*/


libname library './';


filename raw pipe "gunzip -dc /homes/data/census/1970data/sf1a/*.gz   ";

data library.sf1a70;

infile raw lrecl = 20000 missover ;
* To read in uncompressed file, uncomment INFILE & comment filename & infile lines;
* On a PC, you may need to change the direction of the slashes as in C:\;
*INFILE '/homes/data/census/1970data/sf1a/wy' LRECL=20000 PAD END=EOF;
 


*LENGTH
summary_type    3    
state_1970      3    
county_1970     3    
state_1960      3    
central_county  3    
quasi_state     3    
mcd_ccd         3    
annex           3    
place           4    
ward            3    
tract           4    
tract_suffix    3    
district_office 4    
congressional   3    
cbd             3    
ed              4    
ed_suffix       $1   
ed_type         3    
urban_potential $4   
sca             $1   
smsa            4    
urban           3    
urban_actual    4    
sea             $2   
tracted_area    4    
place_desc      3    
city_w_rural    $1   
eco_sub_region  3    
county_tab_1970 3    
ne_town_size    3    
ne_town_code    4    
univ_ac_level   3    
univ_area_code  4    
place_size      3    
publication     3    
area_code       3    
block_group     3    
dollar_symbol   $1   
t14_1           8    
t14_2           8    
t14_3           8    
t15_1           8    
t15_2           8    
t15_3           8    
t16_1           8    
t16_2           8    
t16_3           8    
t17_1           8    
t17_2           8    
t17_3           8    
DEFAULT=5;


INPUT

@1    summary_type      1. 
@2    state_1970        2. 
@4    county_1970       3. 
@7    state_1960        2. 
@12   central_county    1. 
@13   quasi_state       2. 
@15   mcd_ccd           2. 
@18   annex             1. 
@19   place             4. 
@23   ward              2. 
@25   tract             4. 
@29   tract_suffix      2. 
@31   district_office   4. 
@35   congressional     2. 
@37   cbd               1. 
@38   ed                4. 
@42   ed_suffix        $1. 
@43   ed_type           1. 
@45   urban_potential  $4. 
@49   sca              $1. 
@50   smsa              4. 
@54   urban             1. 
@55   urban_actual      4. 
@59   sea              $2. 
@61   tracted_area      4. 
@65   place_desc        1. 
@66   city_w_rural     $1. 
@67   eco_sub_region    3. 
@70   county_tab_1970   3. 
@73   ne_town_size      2. 
@75   ne_town_code      4. 
@79   univ_ac_level     1. 
@80   univ_area_code    5. 
@97   place_size        2. 
@99   publication       1. 
@100  area_code         3. 
@103  block_group       1. 
@120  dollar_symbol    $1. 
@121  t1                8. 
@129  t2                8. 
@137  t3                8. 
@145  t4                8. 
@153  t5                8. 
@161  t6                8. 
@169  t7                8. 
@177  t8                8. 
@185  t9                8. 
@193  t10               8. 
@201  t11               8. 
@209  t12               8. 
@217  t13               8. 
@225  t14_1            16. 
@241  t14_2            16. 
@257  t14_3            16. 
@273  t15_1            16. 
@289  t15_2            16. 
@305  t15_3            16. 
@321  t16_1            16. 
@337  t16_2            16. 
@361  t16_3            16. 
@377  t17_1            16. 
@393  t17_2            16. 
@409  t17_3            16. 
@425  t18_1             8. 
@433  t18_2             8. 
@441  t18_3             8. 
@449  t18_4             8. 
@457  t18_5             8. 
@465  t18_6             8. 
@473  t18_7             8. 
@481  t18_8             8. 
@489  t18_9             8. 
@497  t18_10            8. 
@505  t18_11            8. 
@513  t18_12            8. 
@521  t18_13            8. 
@529  t18_14            8. 
@537  t18_15            8. 
@545  t18_16            8. 
@553  t18_17            8. 
@561  t18_18            8. 
@569  t18_19            8. 
@577  t18_20            8. 
@585  t18_21            8. 
@593  t18_22            8. 
@601  t18_23            8. 
@609  t18_24            8. 
@617  t18_25            8. 
@625  t18_26            8. 
@633  t18_27            8. 
@641  t18_28            8. 
@649  t18_29            8. 
@657  t18_30            8. 
@665  t18_31            8. 
@673  t18_32            8. 
@681  t18_33            8. 
@689  t18_34            8. 
@697  t18_35            8. 
@705  t18_36            8. 
@713  t18_37            8. 
@721  t18_38            8. 
@729  t18_39            8. 
@737  t18_40            8. 
@745  t18_41            8. 
@753  t18_42            8. 
@761  t18_43            8. 
@769  t18_44            8. 
@777  t19_1             8. 
@785  t19_2             8. 
@793  t19_3             8. 
@801  t19_4             8. 
@809  t19_5             8. 
@817  t19_6             8. 
@825  t19_7             8. 
@833  t19_8             8. 
@841  t19_9             8. 
@849  t19_10            8. 
@857  t19_11            8. 
@865  t19_12            8. 
@873  t19_13            8. 
@881  t19_14            8. 
@889  t19_15            8. 
@897  t19_16            8. 
@905  t19_17            8. 
@913  t19_18            8. 
@921  t19_19            8. 
@929  t19_20            8. 
@937  t19_21            8. 
@945  t19_22            8. 
@953  t19_23            8. 
@961  t19_24            8. 
@969  t19_25            8. 
@977  t19_26            8. 
@985  t19_27            8. 
@993  t19_28            8. 
@1001 t19_29            8. 
@1009 t19_30            8. 
@1017 t19_31            8. 
@1025 t19_32            8. 
@1033 t20_1             8. 
@1041 t20_2             8. 
@1049 t20_3             8. 
@1057 t20_4             8. 
@1065 t20_5             8. 
@1073 t21_1             8. 
@1081 t21_2             8. 
@1089 t21_3             8. 
@1097 t21_4             8. 
@1105 t21_5             8. 
@1113 t21_6             8. 
@1121 t21_7             8. 
@1129 t21_8             8. 
@1137 t21_9             8. 
@1145 t21_10            8. 
@1153 t21_11            8. 
@1161 t21_12            8. 
@1169 t21_13            8. 
@1177 t21_14            8. 
@1185 t21_15            8. 
@1193 t21_16            8. 
@1201 t21_17            8. 
@1209 t21_18            8. 
@1217 t21_19            8. 
@1225 t21_20            8. 
@1233 t22_1             8. 
@1241 t22_2             8. 
@1249 t22_3             8. 
@1257 t22_4             8. 
@1265 t22_5             8. 
@1273 t22_6             8. 
@1281 t22_7             8. 
@1289 t22_8             8. 
@1297 t22_9             8. 
@1305 t22_10            8. 
@1313 t22_11            8. 
@1321 t22_12            8. 
@1329 t22_13            8. 
@1337 t22_14            8. 
@1345 t22_15            8. 
@1353 t22_16            8. 
@1361 t22_17            8. 
@1369 t22_18            8. 
@1377 t22_19            8. 
@1385 t22_20            8. 
@1393 t23_1             8. 
@1401 t23_2             8. 
@1409 t23_3             8. 
@1417 t23_4             8. 
@1425 t23_5             8. 
@1433 t23_6             8. 
@1441 t23_7             8. 
@1449 t23_8             8. 
@1457 t23_9             8. 
@1465 t23_10            8. 
@1473 t24_1             8. 
@1481 t24_2             8. 
@1489 t24_3             8. 
@1497 t24_4             8. 
@1505 t24_5             8. 
@1513 t24_6             8. 
@1521 t24_7             8. 
@1529 t24_8             8. 
@1537 t25_1             8. 
@1545 t25_2             8. 
@1553 t25_3             8. 
@1561 t25_4             8. 
@1569 t25_5             8. 
@1577 t25_6             8. 
@1585 t25_7             8. 
@1593 t25_8             8. 
@1601 t25_9             8. 
@1609 t25_10            8. 
@1617 t25_11            8. 
@1625 t25_12            8. 
@1633 t26a_1            8. 
@1641 t26a_2            8. 
@1649 t26a_3            8. 
@1657 t26a_4            8. 
@1665 t26a_5            8. 
@1673 t26a_6            8. 
@1681 t26a_7            8. 
@1689 t26a_8            8. 
@1697 t26a_9            8. 
@1705 t26b_10           8. 
@1713 t27_1             8. 
@1721 t27_2             8. 
@1729 t27_3             8. 
@1737 t28a_1            8. 
@1745 t28a_2            8. 
@1753 t28a_3            8. 
@1761 t28a_4            8. 
@1769 t28a_5            8. 
@1777 t28a_6            8. 
@1785 t28a_7            8. 
@1793 t28a_8            8. 
#2 
@1    t28b_9            8. 
@9    t28b_10           8. 
@17   t28b_11           8. 
@25   t28b_12           8. 
@33   t28b_13           8. 
@41   t28b_14           8. 
@49   t28b_15           8. 
@57   t28b_16           8. 
@65   t28b_17           8. 
@73   t29a_1            8. 
@81   t29a_2            8. 
@89   t29a_3            8. 
@97   t29a_4            8. 
@105  t29a_5            8. 
@113  t29a_6            8. 
@121  t29a_7            8. 
@129  t29a_8            8. 
@137  t29b_9            8. 
@145  t29b_10           8. 
@153  t29b_11           8. 
@161  t29b_12           8. 
@169  t29b_13           8. 
@177  t29b_14           8. 
@185  t30_1             8. 
@193  t30_2             8. 
@201  t30_3             8. 
@209  t30_4             8. 
@217  t30_5             8. 
@225  t30_6             8. 
@233  t30_7             8. 
@241  t30_8             8. 
@249  t30_9             8. 
@257  t30_10            8. 
@265  t30_11            8. 
@273  t30_12            8. 
@281  t30_13            8. 
@289  t30_14            8. 
@297  t30_15            8. 
@305  t30_16            8. 
@313  t30_17            8. 
@321  t30_18            8. 
@329  t31_1             8. 
@337  t31_2             8. 
@345  t31_3             8. 
@353  t32_1             8. 
@361  t32_2             8. 
@369  t33_1             8. 
@377  t33_2             8. 
@385  t33_3             8. 
@393  t33_4             8. 
@401  t34               8. 
@409  t35a_1            8. 
@417  t35a_2            8. 
@425  t35a_3            8. 
@433  t35a_4            8. 
@441  t35a_5            8. 
@449  t35a_6            8. 
@457  t35a_7            8. 
@465  t35a_8            8. 
@473  t35b_9            8. 
@481  t35b_10           8. 
@489  t35b_11           8. 
@497  t36a_1            8. 
@505  t36a_2            8. 
@513  t36a_3            8. 
@521  t36a_4            8. 
@529  t36a_5            8. 
@537  t36a_6            8. 
@545  t36a_7            8. 
@553  t36a_8            8. 
@561  t36a_9            8. 
@569  t36a_10           8. 
@577  t36b_11           8. 
@585  t36b_12           8. 
@593  t36b_13           8. 
@601  t37               8. 
@609  t38               8. 
@617  t39               8. 
@625  t40               8. 
@633  t41_1             8. 
@641  t41_2             8. 
@649  t41_3             8. 
@657  t41_4             8. 
@665  t41_5             8. 
@673  t41_6             8. 
@681  t41_7             8. 
@689  t41_8             8. 
@697  t41_9             8. 
@705  t41_10            8. 
@713  t41_11            8. 
@721  t41_12            8. 
@729  t41_13            8. 
@737  t41_14            8. 
@745  t41_15            8. 
@753  t41_16            8. 
@761  t41_17            8. 
@769  t41_18            8. 
@777  t42_1             8. 
@785  t42_2             8. 
@793  t42_3             8. 
@801  t42_4             8. 
@809  t42_5             8. 
@817  t42_6             8. 
@825  t43a_1            8. 
@833  t43a_2            8. 
@841  t43a_3            8. 
@849  t43a_4            8. 
@857  t43a_5            8. 
@865  t43a_6            8. 
@873  t43a_7            8. 
@881  t43a_8            8. 
@889  t43b_9            8. 
@897  t43b_10           8. 
@905  t43b_11           8. 
@913  t44a_1            8. 
@921  t44a_2            8. 
@929  t44a_3            8. 
@937  t44a_4            8. 
@945  t44a_5            8. 
@953  t44a_6            8. 
@961  t44a_7            8. 
@969  t44a_8            8. 
@977  t44a_9            8. 
@985  t44a_10           8. 
@993  t44b_11           8. 
@1001 t44b_12           8. 
@1009 t44b_13           8. 
@1017 t45_1             8. 
@1025 t45_2             8. 
@1033 t45_3             8. 
@1041 t46_1             8. 
@1049 t46_2             8. 
@1057 t46_3             8. 
@1065 t46_4             8. 
@1073 t47_1             8. 
@1081 t47_2             8. 
@1089 t47_3             8. 
@1097 t47_4             8. 
@1105 t48_1             8. 
@1113 t48_2             8. 
@1121 t48_3             8. 
@1129 t49_1             8. 
@1137 t49_2             8. 
@1145 t49_3             8. 
@1153 t50_1             8. 
@1161 t50_2             8. 
@1169 t50_3             8. 
@1177 t50_4             8. 
@1185 t50_5             8. 
@1193 t50_6             8. 
@1201 t51_1             8. 
@1209 t51_2             8. 
@1217 t52_1             8. 
@1225 t52_2             8. 
@1233 t53_1             8. 
@1241 t53_2             8. 
@1249 t54_1             8. 
@1257 t54_2             8. 
@1265 t54_3             8. 
@1273 t54_4             8. 
@1281 t54_5             8. 
@1289 t54_6             8. 
@1297 t54_7             8. 
@1305 t54_8             8. 
@1313 t54_9             8. 
@1321 t54_10            8. 
@1329 t54_11            8. 
@1337 t54_12            8. 
@1345 t54_13            8. 
@1353 t54_14            8. 
@1361 t54_15            8. 
@1369 t54_16            8. 
@1377 t54_17            8. 
@1385 t54_18            8. 
@1393 t54_19            8. 
@1401 t54_20            8. 
@1409 t54_21            8. 
@1417 t54_22            8. 
@1425 t54_23            8. 
@1433 t54_24            8. 
@1441 t54_25            8. 
@1449 t54_26            8. 
@1457 t54_27            8. 
@1465 t54_28            8. 
@1473 t54_29            8. 
@1481 t54_30            8. 
@1489 t54_31            8. 
@1497 t54_32            8. 
@1505 t54_33            8. 
@1513 t54_34            8. 
@1521 t54_35            8. 
@1529 t54_36            8. 
@1537 t54_37            8. 
@1545 t54_38            8. 
@1553 t54_39            8. 
@1561 t54_40            8. 
@1569 t54_41            8. 
@1577 t54_42            8. 
@1585 t54_43            8. 
@1593 t54_44            8. 
@1601 t54_45            8. 
@1609 t54_46            8. 
@1617 t55_1             8. 
@1625 t55_2             8. 
@1633 t55_3             8. 
@1641 t55_4             8. 
@1649 t55_5             8. 
@1657 t55_6             8. 
@1665 t55_7             8. 
@1673 t55_8             8. 
@1681 t55_9             8. 
@1689 t55_10            8. 
;

proc means data=library.sf1a70 ;

proc print data=library.sf1a70 (obs=6);

;
proc contents data=library.sf1a70;
/*
Copyright 2004 shared by the National Bureau of Economic Research and Jean Roth

National Bureau of Economic Research.
1050 Massachusetts Avenue
Cambridge, MA 02138
jroth@nber.org

This program and all programs referenced in it are free software. You
can redistribute the program or modify it under the terms of the GNU
General Public License as published by the Free Software Foundation;
either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307
USA.
*/