/*SHORT TITLE: Program to read 1970 STF4A Housing file */ /* NOTE - !! This programs runs on re-formatted data /* NOTE - The original data from ICPSR has each of the records broken * into parts: # record parts # 1 7 # 2 6 # 3 7 (record type 7) # 4 5 (record type 8) # 5 5 (record type 9) # 6 7 (record type 10) # # actualy record number is in column 118-119 of record type 1 in original data. # # case id was added in columns 1-5 so everything moves over 5 columns. /* NOTE - Records are coded 1-6 in column 1. Real record numbers are /* in columns 118-199. /* Record 1 has Tables 1-40 /* Record 2 has Tables 41-107 /* Record 3 (record 7) has Tables 108-119 /* Record 4 (record 8) has Tables 120-130 /* Record 5 (record 9) has Tables 131-152 /* Record 6 (record 10) has Tables 153-200 set width 80. file handle in/ name="/eds/datasets/stf4a-70/stf4a-70h/data/stf4a-70h-ny-new.dat" lrecl=18000. file type grouped record=rectype 6 case=id 1-5 file=in missing=nowarn. record type 1. data list / case1 record1 st70 st60 cntcnt minor place tract trctsuf busdist SCA SMA urban ecoare trarea placed cityr ecosub cnty70 nesize necode plsize plcode seq symbol T1_1 To T1_4 T2_1 To T2_4 T3_1 To T3_4 T4_1 To T4_4 T5_1 To T5_3 T6_1 To T6_2 T7_1 To T7_4 T8_1 To T8_72 T9_1 To T9_108 T10_1 To T10_63 T11_1 To T11_96 T12_1 To T12_96 T13_1 To T13_96 T14_1 To T14_18 T15_1 To T15_18 T16_1 To T16_60 T17_1 To T17_20 T18_1 To T18_24 T19_1 To T19_45 T20_1 To T20_20 T21_1 To T21_9 T22_1 To T22_24 T23_1 To T23_12 T24_1 To T24_40 T25_1 To T25_40 T26_1 To T26_40 T27_1 To T27_72 T28_1 To T28_15 T29_1 To T29_15 T30_1 To T30_10 T31_1 To T31_10 T32_1 To T32_25 T33_1 To T33_10 T34_1 To T34_10 T35_1 To T35_6 T36_1 To T36_4 T37_1 To T37_90 T38_1 To T38_70 T39_1 To T39_25 T40_1 To T40_30 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11X, A1,A4,1X,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,15x,F2.0,A1, 7F16.0,8X,7F16.0,8X,7F16.0, 151F8.0,210F8.0,210F8.0,210F8.0,210F8.0,210F8.0,96F8.0,912X) . record type 2. data list / case2 record2 st702 st602 cntcnt2 minor2 place2 tract2 trctsuf2 busdist2 SCA2 SMA2 urban2 ecoare2 trarea2 placed2 cityr2 ecosub2 cnty702 nesize2 necode2 plsize2 plcode2 symbol2 T41_1 To T41_10 T42_1 To T42_54 T43_1 To T43_18 T44_1 To T44_24 T45_1 To T45_18 T46_1 To T46_18 T47_1 To T47_18 T48_1 To T48_120 T49_1 To T49_6 T50_1 To T50_28 T51_1 To T51_10 T52_1 To T52_44 T53_1 To T53_44 T54_1 To T54_60 T55_1 To T55_60 T56_1 To T56_36 T57_1 To T57_18 T58_1 To T58_5 T59_1 To T59_36 T60_1 To T60_54 T61_1 T62_1 T63_1 T64_1 T65_1 T66_1 To T66_2 T67_1 To T67_2 T68_1 To T68_12 T69_1 To T69_18 T70_1 To T70_12 T71_1 To T71_12 T72_1 To T72_12 T73_1 To T73_6 T74_1 To T74_8 T75_1 To T75_12 T76_1 To T76_2 T77_1 To T77_22 T78_1 To T78_56 T79_1 To T79_44 T80_1 To T80_5 T81_1 To T81_6 T82_1 To T82_8 T83_1 To T83_16 T84_1 To T84_24 T85_1 To T85_36 T86_1 To T86_12 T87_1 To T87_12 T88_1 To T88_14 T89_1 To T89_6 T90_1 To T90_12 T91_1 To T91_24 T92_1 To T92_8 T93_1 To T93_4 T94_1 To T94_16 T95_1 To T95_8 T96_1 To T96_8 T97_1 To T97_16 T98_1 To T98_16 T99_1 To T99_24 T100_1 To T100_3 T101_1 To T101_6 T102_1 To T102_4 T103_1 To T103_2 T104_1 To T104_6 T105_1 To T105_2 T106_1 To T106_2 T107_1 To T107_2 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11x, A1,A4,1x,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,17x,A1, 195F8.0,210F8.0,210F8.0,210F8.0,210F8.0,173F8.0,296X) . record type 3. data list / case3 record7 st707 st607 cntcnt7 minor7 place7 tract7 trctsuf7 busdist7 SCA7 SMA7 urban7 ecoare7 trarea7 placed7 cityr7 ecosub7 cnty707 nesize7 necode7 plsize7 plcode7 symbol7 T108_1 To T108_144 T109_1 To T109_144 T110_1 To T110_192 T111_1 To T111_18 T112_1 To T112_72 T113_1 To T113_144 T114_1 To T114_18 T115_1 To T115_72 T116_1 To T116_144 T117_1 To T117_192 T118_1 To T118_98 T119_1 To T119_98 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11x, A1,A4,1x,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,17x,A1, 195F8.0,210F8.0,210F8.0,210F8.0,210F8.0,210F8.0,91F8.0,952X) . record type 4. data list / case4 record8 st708 st608 cntcnt8 minor8 place8 tract8 trctsuf8 busdist8 SCA8 SMA8 urban8 ecoare8 trarea8 placed8 cityr8 ecosub8 cnty708 nesize8 necode8 plsize8 plcode8 symbol8 T120_1 To T120_84 T121_1 To T121_70 T122_1 To T122_80 T123_1 To T123_32 T124_1 To T124_80 T125_1 To T125_96 T126_1 To T126_96 T127_1 To T127_128 T128_1 To T128_112 T129_1 To T129_112 T130_1 To T130_80 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11x, A1,A4,1x,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,17x,A1, 195F8.0,210F8.0,210F8.0,210F8.0,145F8.0,520X) . record type 5. data list / case5 record9 st709 st609 cntcnt9 minor9 place9 tract9 trctsuf9 busdist9 SCA9 SMA9 urban9 ecoare9 trarea9 placed9 cityr9 ecosub9 cnty709 nesize9 necode9 plsize9 plcode9 symbol9 T131_1 To T131_144 T132_1 To T132_24 T133_1 To T133_80 T134_1 To T134_6 T135_1 To T135_24 T136_1 To T136_18 T137_1 To T137_72 T138_1 To T138_18 T139_1 To T139_72 T140_1 To T140_12 T141_1 To T141_48 T142_1 To T142_64 T143_1 To T143_20 T144_1 To T144_30 T145_1 To T145_28 T146_1 To T146_28 T147_1 To T147_35 T148_1 To T148_28 T149_1 To T149_35 T150_1 To T150_28 T151_1 To T151_35 T152_1 To T152_9 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11x, A1,A4,1x,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,17x,A1, 195F8.0,210F8.0,210F8.0,210F8.0,33F8.0,1416X) . record type 6. data list / case6 record10 st7010 st6010 cntcnt10 minor10 place10 tract10 trctsf10 busdst10 SCA10 SMA10 urban10 ecoare10 trrea10 placed10 cityr10 ecosub10 cnty7010 nesize10 necode10 plsize10 plcode10 symbol10 T153_1 To T153_36 T154_1 To T154_36 T155_1 To T155_48 T156_1 To T156_36 T157_1 To T157_36 T158_1 To T158_36 T159_1 To T159_36 T160_1 To T160_48 T161_1 To T161_49 T162_1 To T162_49 T163_1 To T163_42 T164_1 To T164_35 T165_1 To T165_40 T166_1 To T166_16 T167_1 To T167_40 T168_1 To T168_48 T169_1 To T169_48 T170_1 To T170_64 T171_1 To T171_56 T172_1 To T172_56 T173_1 To T173_40 T174_1 To T174_72 T175_1 To T175_40 T176_1 To T176_12 T177_1 To T177_36 T178_1 To T178_36 T179_1 To T179_24 T180_1 To T180_16 T181_1 To T181_10 T182_1 To T182_3 T183_1 To T183_30 T184_1 To T184_30 T185_1 To T185_36 T186_1 To T186_36 T187_1 To T187_42 T188_1 To T188_12 T189_1 To T189_12 T190_1 To T190_14 T191_1 To T191_14 T192_1 To T192_12 T193_1 To T193_14 T194_1 To T194_6 T195_1 To T195_3 T196_1 To T196_3 T197_1 To T197_3 T198_1 To T198_3 T199_1 To T199_6 T200_1 To T200_6 (F5.0,F1.0,A2,3X,A2,3X,A1,2X,A3,1X,A4,2X,A4,A2,6X,A1,11x, A1,A4,1x,A4,A2,A4,2A1,2A3, A2,A4,18X,A2,A1,3X,17x,A1, 195F8.0,210F8.0,210F8.0,210F8.0,210F8.0,210F8.0,181F8.0,232X) . end file type. Variable Labels st70 "1970 State Code" st60 "1960 State Code" cntcnt "Central County Code" minor "Minor Civil or Census County Division" place "Place" tract "Tract(basic)" trctsuf "Tract(suffix)" busdist "Central Business District" SCA "Standard Consolidated Area" SMA "Standard Metro Stat Area" urban "Urbanized Area" ecoare "State Economic Area" trarea "Tracted Area" placed "Place Description" cityr "City with Rural Territory" ecosub "Econommic Subregion" cnty70 "1970 Tabulation County" nesize "New England Town Size Code" necode "New England Town Code" plsize "Place Size" plcode "Publication Code" symbol "Symbol" . freq vars= T7_1 To T7_4. save outfile="/eds/datasets/stf4a-70/stf4a-70h/data/stf4a-70h-ny-new.sav" /drop= rectype case1 case2 case3 case5 case6 st702 to symbol2 st707 to symbol7 st708 to symbol8 st709 to symbol9 st7010 to symbol10.