Fájl tartalma

****** 'Egy�ni keresztmetszeti s�ly kezdete     ' ******.
****** 'Longitudin�lis s�ly el�tt kell futtatni ' ******.

* '---------------------------------------------------------------'.

get file 'd:\Panel99_CD_Elokeszulet\6Hullam\P9234567.sav'
   /keep
 case    suly92
 hazon92 eazon92 rsel92 e1egyen h1attip e1attip e1aneme e1aszul e1iisk
 hazon93 eazon93 rsel93 e2egyen h2attip e2attip e2aneme e2aszul e2iisk
 hazon94 eazon94 rsel94 e3egyen h3attip e3attip e3aneme e3aszul e3iisk
 hazon95 eazon95 rsel95 e4egyen h4attip e4attip e4aneme e4aszul e4iisk
 hazon96 eazon96 rsel96 e5egyen h5attip e5attip e5aneme e5aszul e5iisk
 hazon97 eazon97 rsel97 e6egyen h6attip e6attip e6aneme e6aszul e6iisk
 l2sem0  l2nem0  l3sem0 l3nem0  l4sem0  l4nem0  l5sem0  l5nem0
 l6sem0  l6nem0  .
execute.

*.
* 'S�lyoz�shoz haszn�lt seg�dv�ltoz�k el��ll�t�sa'.
*.

numeric kora92    (f2.0).
numeric korcs92   (f1.0).
numeric iskola92  (f1.0).
numeric teltip92  (f1.0).

numeric kora93    (f2.0).
numeric korcs93   (f1.0).
numeric iskola93  (f1.0).
numeric teltip93  (f1.0).

numeric kora94    (f2.0).
numeric korcs94   (f1.0).
numeric iskola94  (f1.0).
numeric teltip94  (f1.0).

numeric kora95    (f2.0).
numeric korcs95   (f1.0).
numeric iskola95  (f1.0).
numeric teltip95  (f1.0).

numeric kora96    (f2.0).
numeric korcs96   (f1.0).
numeric iskola96  (f1.0).
numeric teltip96  (f1.0).

numeric kora97    (f2.0).
numeric korcs97   (f1.0).
numeric iskola97  (f1.0).
numeric teltip97  (f1.0).

variable labels  kora92   'Egy�n kora 92-ben'
                /kora93   'Egy�n kora 93-ban'
                /kora94   'Egy�n kora 94-ben'
                /kora95   'Egy�n kora 95-ben'
                /kora96   'Egy�n kora 96-ban'
                /kora97   'Egy�n kora 97-ben'
                /korcs92  'Egy�n korcsoportja 92-ben'
                /korcs93  'Egy�n korcsoportja 93-ban'
                /korcs94  'Egy�n korcsoportja 94-ben'
                /korcs95  'Egy�n korcsoportja 95-ben'
                /korcs96  'Egy�n korcsoportja 96-ban'
                /korcs97  'Egy�n korcsoportja 97-ben'
                /iskola92 'Egy�n iskolai v�gzetts�ge 92-ben'
                /iskola93 'Egy�n iskolai v�gzetts�ge 93-ban'
                /iskola94 'Egy�n iskolai v�gzetts�ge 94-ben'
                /iskola95 'Egy�n iskolai v�gzetts�ge 95-ben'
                /iskola96 'Egy�n iskolai v�gzetts�ge 96-ban'
                /iskola97 'Egy�n iskolai v�gzetts�ge 97-ben'
                /teltip92 'Telep�l�s t�pusa 92-ben'
                /teltip93 'Telep�l�s t�pusa 93-ban'
                /teltip94 'Telep�l�s t�pusa 94-ben'
                /teltip95 'Telep�l�s t�pusa 95-ben'
                /teltip96 'Telep�l�s t�pusa 96-ban'
                /teltip97 'Telep�l�s t�pusa 97-ben' .
value labels
/korcs92
 korcs93
 korcs94
 korcs95
 korcs96
 korcs97     1 '16 �v alatt'
             2 '16-29 �ves '
             3 '30-39 �ves '
             4 '40-49 �ves '
             5 '50-59 �ves '
             6 '60-xx �ves '
/iskola92
 iskola93
 iskola94
 iskola95
 iskola96
 iskola97    1 '8 �lt.vagy alatta'
             2 'szakmunk�s       '
             3 '�retts�gi        '
             4 'f�iskola,egyetem '
/teltip92
 teltip93
 teltip94
 teltip95
 teltip96
 teltip97    1 'tanya,k�zs�g'
             2 'v�ros       '
             3 'f�v�ros     ' .
execute.

*.
* 'Seg�dv�ltoz�k �rt�kad�sa'.
*.
compute kora92 = 92 - e1aszul.
compute kora93 = 93 - e2aszul.
compute kora94 = 94 - e3aszul.
compute kora95 = 95 - e4aszul.
compute kora96 = 96 - e5aszul.
compute kora97 = 97 - e6aszul.
execute.

* '1992-es adatok'.
if (kora92 < 16)                 korcs92 = 1.
if (kora92 > 15 and kora92 < 30) korcs92 = 2.
if (kora92 > 29 and kora92 < 40) korcs92 = 3.
if (kora92 > 39 and kora92 < 50) korcs92 = 4.
if (kora92 > 49 and kora92 < 60) korcs92 = 5.
if (kora92 > 59)                 korcs92 = 6.

if (e1iisk < 6) iskola92 = 1.
if (e1iisk = 6) iskola92 = 2.
if (e1iisk = 7) iskola92 = 3.
if (e1iisk > 7) iskola92 = 4.

compute e1attip = h1attip.

if (e1attip < 3) teltip92 = 1.
if (e1attip = 3) teltip92 = 2.
if (e1attip = 4) teltip92 = 2.
if (e1attip = 5) teltip92 = 3.

execute.

* '1993-as adatok'.
if (kora93 < 16)                 korcs93 = 1.
if (kora93 > 15 and kora93 < 30) korcs93 = 2.
if (kora93 > 29 and kora93 < 40) korcs93 = 3.
if (kora93 > 39 and kora93 < 50) korcs93 = 4.
if (kora93 > 49 and kora93 < 60) korcs93 = 5.
if (kora93 > 59)                 korcs93 = 6.

if (e2iisk < 6) iskola93 = 1.
if (e2iisk = 6) iskola93 = 2.
if (e2iisk = 7) iskola93 = 3.
if (e2iisk > 7) iskola93 = 4.

compute e2attip = h2attip.

if (e2attip < 3) teltip93 = 1.
if (e2attip = 3) teltip93 = 2.
if (e2attip = 4) teltip93 = 2.
if (e2attip = 5) teltip93 = 3.

execute.

* '1994-es adatok'.
if (kora94 < 16)                 korcs94 = 1.
if (kora94 > 15 and kora94 < 30) korcs94 = 2.
if (kora94 > 29 and kora94 < 40) korcs94 = 3.
if (kora94 > 39 and kora94 < 50) korcs94 = 4.
if (kora94 > 49 and kora94 < 60) korcs94 = 5.
if (kora94 > 59)                 korcs94 = 6.

if (e3iisk < 6) iskola94 = 1.
if (e3iisk = 6) iskola94 = 2.
if (e3iisk = 7) iskola94 = 3.
if (e3iisk > 7) iskola94 = 4.

compute e3attip = h3attip.

if (e3attip < 3) teltip94 = 1.
if (e3attip = 3) teltip94 = 2.
if (e3attip = 4) teltip94 = 2.
if (e3attip = 5) teltip94 = 3.

execute.

* '1995-�s adatok'.
if (kora95 < 16)                 korcs95 = 1.
if (kora95 > 15 and kora95 < 30) korcs95 = 2.
if (kora95 > 29 and kora95 < 40) korcs95 = 3.
if (kora95 > 39 and kora95 < 50) korcs95 = 4.
if (kora95 > 49 and kora95 < 60) korcs95 = 5.
if (kora95 > 59)                 korcs95 = 6.

if (e4iisk < 6) iskola95 = 1.
if (e4iisk = 6) iskola95 = 2.
if (e4iisk = 7) iskola95 = 3.
if (e4iisk > 7) iskola95 = 4.

compute e4attip = h4attip.

if (e4attip < 3) teltip95 = 1.
if (e4attip = 3) teltip95 = 2.
if (e4attip = 4) teltip95 = 2.
if (e4attip = 5) teltip95 = 3.

execute.

* '1996-os adatok'.
if (kora96 < 16)                 korcs96 = 1.
if (kora96 > 15 and kora96 < 30) korcs96 = 2.
if (kora96 > 29 and kora96 < 40) korcs96 = 3.
if (kora96 > 39 and kora96 < 50) korcs96 = 4.
if (kora96 > 49 and kora96 < 60) korcs96 = 5.
if (kora96 > 59)                 korcs96 = 6.

if (e5iisk < 6) iskola96 = 1.
if (e5iisk = 6) iskola96 = 2.
if (e5iisk = 7) iskola96 = 3.
if (e5iisk > 7) iskola96 = 4.

compute e5attip = h5attip.

if (e5attip < 3) teltip96 = 1.
if (e5attip = 3) teltip96 = 2.
if (e5attip = 4) teltip96 = 2.
if (e5attip = 5) teltip96 = 3.

execute.

* '1997-es adatok'.
if (kora97 < 16)                 korcs97 = 1.
if (kora97 > 15 and kora97 < 30) korcs97 = 2.
if (kora97 > 29 and kora97 < 40) korcs97 = 3.
if (kora97 > 39 and kora97 < 50) korcs97 = 4.
if (kora97 > 49 and kora97 < 60) korcs97 = 5.
if (kora97 > 59)                 korcs97 = 6.

if (e6iisk < 6) iskola97 = 1.
if (e6iisk = 6) iskola97 = 2.
if (e6iisk = 7) iskola97 = 3.
if (e6iisk > 7) iskola97 = 4.

compute e6attip = h6attip.

if (e6attip < 3) teltip97 = 1.
if (e6attip = 3) teltip97 = 2.
if (e6attip = 4) teltip97 = 2.
if (e6attip = 5) teltip97 = 3.

execute.
*.
* 'Seg�dv�ltoz�k �rt�kad�s v�ge'.
*.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\SulySeg�d.sav'
    /compressed.

* '---------------------------------------------------------------'.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\SulySeg�d.sav'.
execute.

numeric cel92k (f4.0).
numeric cel93k (f4.0).
variable labels  cel92k 'Dim.cell�k keresztm.sulyhoz 92-ben'
                /cel93k 'Dim.cell�k keresztm.sulyhoz 93-ban'

if (rsel92    =  1 and
    l2nem0   <>  1 and
    l2nem0   <>  8 or
    sysmis(l2nem0)) cel92k = e1aneme  * 1000 +
                             korcs92  *  100 +
                             iskola92 *   10 +
                             teltip92 .

if (rsel93    =  1) cel93k = e2aneme  * 1000 +
                             korcs93  *  100 +
                             iskola93 *   10 +
                             teltip93 .

sort cases by cel93k.

temporary.
select if (sysmis(cel93k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav'
           /break cel93k
           /k93db = nu.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav'
           /by    = cel93k.
execute.

variable labels k93db 'cel93k kateg�ria esetsz�ma 93-ban'.

sort cases by cel92k.

temporary.
select if (sysmis(cel92k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k92db.sav'
           /break cel92k
           /k92db = nu.

sort cases by cel93k.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k92db.sav'
           /rename (cel92k = cel93k)
           /by    = cel93k.
execute.

variable labels k92db 'cel93k kateg�ria esetsz�ma 92-ben'.

numeric egyke93 (f10.8).
variable labels egyke93 'Egy�ni keresztmetszeti s�ly 1993'.

compute egyke93 = k92db / k93db .

frequencies
  variables egyke93 /stat all.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p93_EgyKe.sav'
    /compressed
    /drop cel93k k93db .


********.
* 1994 *.
********.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p93_EgyKe.sav'.
execute.

numeric cel93k (f4.0).
numeric cel94k (f4.0).
variable labels  cel93k 'Dim.cell�k keresztm.sulyhoz 93-ban'
                /cel94k 'Dim.cell�k keresztm.sulyhoz 94-ben'

if (rsel93    =  1 and
    l3nem0   <>  1 and
    l3nem0   <>  8 or
    sysmis(l3nem0)) cel93k = e2aneme  * 1000 +
                             korcs93  *  100 +
                             iskola93 *   10 +
                             teltip93 .

if (rsel94    =  1) cel94k = e3aneme  * 1000 +
                             korcs94  *  100 +
                             iskola94 *   10 +
                             teltip94 .

sort cases by cel94k.

temporary.
select if (sysmis(cel94k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav'
           /break cel94k
           /k94db = nu.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav'
           /by    = cel94k.
execute.

variable labels k94db 'cel94k kateg�ria esetsz�ma 94-ben'.

sort cases by cel93k.

temporary.
select if (sysmis(cel93k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav'
           /break cel93k
           /k93db = nu.

sort cases by cel94k.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k93db.sav'
           /rename (cel93k = cel94k)
           /by    = cel94k.
execute.

variable labels k93db 'cel94k kateg�ria esetsz�ma 93-ben'.

numeric egyke94 (f10.8).
variable labels egyke94 'Egy�ni keresztmetszeti s�ly 1994'.

compute egyke94 = k93db / k94db .

frequencies
  variables egyke94 /stat all.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p94_EgyKe.sav'
    /compressed
    /drop cel94k k94db .

********.
* 1995 *.
********.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p94_EgyKe.sav'.
execute.

numeric cel94k (f4.0).
numeric cel95k (f4.0).
variable labels  cel94k 'Dim.cell�k keresztm.sulyhoz 94-ban'
                /cel95k 'Dim.cell�k keresztm.sulyhoz 95-ben'

if (rsel94    =  1 and
    l4nem0   <>  1 and
    l4nem0   <>  8 or
    sysmis(l4nem0)) cel94k = e3aneme  * 1000 +
                             korcs94  *  100 +
                             iskola94 *   10 +
                             teltip94 .

if (rsel95    =  1) cel95k = e4aneme  * 1000 +
                             korcs95  *  100 +
                             iskola95 *   10 +
                             teltip95 .

sort cases by cel95k.

temporary.
select if (sysmis(cel95k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav'
           /break cel95k
           /k95db = nu.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav'
           /by    = cel95k.
execute.

variable labels k95db 'cel95k kateg�ria esetsz�ma 95-ben'.

sort cases by cel94k.

temporary.
select if (sysmis(cel94k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav'
           /break cel94k
           /k94db = nu.

sort cases by cel95k.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k94db.sav'
           /rename (cel94k = cel95k)
           /by    = cel95k.
execute.

variable labels k94db 'cel95k kateg�ria esetsz�ma 94-ben'.

numeric egyke95 (f10.8).
variable labels egyke95 'Egy�ni keresztmetszeti s�ly 1995'.

compute egyke95 = k94db / k95db .

frequencies
  variables egyke95 /stat all.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p95_EgyKe.sav'
    /compressed
    /drop cel95k k95db .


********.
* 1996 *.
********.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p95_EgyKe.sav'.
execute.

numeric cel95k (f4.0).
numeric cel96k (f4.0).
variable labels  cel95k 'Dim.cell�k keresztm.sulyhoz 95-ban'
                /cel96k 'Dim.cell�k keresztm.sulyhoz 96-ben'

if (rsel95    =  1 and
    l5nem0   <>  1 and
    l5nem0   <>  8 or
    sysmis(l5nem0)) cel95k = e4aneme  * 1000 +
                             korcs95  *  100 +
                             iskola95 *   10 +
                             teltip95 .

if (rsel96    =  1) cel96k = e5aneme  * 1000 +
                             korcs96  *  100 +
                             iskola96 *   10 +
                             teltip96 .

sort cases by cel96k.

temporary.
select if (sysmis(cel96k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav'
           /break cel96k
           /k96db = nu.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav'
           /by    = cel96k.
execute.

variable labels k96db 'cel96k kateg�ria esetsz�ma 96-ben'.

sort cases by cel95k.

temporary.
select if (sysmis(cel95k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav'
           /break cel95k
           /k95db = nu.

sort cases by cel96k.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k95db.sav'
           /rename (cel95k = cel96k)
           /by    = cel96k.
execute.

variable labels k95db 'cel96k kateg�ria esetsz�ma 95-ben'.

numeric egyke96 (f10.8).
variable labels egyke96 'Egy�ni keresztmetszeti s�ly 1996'.

compute egyke96 = k95db / k96db .

frequencies
  variables egyke96 /stat all.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p96_EgyKe.sav'
    /compressed
    /drop cel96k k96db .


********.
* 1997 *.
********.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p96_EgyKe.sav'.
execute.

numeric cel96k (f4.0).
numeric cel97k (f4.0).
variable labels  cel96k 'Dim.cell�k keresztm.sulyhoz 96-ban'
                /cel97k 'Dim.cell�k keresztm.sulyhoz 97-ben'

if (rsel96    =  1 and
    l6nem0   <>  1 and
    l6nem0   <>  8 or
    sysmis(l6nem0)) cel96k = e5aneme  * 1000 +
                             korcs96  *  100 +
                             iskola96 *   10 +
                             teltip96 .

if (rsel97    =  1) cel97k = e6aneme  * 1000 +
                             korcs97  *  100 +
                             iskola97 *   10 +
                             teltip97 .

sort cases by cel97k.

temporary.
select if (sysmis(cel97k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k97db.sav'
           /break cel97k
           /k97db = nu.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k97db.sav'
           /by    = cel97k.
execute.

variable labels k97db 'cel97k kateg�ria esetsz�ma 97-ben'.

sort cases by cel96k.

temporary.
select if (sysmis(cel96k) = 0).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav'
           /break cel96k
           /k96db = nu.

sort cases by cel97k.

match files file  = *
           /table = 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\k96db.sav'
           /rename (cel96k = cel97k)
           /by    = cel97k.
execute.

variable labels k96db 'cel97k kateg�ria esetsz�ma 96-ben'.

numeric egyke97 (f10.8).
variable labels egyke97 'Egy�ni keresztmetszeti s�ly 1997'.

compute egyke97 = k96db / k97db .

frequencies
  variables egyke97 /stat all.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p97_EgyKe.sav'
    /compressed
    /drop cel97k k97db .


*****   H�ztart�s �s Gyerek keresztmetszeti s�ly   *****.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\p97_EgyKe.sav'.
execute.

sort cases by hazon93.

temporary.
select if (rsel93 = 1).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke93.sav'
           /break hazon93
           /hazke93 = mean(egyke93).

match files file  *
           /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke93.sav'
           /by hazon93.

format hazke93 (f10.8).
numeric gyeke93 (f10.8).
variable labels  hazke93 'H�ztart�s keresztmetszeti s�ly 93'
                /gyeke93 'Gyermek keresztmetszeti s�ly 93' .

if (rsel93 = 2) gyeke93 = hazke93.

execute.


* 1994.

sort cases by hazon94.

temporary.
select if (rsel94 = 1).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke94.sav'
           /break hazon94
           /hazke94 = mean(egyke94).

match files file  *
           /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke94.sav'
           /by hazon94.

format hazke94 (f10.8).
numeric gyeke94 (f10.8).
variable labels  hazke94 'H�ztart�s keresztmetszeti s�ly 94'
                /gyeke94 'Gyermek keresztmetszeti s�ly 94' .

if (rsel94 = 2) gyeke94 = hazke94.

execute.

* 1995.

sort cases by hazon95.

temporary.
select if (rsel95 = 1).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke95.sav'
           /break hazon95
           /hazke95 = mean(egyke95).

match files file  *
           /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke95.sav'
           /by hazon95.

format hazke95 (f10.8).
numeric gyeke95 (f10.8).
variable labels  hazke95 'H�ztart�s keresztmetszeti s�ly 95'
                /gyeke95 'Gyermek keresztmetszeti s�ly 95' .

if (rsel95 = 2) gyeke95 = hazke95.

execute.


* 1996.

sort cases by hazon96.

temporary.
select if (rsel96 = 1).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke96.sav'
           /break hazon96
           /hazke96 = mean(egyke96).

match files file  *
           /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke96.sav'
           /by hazon96.

format hazke96 (f10.8).
numeric gyeke96 (f10.8).
variable labels  hazke96 'H�ztart�s keresztmetszeti s�ly 96'
                /gyeke96 'Gyermek keresztmetszeti s�ly 96' .

if (rsel96 = 2) gyeke96 = hazke96.

execute.


* 1997.

sort cases by hazon97.

temporary.
select if (rsel97 = 1).

aggregate outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke97.sav'
           /break hazon97
           /hazke97 = mean(egyke97).

match files file  *
           /table 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\hazke97.sav'
           /by hazon97.

var lab hazke97 'H�ztart�s keresztmetszeti s�ly 97'.
format hazke97 (f10.8).

format hazke97 (f10.8).
numeric gyeke97 (f10.8).
variable labels  hazke97 'H�ztart�s keresztmetszeti s�ly 97'
                /gyeke97 'Gyermek keresztmetszeti s�ly 97' .

if (rsel97 = 2) gyeke97 = hazke97.

sort cases by case.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe.sav'
    /compressed.


*********************************************.
*****   Keresztmetszeti S�lyszorzatok   *****.
*********************************************.

get file 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe.sav'.
execute.

*****A sulyok szorz�s�t elv�gz� program.

numeric egyke93s (f10.8).
numeric egyke94s (f10.8).
numeric egyke95s (f10.8).
numeric egyke96s (f10.8).
numeric egyke97s (f10.8).

numeric egylo93s (f10.8).
numeric egylo94s (f10.8).
numeric egylo95s (f10.8).
numeric egylo96s (f10.8).
numeric egylo97s (f10.8).

numeric hazke93s (f10.8).
numeric hazke94s (f10.8).
numeric hazke95s (f10.8).
numeric hazke96s (f10.8).
numeric hazke97s (f10.8).

numeric hazlo93s (f10.8).
numeric hazlo94s (f10.8).
numeric hazlo95s (f10.8).
numeric hazlo96s (f10.8).
numeric hazlo97s (f10.8).

numeric gyeke93s (f10.8).
numeric gyeke94s (f10.8).
numeric gyeke95s (f10.8).
numeric gyeke96s (f10.8).
numeric gyeke97s (f10.8).

numeric gyelo93s (f10.8).
numeric gyelo94s (f10.8).
numeric gyelo95s (f10.8).
numeric gyelo96s (f10.8).
numeric gyelo97s (f10.8).

execute.

* 1993.
compute egyke93s = suly92 * egyke93.
if (e2egyen>20 and h2attip ne 5) egyke93s = egyke93.
if (e2egyen>20 and h2attip =  5) egyke93s = 0.4028985 * egyke93.
if (rsel93       = 1 and
    sysmis(egyke93s) and
    e2attip     <> 5) egyke93s = egyke93.
if (rsel93       = 1 and
    sysmis(egyke93s) and
    e2attip      = 5) egyke93s = 0.4028985 * egyke93.
if (e1attip  = 5 and
    e2attip <> 5) egyke93s = egyke93s * 2.4820147.

* 1994.
compute egyke94s = egyke93s * egyke94.
if (e3egyen>30 and h3attip ne 5) egyke94s = egyke94.
if (e3egyen>30 and h3attip =  5) egyke94s = 0.4028985 * egyke94.
if (rsel94       = 1 and
    sysmis(egyke94s) and
    e3attip     <> 5) egyke94s = egyke94.
if (rsel94       = 1 and
    sysmis(egyke94s) and
    e3attip      = 5) egyke94s = 0.4028985 * egyke94.
if (e2attip  = 5 and
    e3attip <> 5) egyke94s = egyke94s * 2.4820147.

* 1995.
compute egyke95s = egyke94s * egyke95.
if (e4egyen>40 and h4attip ne 5) egyke95s = egyke95.
if (e4egyen>40 and h4attip =  5) egyke95s = 0.4028985 * egyke95.
if (rsel95       = 1 and
    sysmis(egyke95s) and
    e4attip     <> 5) egyke95s = egyke95.
if (rsel95       = 1 and
    sysmis(egyke95s) and
    e4attip      = 5) egyke95s = 0.4028985 * egyke95.
if (e3attip  = 5 and
    e4attip <> 5) egyke95s = egyke95s * 2.4820147.

* 1996.
compute egyke96s = egyke95s * egyke96.
if (e5egyen>50 and h5attip ne 5) egyke96s = egyke96.
if (e5egyen>50 and h5attip =  5) egyke96s = 0.4028985 * egyke96.
if (rsel96       = 1 and
    sysmis(egyke96s) and
    e5attip     <> 5) egyke96s = egyke96.
if (rsel96       = 1 and
    sysmis(egyke96s) and
    e5attip      = 5) egyke96s = 0.4028985 * egyke96.
if (e4attip  = 5 and
    e5attip <> 5) egyke96s = egyke96s * 2.4820147.

* 1997.
compute egyke97s = egyke96s * egyke97.
if (e6egyen>60 and h6attip ne 5) egyke97s = egyke97.
if (e6egyen>60 and h6attip =  5) egyke97s = 0.4028985 * egyke97.
if (rsel97       = 1 and
    sysmis(egyke97s) and
    e6attip     <> 5) egyke97s = egyke97.
if (rsel97       = 1 and
    sysmis(egyke97s) and
    e6attip      = 5) egyke97s = 0.4028985 * egyke97.
if (e5attip  = 5 and
    e6attip <> 5) egyke97s = egyke97s * 2.4820147.

fre egyke93s egyke94s egyke95s egyke96s egyke97s
  /format notable / stat all.


* H�ztart�s keresztmetszeti s�ly.
compute hazke93s = suly92 * hazke93.
if (e2egyen>20 and h2attip ne 5) hazke93s = hazke93.
if (e2egyen>20 and h2attip =  5) hazke93s = 0.4028985 * hazke93.
if (rsel93       = 1 and
    sysmis(hazke93s) and
    e2attip     <> 5) hazke93s = hazke93.
if (rsel93       = 1 and
    sysmis(hazke93s) and
    e2attip      = 5) hazke93s = 0.4028985 * hazke93.
if (e1attip  = 5 and
    e2attip <> 5) hazke93s = hazke93s * 2.4820147.

compute hazke94s = hazke93s * hazke94.
if (e3egyen>30 and h3attip ne 5) hazke94s = hazke94.
if (e3egyen>30 and h3attip =  5) hazke94s = 0.4028985 * hazke94.
if (rsel94       = 1 and
    sysmis(hazke94s) and
    e3attip     <> 5) hazke94s = hazke94.
if (rsel94       = 1 and
    sysmis(hazke94s) and
    e3attip      = 5) hazke94s = 0.4028985 * hazke94.
if (e2attip  = 5 and
    e3attip <> 5) hazke94s = hazke94s * 2.4820147.

compute hazke95s = hazke94s * hazke95.
if (e4egyen>40 and h4attip ne 5) hazke95s = hazke95.
if (e4egyen>40 and h4attip =  5) hazke95s = 0.4028985 * hazke95.
if (rsel95       = 1 and
    sysmis(hazke95s) and
    e4attip     <> 5) hazke95s = hazke95.
if (rsel95       = 1 and
    sysmis(hazke95s) and
    e4attip      = 5) hazke95s = 0.4028985 * hazke95.
if (e3attip  = 5 and
    e4attip <> 5) hazke95s = hazke95s * 2.4820147.

compute hazke96s = hazke95s * hazke96.
if (e5egyen>50 and h5attip ne 5) hazke96s = hazke96.
if (e5egyen>50 and h5attip =  5) hazke96s = 0.4028985 * hazke96.
if (rsel96       = 1 and
    sysmis(hazke96s) and
    e5attip     <> 5) hazke96s = hazke96.
if (rsel96       = 1 and
    sysmis(hazke96s) and
    e5attip      = 5) hazke96s = 0.4028985 * hazke96.
if (e4attip  = 5 and
    e5attip <> 5) hazke96s = hazke96s * 2.4820147.

compute hazke97s = hazke96s * hazke97.
if (e6egyen>60 and h6attip ne 5) hazke97s = hazke97.
if (e6egyen>60 and h6attip =  5) hazke97s = 0.4028985 * hazke97.
if (rsel97       = 1 and
    sysmis(hazke97s) and
    e6attip     <> 5) hazke97s = hazke97.
if (rsel97       = 1 and
    sysmis(hazke97s) and
    e6attip      = 5) hazke97s = 0.4028985 * hazke97.
if (e5attip  = 5 and
    e6attip <> 5) hazke97s = hazke97s * 2.4820147.

fre hazke93s hazke94s hazke95s hazke96s hazke97s
  /format notable / stat all.
fre hazke95s.

* Gerek keresztmetszeti s�ly.
compute gyeke93s=hazke93s.
compute gyeke94s=hazke94s.
compute gyeke95s=hazke95s.
compute gyeke96s=hazke96s.
compute gyeke97s=hazke97s.

fre gyeke93s gyeke94s gyeke95s gyeke96s gyeke97s
  /format notable / stat all.

sort cases by case.

save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\P_EgyHazGyeKe_S.sav'
    /compressed.

*** 'Csak a CASE �s a s�ly v�ltoz�k !'.
save outfile 'd:\Panel99_CD_Elokeszulet\SulyFile-ok\KerSuly.sav'
    /compressed
    /keep
 case
 egyke93s egyke94s egyke95s egyke96s egyke97s
 hazke93s hazke94s hazke95s hazke96s hazke97s
 gyeke93s gyeke94s gyeke95s gyeke96s gyeke97s .