version 6.0
set more off
capture log close
log using einkommen, replace

**********************************
*Bildung von Einkommensvariablen
*Methoden SS2000
*13.06.2000
**********************************

use emp2a, clear

*****************
*Haushaltsgroesse
*****************

    *Anzahl HH-Mitglieder
    gen byte n_hh=.
    replace n_hh=1 if v17==1
    replace n_hh=v18 if v18~=.

    *Anzahl Kinder 0-18 Jahre
    gen byte n_kind=v19a+v19b
    *0 und missing als keine Kinder
    mvdecode n_kind, mv(0)
    mvencode n_kind if n_hh~=., mv(0)

    *Anzahl Erwachsene
    gen byte n_erw=n_hh-n_kind

*Kontrollvariable

    *Art der Einkommensangabe
    gen byte einktyp=.
    replace einktyp=1 if v130~=.
    replace einktyp=2 if v130s~=.
    replace einktyp=3 if v130e~=.
    replace einktyp=4 if v130w~=.

    label define einktyp 1 "Lohn/Gehalt" 2 "Selbstaendigkeit" 3 "HH mit Eltern" 4 "WG"
    label values einktyp einktyp

**********
*Einkommen
**********

    *grob

    *Umwandlung in DM-Angaben
    *Klassenmitten der Grobabfrage
    *Einkommen aus abh. Taetigkeit
    gen byte v130_m=.
    replace v130_m=1500 if v130==1
    replace v130_m=4500 if v130==2
    replace v130_m=7500 if v130==3
    *Einkommen aus selbst. Taetigkeit
    gen byte v130s_m=.
    replace v130s_m=1500 if v130s==1
    replace v130s_m=4500 if v130s==2
    replace v130s_m=7500 if v130s==3
    *Einkommensangaben von Kindern in Elterhaushalten
    gen byte v130e_m=.
    replace v130e_m=1500 if v130e==1
    replace v130e_m=4500 if v130e==2
    replace v130e_m=7500 if v130e==3
    *Einkommensangaben von WGs
    gen byte v130w_m=.
    replace v130w_m=1500 if v130w==1
    replace v130w_m=4500 if v130w==2
    replace v130w_m=7500 if v130w==3

    *Bildung Einkommensvariable grob
    gen int hhnet_gr=.
    replace hhnet_gr=v130_m if v130_m~=.
    replace hhnet_gr=v130s_m if v130s_m~=.
    replace hhnet_gr=v130e_m if v130e_m~=.
    replace hhnet_gr=v130w_m if v130w_m~=.

    *fein

    *Klassenmitten der Feinabfrage
    *unter DM 3000
    gen int v131_m=.
    replace v131_m=500 if v131==1
    replace v131_m=1500 if v131==2
    replace v131_m=2500 if v131==3
    *DM 3000-6000
    gen int v132_m=.
    replace v132_m=3500 if v132==1
    replace v132_m=4500 if v132==2
    replace v132_m=5500 if v132==3
    *ueber 6000
    gen int v133_m=.
    replace v133_m=7000 if v133==1
    replace v133_m=8500 if v133==2

    *Bildung Einkommensvariable fein
    gen int hhnet_fe=.
    replace hhnet_fe=v131_m if v131_m~=.
    replace hhnet_fe=v132_m if v132_m~=.
    replace hhnet_fe=v133_m if v133_m~=.

    *Bildung Einkommensvariable insgesamt
    gen int hhnetto=hhnet_gr
    replace hhnetto=v131_m if v131_m~=.
    replace hhnetto=v132_m if v132_m~=.
    replace hhnetto=v133_m if v133_m~=.

*Kontrollvariable

    *Wert aus Grob- oder Feinabfrage
    gen byte einkabfr=.
    replace einkabfr=1 if hhnet_fe~=.
    replace einkabfr=2 if hhnet_fe==. & hhnet_gr~=.

    label define einkabfr 1 "Feinabfrage" 2 "Grobabfrage"
    label values einkabfr einkabfr

*********************
*Aequivalenzeinkommen
*(bedarfsgewichtetes Pro-Kopf-Einkommen)
*********************

    *angelehnt an Gewichtung nach OECD-Skala (aeltere Version, "Oxford-Skala")
    *zur Bildung von Aequivalenzeinkommen, siehe Andress, H.-J.: Leben in Armut, Opladen 1999: 84-87
    *Gewichte: weitere Erwachsene 0,7, Kinder (0-17) 0,5
    *(nach OECD-Skala nur Kinder bis 15 Jahre!!!)

    *Bildung des Haushaltsgewichts
    gen float hh_gew=1+(n_erw-1)*0.7+n_kind*0.5

    *Bildung des Aequivalenznettoeinkommens
    gen aeqeink=hhnetto/hh_gew

    *Loeschung der Zwischenschritte
    drop v130_m-v130w_m
    drop v131_m-v133_m

    *Bennung der Variablen
    label variable einktyp "Kontrolle Einkommensangabe"
    label variable einkabfr "Kontrolle Einkommen Grob-/Feinabfrage"
    label variable n_hh "Anzahl HH-Mitglieder"
    label variable n_kind "Anzahl Kinder unter 18 J. im HH"
    label variable n_erw "Anzahl Erwachsene im HH"
    label variable hh_gew "HH-Gewicht nach OECD-Skala"
    label variable hhnet_gr "HH-Nettoeink. Grobabfrage"
    label variable hhnet_fe "HH-Nettoeink. Feinabfrage"
    label variable hhnetto "HH-Nettoeinkommen"
    label variable aeqeink "Aequivalenzeinkommen netto (OECD)"

log close
*save emp2a_eink, replace