háztartástipológia syntax 1992
Click here to get the file
Size
14.5 kB
-
File type
text/plain
File contents
* 92 hztarts sszettel .
GET FILE = 'd:\Panel99_CD_Elokeszulet\1992\1992.sav'
/keep
eazon92 h1htsz92 akttag92
h1bsor1 h1bnem1 h1bszu1 h1bcsl1 h1bht1 h1btag1 h1btov1
h1bsor2 h1bnem2 h1bszu2 h1bcsl2 h1bht2 h1btag2 h1btov2
h1bsor3 h1bnem3 h1bszu3 h1bcsl3 h1bht3 h1btag3 h1btov3
h1bsor4 h1bnem4 h1bszu4 h1bcsl4 h1bht4 h1btag4 h1btov4
h1bsor5 h1bnem5 h1bszu5 h1bcsl5 h1bht5 h1btag5 h1btov5
h1bsor6 h1bnem6 h1bszu6 h1bcsl6 h1bht6 h1btag6 h1btov6
h1bsor7 h1bnem7 h1bszu7 h1bcsl7 h1bht7 h1btag7 h1btov7
h1bsor8 h1bnem8 h1bszu8 h1bcsl8 h1bht8 h1btag8 h1btov8
h1bsor9 h1bnem9 h1bszu9 h1bcsl9 h1bht9 h1btag9 h1btov9
h1bsor10 h1bnem10 h1bszu10 h1bcsl10 h1bht10 h1btag10 h1btov10
h1bsor11 h1bnem11 h1bszu11 h1bcsl11 h1bht11 h1btag11 h1btov11
h1bsor12 h1bnem12 h1bszu12 h1bcsl12 h1bht12 h1btag12 h1btov12
h1bsor13 h1bnem13 h1bszu13 h1bcsl13 h1bht13 h1btag13 h1btov13
h1bsor14 h1bnem14 h1bszu14 h1bcsl14 h1bht14 h1btag14 h1btov14 .
select if (akttag92 = 1).
execute.
compute hsize92 = 0.
compute ht92 = 0.
compute hhage92 = 0.
compute hhage92a = 0.
compute h1bbaba = 0.
compute h1bbaba2 = 0.
compute h1bkor18 = 0.
format hsize92
ht92
hhage92
hhage92a
h1bbaba
h1bbaba2
h1bkor18 (f2.0).
* A hztartstagok kora .
Compute h1bkor1 = 92 - h1bszu1.
Compute h1bkor2 = 92 - h1bszu2.
Compute h1bkor3 = 92 - h1bszu3.
Compute h1bkor4 = 92 - h1bszu4.
Compute h1bkor5 = 92 - h1bszu5.
Compute h1bkor6 = 92 - h1bszu6.
Compute h1bkor7 = 92 - h1bszu7.
Compute h1bkor8 = 92 - h1bszu8.
Compute h1bkor9 = 92 - h1bszu9.
Compute h1bkor10 = 92 - h1bszu10.
Compute h1bkor11 = 92 - h1bszu11.
Compute h1bkor12 = 92 - h1bszu12.
Compute h1bkor13 = 92 - h1bszu13.
Compute h1bkor14 = 92 - h1bszu14.
* Ujrakdoljuk a 18 v alatti gyermekeket .
If (h1bht1 eq 4 and h1bkor1 gt 18) h1bht1 = 9.
If (h1bht2 eq 4 and h1bkor2 gt 18) h1bht2 = 9.
If (h1bht3 eq 4 and h1bkor3 gt 18) h1bht3 = 9.
If (h1bht4 eq 4 and h1bkor4 gt 18) h1bht4 = 9.
If (h1bht5 eq 4 and h1bkor5 gt 18) h1bht5 = 9.
If (h1bht6 eq 4 and h1bkor6 gt 18) h1bht6 = 9.
If (h1bht7 eq 4 and h1bkor7 gt 18) h1bht7 = 9.
If (h1bht8 eq 4 and h1bkor8 gt 18) h1bht8 = 9.
If (h1bht9 eq 4 and h1bkor9 gt 18) h1bht9 = 9.
If (h1bht10 eq 4 and h1bkor10 gt 18) h1bht10 = 9.
If (h1bht11 eq 4 and h1bkor11 gt 18) h1bht11 = 9.
If (h1bht12 eq 4 and h1bkor12 gt 18) h1bht12 = 9.
If (h1bht13 eq 4 and h1bkor13 gt 18) h1bht13 = 9.
If (h1bht14 eq 4 and h1bkor14 gt 18) h1bht14 = 9.
If ((h1bht1 eq 7 or h1bht1 eq 8) and h1bkor1 le 18) h1bht1 = 10.
If ((h1bht2 eq 7 or h1bht2 eq 8) and h1bkor2 le 18) h1bht2 = 10.
If ((h1bht3 eq 7 or h1bht3 eq 8) and h1bkor3 le 18) h1bht3 = 10.
If ((h1bht4 eq 7 or h1bht4 eq 8) and h1bkor4 le 18) h1bht4 = 10.
If ((h1bht5 eq 7 or h1bht5 eq 8) and h1bkor5 le 18) h1bht5 = 10.
If ((h1bht6 eq 7 or h1bht6 eq 8) and h1bkor6 le 18) h1bht6 = 10.
If ((h1bht7 eq 7 or h1bht7 eq 8) and h1bkor7 le 18) h1bht7 = 10.
If ((h1bht8 eq 7 or h1bht8 eq 8) and h1bkor8 le 18) h1bht8 = 10.
If ((h1bht9 eq 7 or h1bht9 eq 8) and h1bkor9 le 18) h1bht9 = 10.
If ((h1bht10 eq 7 or h1bht10 eq 8) and h1bkor10 le 18) h1bht10 = 10.
If ((h1bht11 eq 7 or h1bht11 eq 8) and h1bkor11 le 18) h1bht11 = 10.
If ((h1bht12 eq 7 or h1bht12 eq 8) and h1bkor12 le 18) h1bht12 = 10.
If ((h1bht13 eq 7 or h1bht13 eq 8) and h1bkor13 le 18) h1bht13 = 10.
If ((h1bht14 eq 7 or h1bht14 eq 8) and h1bkor14 le 18) h1bht14 = 10.
* Megszmoljuk a hztarts tagokat .
Count c1 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (1).
Count c2 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (2).
Count c3 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (3).
Count c4 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (4).
Count c5 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (5).
Count c6 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (6).
Count c7 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (7).
Count c8 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (8).
Count c9 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (9).
Count c10 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14 (10).
* Hztarts nagysg .
* Count hsize92 = H1BHT1 H1BHT2 H1BHT3 H1BHT4 H1BHT5 H1BHT6 H1BHT7
H1BHT8 H1BHT9 H1BHT10 H1BHT11 H1BHT12 H1BHT13 H1BHT14
(1 thru 10).
compute hsize92 = h1htsz92.
* Hztarts sszettel1: segdvltozk bevezetse .
Recode c1 to c10 (sysmis, missing, 0.00, 0 = 0).
Compute c23 = 0.
Compute c56 = 0.
Compute c49 = 0.
Compute c410 = 0.
Compute c910 = 0.
If (c2 eq 1 or c3 eq 1) c23 = 1.
If (c5 ge 1 or c6 ge 1) c56 = 1.
If (c4 gt 0 and c9 gt 0) c49 = 1.
If (c4 gt 0 and c10 gt 0) c410 = 1.
If (c9 gt 0 and c10 gt 0) c910 = 1.
Compute c78 = c7+c8.
Compute c5678 = c5+c6+c7+c8.
Compute c156 = c1+c5+c6.
Compute c12356 = c1+c2+c3+c5+c6.
Compute c14 = c1+c4.
Compute c19 = c1+c9.
Compute c110 = c1+c10.
Compute c1234 = c1+c2+c3+c4.
Compute c1239 = c1+c2+c3+c9.
Compute c12310 = c1+c2+c3+c10.
Compute c1564 = c1+c5+c6+c4.
Compute c1569 = c1+c5+c6+c9.
Compute c15610 = c1+c5+c6+c10.
Compute c123564 = c1+c2+c3+c5+c6+c4.
Compute c123569 = c1+c2+c3+c5+c6+c9.
Compute c1235610 = c1+c2+c3+c5+c6+c10.
Compute c156784 = c1+c5+c6+c7+c8+c4.
Compute c156789 = c1+c5+c6+c7+c8+c9.
Compute c1567810 = c1+c5+c6+c7+c8+c10.
Compute c1_8 = c1+c2+c3+c5+c6+c7+c8+c4.
Compute c1_9_4 = c1+c2+c3+c5+c6+c7+c8+c9.
Compute c1_10_49 = c1+c2+c3+c5+c6+c7+c8+c10.
Compute c15678 = c1+c5+c6+c7+c8.
Compute c1235678 = c1+c2+c3+c5+c6+c7+c8.
Compute c12349 = c1+c2+c3+c4+c9.
Compute c123410 = c1+c2+c3+c4+c10.
Compute c123910 = c1+c2+c3+c9+c10.
Compute c149 = c1+c4+c9.
Compute c1410 = c1+c4+c10.
Compute c1910 = c1+c9+c10.
* Hztarts sszettel2:hztartstpusok ltrehozsa .
Compute ht92 = 0.
If (hsize92 gt 0) ht92 = 33.
If (hsize92 eq 1) ht92 = 1.
If (c23 eq 1 and hsize92 eq 2) ht92 = 2.
If (c23 ne 1 and hsize92 eq 2) ht92 = 3.
If (c23 eq 1 and c4 gt 0 and hsize92 eq c1234) ht92 = 4.
If (c23 eq 1 and c9 gt 0 and hsize92 eq c1239) ht92 = 5.
If (c23 eq 1 and c10 gt 0 and hsize92 eq c12310) ht92 = 6.
If (c23 eq 1 and c56 gt 0 and c4 gt 0 and hsize92 eq c123564) ht92 = 7.
If (c23 eq 1 and c56 gt 0 and c9 gt 0 and hsize92 eq c123569) ht92 = 8.
If (c23 eq 1 and c56 gt 0 and c10 gt 0 and hsize92 eq c1235610) ht92 = 9.
If (c23 = 1 and c5678>0 and c78>0 and c4>0 and hsize92 = c1_8) ht92 = 10.
If (c23 = 1 and c5678>0 and c78>0 and c9>0 and hsize92 = c1_9_4) ht92 = 11.
If (c23 = 1 and c5678>0 and c78>0 and c10>0 and hsize92 = c1_10_49) ht92 = 12.
If (c4 gt 0 and hsize92 eq c14) ht92 = 13.
If (c9 gt 0 and hsize92 eq c19) ht92 = 14.
If (c10 gt 0 and hsize92 eq c110) ht92 = 15.
If (c4 gt 0 and c56 gt 0 and hsize92 eq c1564) ht92 = 16.
If (c9 gt 0 and c56 gt 0 and hsize92 eq c1569) ht92 = 17.
If (c10 gt 0 and c56 gt 0 and hsize92 eq c15610) ht92 = 18.
If (c4 gt 0 and c5678>0 and c78>0 and hsize92 eq c156784) ht92 = 19.
If (c9 gt 0 and c5678>0 and c78>0 and hsize92 eq c156789) ht92 = 20.
If (c10 gt 0 and c5678>0 and c78>0 and hsize92 eq c1567810) ht92 = 21.
If (c23 gt 0 and c56 eq 1 and hsize92 eq c12356) ht92 = 22.
If (c23 gt 0 and c5678 gt 0 and c78>0 and hsize92 eq c1235678) ht92 = 23.
If (c56 gt 0 and hsize92 eq c156) ht92 = 24.
If (c5678 gt 0 and c78 gt 0 and hsize92 eq c15678) ht92 = 25.
If (c23 eq 1 and c49 eq 1 and hsize92 = c12349) ht92 = 26.
If (c23 eq 1 and c410 eq 1 and hsize92 = c123410) ht92 = 27.
If (c23 eq 1 and c910 eq 1 and hsize92 = c123910) ht92 = 28.
If (c49 eq 1 and hsize92 = c149) ht92 = 29.
If (c410 eq 1 and hsize92 = c1410) ht92 = 30.
If (c910 eq 1 and hsize92 = c1910) ht92 = 31.
If (ht92 eq 33 and (c4 gt 0 or c10 gt 0)) ht92 = 32.
Recode ht92 (0 = sysmis).
* A 18 v alatti hztartstagok szma .
Count h1bkor18 = h1bkor1 h1bkor2 h1bkor3 h1bkor4 h1bkor5 h1bkor6 h1bkor7
h1bkor8 h1bkor9 h1bkor10 h1bkor11 h1bkor12 h1bkor13 h1bkor14
(0 thru 18).
If (hsize92 = 0) h1bkor18 = 999.
Recode h1bkor18 (999 = sysmis).
* A hztartsf kora .
If (h1bht1 = 1) hhage92a = h1bkor1.
If (h1bht2 = 1) hhage92a = h1bkor2.
If (h1bht3 = 1) hhage92a = h1bkor3.
If (h1bht4 = 1) hhage92a = h1bkor4.
If (h1bht5 = 1) hhage92a = h1bkor5.
If (h1bht6 = 1) hhage92a = h1bkor6.
If (h1bht7 = 1) hhage92a = h1bkor7.
If (h1bht8 = 1) hhage92a = h1bkor8.
If (h1bht9 = 1) hhage92a = h1bkor9.
If (h1bht10 = 1) hhage92a = h1bkor10.
If (h1bht11 = 1) hhage92a = h1bkor11.
If (h1bht12 = 1) hhage92a = h1bkor12.
If (h1bht13 = 1) hhage92a = h1bkor13.
If (h1bht14 = 1) hhage92a = h1bkor14.
If (hsize92 = 0) hhage92a = 999.
Recode hhage92a (999 = sysmis).
Recode hhage92a (lo thru 19 = 1) (20 thru 24 = 2) (25 thru 29 = 3)
(30 thru 34 = 4) (35 thru 39 = 5) (40 thru 44 = 6)
(45 thru 49 = 7) (50 thru 54 = 8) (55 thru 59 = 9)
(60 thru 64 = 10) (65 thru 69 = 11) (70 thru 74 = 12)
(75 thru 79 = 13) (80 thru hi = 14)
(else = sysmis) into hhage92.
* A legkisebb 16 v alatti hztartstag kora .
Compute h1bbaba2 = 999.
If (h1bkor1 le 16 and h1bkor1 lt h1bbaba2) h1bbaba2 = h1bkor1.
If (h1bkor2 le 16 and h1bkor2 lt h1bbaba2) h1bbaba2 = h1bkor2.
If (h1bkor3 le 16 and h1bkor3 lt h1bbaba2) h1bbaba2 = h1bkor3.
If (h1bkor4 le 16 and h1bkor4 lt h1bbaba2) h1bbaba2 = h1bkor4.
If (h1bkor5 le 16 and h1bkor5 lt h1bbaba2) h1bbaba2 = h1bkor5.
If (h1bkor6 le 16 and h1bkor6 lt h1bbaba2) h1bbaba2 = h1bkor6.
If (h1bkor7 le 16 and h1bkor7 lt h1bbaba2) h1bbaba2 = h1bkor7.
If (h1bkor8 le 16 and h1bkor8 lt h1bbaba2) h1bbaba2 = h1bkor8.
If (h1bkor9 le 16 and h1bkor9 lt h1bbaba2) h1bbaba2 = h1bkor9.
If (h1bkor10 le 16 and h1bkor10 lt h1bbaba2) h1bbaba2 = h1bkor10.
If (h1bkor11 le 16 and h1bkor11 lt h1bbaba2) h1bbaba2 = h1bkor11.
If (h1bkor12 le 16 and h1bkor12 lt h1bbaba2) h1bbaba2 = h1bkor12.
If (h1bkor13 le 16 and h1bkor13 lt h1bbaba2) h1bbaba2 = h1bkor13.
If (h1bkor14 le 16 and h1bkor14 lt h1bbaba2) h1bbaba2 = h1bkor14.
Recode h1bbaba2 (lo thru 3 = 1) ( 4 thru 6 = 2) ( 7 thru 9 = 3)
(10 thru 12 = 4) (13 thru 16 = 5) (else = 0) into H1BBABA.
If (hsize92 = 0) h1bbaba2 = 999.
Recode h1bbaba2 (999 = sysmis).
Recode hsize92 (0 = sysmis).
Variable Label hsize92 'Hztarts nagysg 92'
/ht92 'hztarts sszettel 1992'
/hhage92 'A hztartsf kora /14 kategria/'
/hhage92a 'A hztartsf kora /vek szma/'
/h1bbaba 'a legkisebb 16 alatti HT tag kora /5 kategria/'
/h1bbaba2 'a legkisebb 16 alatti HT tag kora /vek szma/'
/h1bkor18 'a 18 alatti hztartstagok szma'.
Value Labels hhage92 1 '20 vesnl fiatalabb'
2 '20 - 24 ves'
3 '25 - 29 ves'
4 '30 - 34 ves'
5 '35 - 39 ves'
6 '40 - 44 ves'
7 '45 - 49 ves'
8 '50 - 54 ves'
9 '55 - 59 ves'
10 '60 - 64 ves'
11 '65 - 69 ves'
12 '70 - 74 ves'
13 '75 - 79 ves'
14 '80 ves vagy idsebb'
/h1bbaba 1 '3 ves vagy fiatalabb'
2 '4 - 6 ves'
3 '7 - 9 ves'
4 '10 - 12 ves'
5 '13 - 16 ves'
0 'nincs 16 vnl fiatalabb'
/ht92 1 'egyszemlyes hztarts'
2 'pr'
3 'egyb ktszemlyes hztarts'
4 'pr+sajt gyermek<18'
5 'pr+sajt gyermek>18'
6 'pr+ms gyermek<18'
7 'pr+sajt gyermek<18+szl'
8 'pr+sajt gyermek>18+szl'
9 'pr+ms gyermek<18+szl'
10 'pr+sajt gyermek<18+ms felnttek(+szl)'
11 'pr+sajt gyermek>18+ms felnttek(+szl)'
12 'pr+ms gyermek<18+szl+ms rokonok'
13 'egyedlll szl+sajt gyermek<18'
14 'egyedlll szl+sajt gyermek>18'
15 'egyedlll szl+ms gyermek<18'
16 'egyedlll szl+sajt gyermek<18+szl'
17 'egyedlll szl+sajt gyermek>18+szl'
18 'egyedlll szl+ms gyermek<18+szl'
19 'egyedlll szl+sajt gyermek<18+ms felntt(+szl)'
20 'egyedlll szl+sajt gyermek>18+ms felntt(+szl)'
21 'egyedlll szl+ms gyermek<18+ms felntt(+szl)'
22 'pr+szls'
23 'pr+ms felnttek(+szls)'
24 'egyedlll szemly+szl'
25 'egyedlll szemly+ms rokonok'
26 'pr+sajt gyermek<18+sajt gyermek>18'
27 'pr+sajt gyermek<18+ms gyermek<18'
28 'pr+sajt gyermek>18+ms gyermek<18'
29 'egyedlll szl+sajt gyermek<18+sajt gyermek>18'
30 'egyedlll szl+sajt gyermek<18+ms gyermek<18'
31 'egyedlll szl+sajt gyermek>18+ms gyermek<18'
32 'egyb hztartsok gyermekkel<18'
33 'egyb hztartsok'.
Save Outfile = 'd:\Panel99_CD_Elokeszulet\1992\HTTip92.sav'
/Compressed
/Keep
eazon92 HSIZE92 HT92 H1BKOR18 HHAGE92 HHAGE92A H1BBABA H1BBABA2.