/* Program reads and combines crime data for executives and their parents */

libname lib100 "W:\Tutkimusprojektit\Kirjanpito\Dokumentaatio\JAR\Datat\";
run; 

data perheet;
set lib100.kaikki_perheet_data_250925;
run;

data perheet_tuomiot;
set lib100.Tuomiot_raaka_t_vuosi_300924;  		

keep year id tekovuosi Viim_rikos_tvuosi Viim_muu_rikos_tvuosi Viim_talousrikos_tvuosi Ens_muu_rikos_tvuosi Ens_talousrikos_tvuosi muu_rikos_3_tuomio muu_rikos_4_tuomio muu_rikos_5_tuomio muu_rikos_3 muu_rikos_4 muu_rikos_5
Talous_tuomio Talous_kaikki_tuomio Talous Talous_kaikki Henkiterveys Henkiterveys_tuomio LiikenneRR LiikenneRR_tuomio Finan_rep_fraud Tax_relat_fraud Other_finan_crime Talous_kaikki_vankeus Talous_kaikki_sakko Talous_kaikki_vankeus_tuomio
Talous_kaikki_ehdol_vankeus Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus muu_rikos_4_sakko muu_rikos_4_vankeus_tuomio muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus; 		

rename tekovuosi = vuosi LiikenneRR_tuomio = Liikenne_tuomio LiikenneRR = Liikenne;

run;

data perheet_2;
set perheet;

new_id = _n_;

run;

data struktuuri;
set lib100.henkilovuodet_150324;

if id <= 84530;

if 2019 >= year >= 1977;

rename id = new_id;

run;

proc sort data = struktuuri;
by new_id year;
run;

data perheet_3;
merge struktuuri perheet_2;
by new_id;

drop new_id;

run;

proc sort data = perheet_tuomiot;
by id;
run;

data tuomiot_vasthenk;
merge perheet_3 perheet_tuomiot;
by id year;

if mukana = 1;
if year = . then delete;

drop m_id f_id;

run;

data perheet_tuomiot_2;
set perheet_tuomiot;
rename id = m_id;
run;

proc sort data = perheet_tuomiot_2;
by m_id;
run;

proc sort data = perheet_3;
by m_id;
run;

data tuomiot_aidit;
merge perheet_3 perheet_tuomiot_2;
by m_id;

if mukana = 1;
if year = . then delete;

drop id f_id;

rename vuosi = M_vuosi Viim_rikos_tvuosi = M_Viim_rikos_tvuosi Viim_muu_rikos_tvuosi = M_Viim_muu_rikos_tvuosi Viim_talousrikos_tvuosi = M_Viim_talousrikos_tvuosi Ens_muu_rikos_tvuosi = M_Ens_muu_rikos_tvuosi Ens_talousrikos_tvuosi = M_Ens_talousrikos_tvuosi
muu_rikos_3_tuomio = M_muu_rikos_3_tuomio muu_rikos_4_tuomio = M_muu_rikos_4_tuomio muu_rikos_5_tuomio = M_muu_rikos_5_tuomio
Talous_tuomio = M_Talous_tuomio Talous_kaikki_tuomio = M_Talous_kaikki_tuomio Henkiterveys = M_Henkiterveys Henkiterveys_tuomio = M_Henkiterveys_tuomio Liikenne = M_Liikenne Liikenne_tuomio = M_Liikenne_tuomio
muu_rikos_3 = M_muu_rikos_3 muu_rikos_4 = M_muu_rikos_4 muu_rikos_5 = M_muu_rikos_5 
Talous = M_Talous Talous_kaikki = M_Talous_kaikki Finan_rep_fraud = M_Finan_rep_fraud Tax_relat_fraud = M_Tax_relat_fraud Other_finan_crime = M_Other_finan_crime
Talous_kaikki_vankeus = M_Talous_kaikki_vankeus Talous_kaikki_sakko = M_Talous_kaikki_sakko Talous_kaikki_vankeus_tuomio = M_Talous_kaikki_vankeus_tuomio Talous_kaikki_ehdol_vankeus = M_Talous_kaikki_ehdol_vankeus
Talous_kaikki_ehdot_vankeus = M_Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus = M_muu_rikos_4_vankeus muu_rikos_4_sakko = M_muu_rikos_4_sakko
muu_rikos_4_vankeus_tuomio = M_muu_rikos_4_vankeus_tuomio muu_rikos_4_ehdol_vankeus = M_muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus = M_muu_rikos_4_ehdot_vankeus;

run;

data perheet_tuomiot_3;
set perheet_tuomiot;
rename id = f_id;
run;

proc sort data = perheet_tuomiot_3;
by f_id;
run;

proc sort data = perheet_3;
by f_id;
run;

data tuomiot_isat;
merge perheet_3 perheet_tuomiot_3;
by f_id;

if mukana = 1;
if year = . then delete;

drop id m_id;

rename vuosi = F_vuosi Viim_rikos_tvuosi = F_Viim_rikos_tvuosi Viim_muu_rikos_tvuosi = F_Viim_muu_rikos_tvuosi Viim_talousrikos_tvuosi = F_Viim_talousrikos_tvuosi Ens_muu_rikos_tvuosi = F_Ens_muu_rikos_tvuosi Ens_talousrikos_tvuosi = F_Ens_talousrikos_tvuosi
muu_rikos_3_tuomio = F_muu_rikos_3_tuomio muu_rikos_4_tuomio = F_muu_rikos_4_tuomio muu_rikos_5_tuomio = F_muu_rikos_5_tuomio 
Talous_tuomio = F_Talous_tuomio Talous_kaikki_tuomio = F_Talous_kaikki_tuomio Henkiterveys = F_Henkiterveys Henkiterveys_tuomio = F_Henkiterveys_tuomio Liikenne = F_Liikenne Liikenne_tuomio = F_Liikenne_tuomio
muu_rikos_3 = F_muu_rikos_3 muu_rikos_4 = F_muu_rikos_4 muu_rikos_5 = F_muu_rikos_5 
Talous = F_Talous Talous_kaikki = F_Talous_kaikki Finan_rep_fraud = F_Finan_rep_fraud Tax_relat_fraud = F_Tax_relat_fraud Other_finan_crime = F_Other_finan_crime
Talous_kaikki_vankeus = F_Talous_kaikki_vankeus Talous_kaikki_sakko = F_Talous_kaikki_sakko Talous_kaikki_vankeus_tuomio = F_Talous_kaikki_vankeus_tuomio Talous_kaikki_ehdol_vankeus = F_Talous_kaikki_ehdol_vankeus
Talous_kaikki_ehdot_vankeus = F_Talous_kaikki_ehdot_vankeus muu_rikos_4_vankeus = F_muu_rikos_4_vankeus muu_rikos_4_sakko = F_muu_rikos_4_sakko
muu_rikos_4_vankeus_tuomio = F_muu_rikos_4_vankeus_tuomio muu_rikos_4_ehdol_vankeus = F_muu_rikos_4_ehdol_vankeus muu_rikos_4_ehdot_vankeus = F_muu_rikos_4_ehdot_vankeus;

run;

proc sort data = perheet;
by id;
run;

data tuomiot_vasthenk_2;
merge tuomiot_vasthenk perheet;
by id;

if year =. then delete;

run;

proc sort data = tuomiot_vasthenk_2;
by m_id year;
run;

proc sort nodupkey data = tuomiot_aidit;
by m_id year;
run;

data tuomiot_vasthenk_3;
merge tuomiot_vasthenk_2 tuomiot_aidit;
by m_id year;
run;

proc sort data = tuomiot_vasthenk_3;
by f_id year;
run;

proc sort nodupkey data = tuomiot_isat;
by f_id year;
run;

data tuomiot_vasthenk_4;
merge tuomiot_vasthenk_3 tuomiot_isat;
by f_id year;

if id = '' then delete;

run;

proc sort data = tuomiot_vasthenk_4;
by id year;
run;

data tuomiot_aidit_2;
set tuomiot_vasthenk_4;

keep year M_id M_Viim_rikos_tvuosi M_vuosi M_muu_rikos_3_tuomio M_muu_rikos_4_tuomio M_muu_rikos_5_tuomio M_Talous_tuomio M_Talous_kaikki_tuomio M_Henkiterveys M_Henkiterveys_tuomio M_Liikenne M_Liikenne_tuomio
M_Viim_muu_rikos_tvuosi M_Viim_talousrikos_tvuosi M_Ens_muu_rikos_tvuosi M_Ens_talousrikos_tvuosi M_muu_rikos_3 M_muu_rikos_4 M_muu_rikos_5 M_Talous M_Talous_kaikki M_Finan_rep_fraud M_Tax_relat_fraud M_Other_finan_crime
M_Talous_kaikki_vankeus M_Talous_kaikki_sakko M_Talous_kaikki_vankeus_tuomio M_Talous_kaikki_ehdol_vankeus M_Talous_kaikki_ehdot_vankeus M_muu_rikos_4_vankeus M_muu_rikos_4_sakko M_muu_rikos_4_vankeus_tuomio M_muu_rikos_4_ehdol_vankeus M_muu_rikos_4_ehdot_vankeus;
rename M_id = id M_Viim_rikos_tvuosi = Viim_rikos_tvuosi M_vuosi = vuosi M_muu_rikos_3_tuomio = muu_rikos_3_tuomio M_muu_rikos_4_tuomio = muu_rikos_4_tuomio M_muu_rikos_5_tuomio = muu_rikos_5_tuomio
M_Talous_tuomio = Talous_tuomio M_Talous_kaikki_tuomio = Talous_kaikki_tuomio M_Henkiterveys_tuomio = Henkiterveys_tuomio M_Liikenne_tuomio = Liikenne_tuomio M_Henkiterveys = Henkiterveys M_Liikenne = Liikenne
M_muu_rikos_3 = muu_rikos_3 M_muu_rikos_4 = muu_rikos_4 M_muu_rikos_5 = muu_rikos_5 M_Viim_muu_rikos_tvuosi = Viim_muu_rikos_tvuosi M_Viim_talousrikos_tvuosi = Viim_talousrikos_tvuosi M_Ens_muu_rikos_tvuosi = Ens_muu_rikos_tvuosi M_Ens_talousrikos_tvuosi = Ens_talousrikos_tvuosi
M_Talous = Talous M_Talous_kaikki = Talous_kaikki M_Finan_rep_fraud = Finan_rep_fraud M_Tax_relat_fraud = Tax_relat_fraud M_Other_finan_crime = Other_finan_crime
M_Talous_kaikki_vankeus = Talous_kaikki_vankeus M_Talous_kaikki_sakko = Talous_kaikki_sakko M_Talous_kaikki_vankeus_tuomio = Talous_kaikki_vankeus_tuomio M_Talous_kaikki_ehdol_vankeus = Talous_kaikki_ehdol_vankeus M_Talous_kaikki_ehdot_vankeus = Talous_kaikki_ehdot_vankeus
M_muu_rikos_4_vankeus = muu_rikos_4_vankeus M_muu_rikos_4_sakko = muu_rikos_4_sakko M_muu_rikos_4_vankeus_tuomio = muu_rikos_4_vankeus_tuomio M_muu_rikos_4_ehdol_vankeus = muu_rikos_4_ehdol_vankeus M_muu_rikos_4_ehdot_vankeus = muu_rikos_4_ehdot_vankeus;

run;

data tuomiot_isat_2;
set tuomiot_vasthenk_4;

keep year F_id F_Viim_rikos_tvuosi F_vuosi F_muu_rikos_3_tuomio F_muu_rikos_4_tuomio F_muu_rikos_5_tuomio F_Talous_tuomio F_Talous_kaikki_tuomio F_Henkiterveys F_Henkiterveys_tuomio F_Liikenne F_Liikenne_tuomio
F_Viim_muu_rikos_tvuosi F_Viim_talousrikos_tvuosi F_Ens_muu_rikos_tvuosi F_Ens_talousrikos_tvuosi F_muu_rikos_3 F_muu_rikos_4 F_muu_rikos_5 F_Talous F_Talous_kaikki F_Finan_rep_fraud F_Tax_relat_fraud F_Other_finan_crime
F_Talous_kaikki_vankeus F_Talous_kaikki_sakko F_Talous_kaikki_vankeus_tuomio F_Talous_kaikki_ehdol_vankeus F_Talous_kaikki_ehdot_vankeus F_muu_rikos_4_vankeus F_muu_rikos_4_sakko F_muu_rikos_4_vankeus_tuomio F_muu_rikos_4_ehdol_vankeus F_muu_rikos_4_ehdot_vankeus;
rename F_id = id F_Viim_rikos_tvuosi = Viim_rikos_tvuosi F_vuosi = vuosi F_muu_rikos_3_tuomio = muu_rikos_3_tuomio F_muu_rikos_4_tuomio = muu_rikos_4_tuomio F_muu_rikos_5_tuomio = muu_rikos_5_tuomio
F_Talous_tuomio = Talous_tuomio F_Talous_kaikki_tuomio = Talous_kaikki_tuomio F_Henkiterveys_tuomio = Henkiterveys_tuomio F_Liikenne_tuomio = Liikenne_tuomio F_Henkiterveys = Henkiterveys F_Liikenne = Liikenne
F_muu_rikos_3 = muu_rikos_3 F_muu_rikos_4 = muu_rikos_4 F_muu_rikos_5 = muu_rikos_5 F_Viim_muu_rikos_tvuosi = Viim_muu_rikos_tvuosi F_Viim_talousrikos_tvuosi = Viim_talousrikos_tvuosi F_Ens_muu_rikos_tvuosi = Ens_muu_rikos_tvuosi F_Ens_talousrikos_tvuosi = Ens_talousrikos_tvuosi
F_Talous = Talous F_Talous_kaikki = Talous_kaikki F_Finan_rep_fraud = Finan_rep_fraud F_Tax_relat_fraud = Tax_relat_fraud F_Other_finan_crime = Other_finan_crime
F_Talous_kaikki_vankeus = Talous_kaikki_vankeus F_Talous_kaikki_sakko = Talous_kaikki_sakko F_Talous_kaikki_vankeus_tuomio = Talous_kaikki_vankeus_tuomio F_Talous_kaikki_ehdol_vankeus = Talous_kaikki_ehdol_vankeus F_Talous_kaikki_ehdot_vankeus = Talous_kaikki_ehdot_vankeus
F_muu_rikos_4_vankeus = muu_rikos_4_vankeus F_muu_rikos_4_sakko = muu_rikos_4_sakko F_muu_rikos_4_vankeus_tuomio = muu_rikos_4_vankeus_tuomio F_muu_rikos_4_ehdol_vankeus = muu_rikos_4_ehdol_vankeus F_muu_rikos_4_ehdot_vankeus = muu_rikos_4_ehdot_vankeus;

run;

data tuomiot_vanhemmat;
set tuomiot_aidit_2 tuomiot_isat_2;
run;

proc sort nodupkey data = tuomiot_vanhemmat;
by id year;
run;

data tuomiot_vanhemmat_2;
 set tuomiot_vanhemmat;
 by ID YEAR;

 if ID ^= lag (ID) then do; 
	CUM_Muu3_tuomio = 0;
	CUM_Muu4_tuomio = 0;
	CUM_Muu5_tuomio = 0;
	CUM_Talous_tuomio = 0;
	CUM_Talous_kaikki_tuomio = 0;
	CUM_Henkiterv_tuomio = 0;
	CUM_Liikenne_tuomio = 0;
	
	CUM_Muu3 = 0;
	CUM_Muu4 = 0;
	CUM_Muu5 = 0;
	CUM_Talous = 0;
	CUM_Liikenne = 0;
	CUM_Henkiterveys = 0;
	CUM_Talous_kaikki = 0;
	CUM_Finan_rep_fraud = 0;
	CUM_Tax_relat_fraud = 0;
	CUM_Other_finan_crime = 0;

	CUM_Talous_kaikki_vankeus = 0;
	CUM_Talous_kaikki_sakko = 0;
	CUM_Talous_kaikki_vankeus_tuomio = 0;
	CUM_Talous_kaikki_ehdol_vankeus = 0;
	CUM_Talous_kaikki_ehdot_vankeus = 0;

	CUM_muu_rikos_4_vankeus = 0;
	CUM_muu_rikos_4_sakko = 0;
	CUM_muu_rikos_4_vankeus_tuomio = 0;
	CUM_muu_rikos_4_ehdol_vankeus = 0;
	CUM_muu_rikos_4_ehdot_vankeus = 0;

 end;

	CUM_Muu3_tuomio + Muu_rikos_3_tuomio;
	CUM_Muu4_tuomio + Muu_rikos_4_tuomio;
	CUM_Muu5_tuomio + Muu_rikos_5_tuomio;
	CUM_Talous_tuomio + Talous_tuomio;
	CUM_Talous_kaikki_tuomio + Talous_kaikki_tuomio;
	CUM_Henkiterv_tuomio + Henkiterveys_tuomio;
	CUM_Liikenne_tuomio + Liikenne_tuomio;

	CUM_Muu3 + Muu_rikos_3;
	CUM_Muu4 + Muu_rikos_4;
	CUM_Muu5 + Muu_rikos_5;
	CUM_Talous + Talous;
	CUM_Liikenne + Liikenne;
	CUM_Henkiterveys + Henkiterveys;
	CUM_Talous_kaikki + Talous_kaikki;
	CUM_Finan_rep_fraud + Finan_rep_fraud;
	CUM_Tax_relat_fraud + Tax_relat_fraud;
	CUM_Other_finan_crime + Other_finan_crime;

	CUM_Talous_kaikki_vankeus + Talous_kaikki_vankeus;
	CUM_Talous_kaikki_sakko + Talous_kaikki_sakko;
	CUM_Talous_kaikki_vankeus_tuomio + Talous_kaikki_vankeus_tuomio;
	CUM_Talous_kaikki_ehdol_vankeus + Talous_kaikki_ehdol_vankeus;
	CUM_Talous_kaikki_ehdot_vankeus + Talous_kaikki_ehdot_vankeus;

	CUM_muu_rikos_4_vankeus + muu_rikos_4_vankeus;
	CUM_muu_rikos_4_sakko + muu_rikos_4_sakko;
	CUM_muu_rikos_4_vankeus_tuomio + muu_rikos_4_vankeus_tuomio;
	CUM_muu_rikos_4_ehdol_vankeus + muu_rikos_4_ehdol_vankeus;
	CUM_muu_rikos_4_ehdot_vankeus + muu_rikos_4_ehdot_vankeus;

run;

data tuomiot_vanhemmat_3;
set tuomiot_vanhemmat_2;

if year = 2019;

D_Lifetime_Muu_rikos_4_tuomio = 0;
D_Lifetime_Muu_rikos_4 = 0;
D_Lifetime_Muu_rikos_5_tuomio = 0;
D_Lifetime_Talous_tuomio = 0;
D_Lifetime_Talous_kaikki_tuomio = 0;
D_Lifetime_Henkiterv_tuomio = 0;
D_Lifetime_Liikenne_tuomio = 0;
D_Lifetime_Talous = 0;
D_Lifetime_Talous_kaikki = 0;
D_Lifetime_Henkiterv = 0;
D_Lifetime_Liikenne = 0;
D_Lifetime_Finan_fraud = 0;
D_Lifetime_Tax_fraud = 0;
D_Lifetime_other_fraud = 0;
D_Lifetime_Talous_kaikki_v = 0;
D_Lifetime_Talous_kaikki_s = 0;
D_Lifetime_Talous_kaikki_ehdol_v = 0;
D_Lifetime_Talous_kaikki_ehdot_v = 0;

D_Lifetime_muu_rikos_4_v = 0;
D_Lifetime_muu_rikos_4_s = 0;
D_Lifetime_muu_rikos_4_ehdol_v = 0;
D_Lifetime_muu_rikos_4_ehdot_v = 0;

if CUM_Muu4_tuomio > 0 then D_Lifetime_Muu_rikos_4_tuomio = 1;
if CUM_Muu4 > 0 then D_Lifetime_Muu_rikos_4 = 1;
if CUM_Muu5_tuomio > 0 then D_Lifetime_Muu_rikos_5_tuomio = 1;
if CUM_Talous_tuomio > 0 then D_Lifetime_Talous_tuomio = 1;
if CUM_Talous_kaikki_tuomio > 0 then D_Lifetime_Talous_kaikki_tuomio = 1;
if CUM_henkiterv_tuomio > 0 then D_Lifetime_Henkiterv_tuomio = 1;
if CUM_Liikenne_tuomio > 0 then D_Lifetime_Liikenne_tuomio = 1;
if CUM_Talous > 0 then D_Lifetime_Talous = 1;
if CUM_Talous_kaikki > 0 then D_Lifetime_Talous_kaikki = 1;
if CUM_henkiterveys > 0 then D_Lifetime_Henkiterv = 1;
if CUM_Liikenne > 0 then D_Lifetime_Liikenne = 1;
if CUM_Finan_rep_fraud > 0 then D_Lifetime_Finan_fraud = 1;
if CUM_Tax_relat_fraud > 0 then D_Lifetime_Tax_fraud = 1;
if CUM_Other_finan_crime > 0 then D_Lifetime_other_fraud = 1;

if CUM_Talous_kaikki_vankeus > 0 then D_Lifetime_Talous_kaikki_v = 1;
if CUM_Talous_kaikki_sakko > 0 then D_Lifetime_Talous_kaikki_s = 1;
if CUM_Talous_kaikki_ehdol_vankeus > 0 then D_Lifetime_Talous_kaikki_ehdol_v = 1;
if CUM_Talous_kaikki_ehdot_vankeus > 0 then D_Lifetime_Talous_kaikki_ehdot_v = 1;

if CUM_muu_rikos_4_vankeus > 0 then D_Lifetime_muu_rikos_4_v = 1;
if CUM_muu_rikos_4_sakko > 0 then D_Lifetime_muu_rikos_4_s = 1;
if CUM_muu_rikos_4_ehdol_vankeus > 0 then D_Lifetime_muu_rikos_4_ehdol_v = 1;
if CUM_muu_rikos_4_ehdot_vankeus > 0 then D_Lifetime_muu_rikos_4_ehdot_v = 1;

keep id D_Lifetime_Muu_rikos_4_tuomio D_Lifetime_Muu_rikos_4 D_Lifetime_Muu_rikos_5_tuomio
D_Lifetime_Talous_tuomio D_Lifetime_Talous_kaikki_tuomio D_Lifetime_Henkiterv_tuomio D_Lifetime_Liikenne_tuomio
D_Lifetime_Talous D_Lifetime_Talous_kaikki D_Lifetime_Henkiterv D_Lifetime_Liikenne D_Lifetime_Finan_fraud D_Lifetime_Tax_fraud D_Lifetime_other_fraud
D_Lifetime_Talous_kaikki_v D_Lifetime_Talous_kaikki_s D_Lifetime_Talous_kaikki_ehdol_v D_Lifetime_Talous_kaikki_ehdot_v D_Lifetime_muu_rikos_4_v D_Lifetime_muu_rikos_4_s
D_Lifetime_muu_rikos_4_ehdol_v D_Lifetime_muu_rikos_4_ehdot_v


CUM_Muu3 CUM_Muu4 CUM_Muu5 CUM_Talous CUM_Talous_kaikki CUM_Henkiterveys CUM_Liikenne
CUM_Finan_rep_fraud CUM_Tax_relat_fraud CUM_Other_finan_crime
CUM_Talous_kaikki_vankeus CUM_Talous_kaikki_sakko CUM_Talous_kaikki_ehdol_vankeus CUM_Talous_kaikki_ehdot_vankeus
CUM_muu_rikos_4_vankeus CUM_muu_rikos_4_sakko CUM_muu_rikos_4_ehdol_vankeus CUM_muu_rikos_4_ehdot_vankeus;

rename CUM_Muu3 = Lifetime_CUM_Muu3 CUM_Muu4 = Lifetime_CUM_Muu4 CUM_Muu5 = Lifetime_CUM_Muu5 CUM_Talous = Lifetime_CUM_Talous CUM_Talous_kaikki = Lifetime_CUM_Talous_kaikki
CUM_Henkiterveys = Lifetime_CUM_Henkiterv CUM_Liikenne = Lifetime_CUM_Liikenne
CUM_Finan_rep_fraud = Lifetime_CUM_Finan_rep_fraud CUM_Tax_relat_fraud = Lifetime_CUM_Tax_relat_fraud CUM_Other_finan_crime = Lifetime_CUM_Other_finan_crime
CUM_Talous_kaikki_vankeus = Lifetime_CUM_Talous_kaikki_v CUM_Talous_kaikki_sakko = Lifetime_CUM_Talous_kaikki_s CUM_Talous_kaikki_ehdol_vankeus = Ltime_CUM_Talous_kaikki_ehdol_v
CUM_Talous_kaikki_ehdot_vankeus = Ltime_CUM_Talous_kaikki_ehdot_v CUM_muu_rikos_4_vankeus = Lifetime_CUM_muu_rikos_4_v CUM_muu_rikos_4_sakko = Lifetime_CUM_muu_rikos_4_s
CUM_muu_rikos_4_ehdol_vankeus = Ltime_CUM_muu_rikos_4_ehdol_v CUM_muu_rikos_4_ehdot_vankeus = Ltime_CUM_muu_rikos_4_ehdot_v;

run;

proc sort nodupkey data = tuomiot_vanhemmat_3;
by id;
run;

data tuomiot_vanhemmat_4;
merge tuomiot_vanhemmat_2 tuomiot_vanhemmat_3;
by id;

	D_Muu_rikos_4_tuomio = 0;
	D_Muu_rikos_5_tuomio = 0;
	D_Talous_tuomio = 0;
	D_Talous_kaikki_tuomio = 0;
	D_Henkiterv_tuomio = 0;
	D_Liikenne_tuomio = 0;

	D_Talous_kaikki_vankeus = 0; 
	D_muu_rikos_4_vankeus = 0;

	if lag(CUM_Muu3_tuomio) > 0 and id = lag(id) then D_Muu_rikos_3_tuomio = 1;
	if lag(CUM_Muu4_tuomio) > 0 and id = lag(id) then D_Muu_rikos_4_tuomio = 1;
	if lag(CUM_Muu5_tuomio) > 0 and id = lag(id) then D_Muu_rikos_5_tuomio = 1;
	if lag(CUM_Talous_tuomio) > 0 and id = lag(id) then D_Talous_tuomio = 1;
	if lag(CUM_Talous_kaikki_tuomio) > 0 and id = lag(id) then D_Talous_kaikki_tuomio = 1;
	if lag(CUM_Henkiterv_tuomio) > 0 and id = lag(id) then D_Henkiterv_tuomio = 1;
	if lag(CUM_Liikenne_tuomio) > 0 and id = lag(id) then D_Liikenne_tuomio = 1;
	
	if lag(CUM_Talous_kaikki_vankeus) > 0 and id = lag(id) then D_Talous_kaikki_vankeus = 1;
	if lag(CUM_muu_rikos_4_vankeus) > 0 and id = lag(id) then D_muu_rikos_4_vankeus = 1;

	D_Muu_rikos_3_tuomio_2 = 0;
	D_Muu_rikos_4_tuomio_2 = 0;
	D_Muu_rikos_5_tuomio_2 = 0;
	D_Talous_tuomio_2 = 0;
	D_Talous_kaikki_tuomio_2 = 0;
	D_Liikenne_tuomio_2 = 0;

	if CUM_Muu3_tuomio > 0 then D_Muu_rikos_3_tuomio_2 = 1;
	if CUM_Muu4_tuomio > 0 then D_Muu_rikos_4_tuomio_2 = 1;
	if CUM_Muu5_tuomio > 0 then D_Muu_rikos_5_tuomio_2 = 1;
	if CUM_Talous_tuomio > 0 then D_Talous_tuomio_2 = 1;
	if CUM_Talous_kaikki_tuomio > 0 then D_Talous_kaikki_tuomio_2 = 1;
	if CUM_Liikenne_tuomio > 0 then D_Liikenne_tuomio_2 = 1;

	D_Muu_rikos_3_2 = 0;
	D_Muu_rikos_4_2 = 0;
	D_Muu_rikos_5_2 = 0;
	D_Talous_2 = 0;
	D_Talous_kaikki_2 = 0;

	D_Talous_kaikki_vankeus_2 = 0;
	D_Talous_kaikki_vankeus_tuomio_2 = 0;
	D_Talous_kaikki_ehdol_vankeus_2 = 0;
	D_Talous_kaikki_ehdot_vankeus_2 = 0;

	D_muu_rikos_4_vankeus_2 = 0;
	D_muu_rikos_4_vankeus_tuomio_2 = 0;
	D_muu_rikos_4_ehdol_vankeus_2 = 0;
	D_muu_rikos_4_ehdot_vankeus_2 = 0;

	if CUM_Talous_kaikki_vankeus > 0 then D_Talous_kaikki_vankeus_2 = 1;
	if CUM_Talous_kaikki_vankeus_tuomio > 0 then D_Talous_kaikki_vankeus_tuomio_2 = 1;
	if CUM_Talous_kaikki_ehdol_vankeus > 0 then D_Talous_kaikki_ehdol_vankeus_2 = 1;
	if CUM_Talous_kaikki_ehdot_vankeus > 0 then D_Talous_kaikki_ehdot_vankeus_2 = 1;

	if CUM_muu_rikos_4_vankeus > 0 then D_muu_rikos_4_vankeus_2 = 1;
	if CUM_muu_rikos_4_vankeus_tuomio > 0 then D_muu_rikos_4_vankeus_tuomio_2 = 1;
	if CUM_muu_rikos_4_ehdol_vankeus > 0 then D_muu_rikos_4_ehdol_vankeus_2 = 1;
	if CUM_muu_rikos_4_ehdot_vankeus > 0 then D_muu_rikos_4_ehdot_vankeus_2 = 1;

	if CUM_Muu3 > 0 then D_Muu_rikos_3_2 = 1;
	if CUM_Muu4 > 0 then D_Muu_rikos_4_2 = 1;
	if CUM_Muu5 > 0 then D_Muu_rikos_5_2 = 1;
	if CUM_Talous > 0 then D_Talous_2 = 1;
	if CUM_Talous_kaikki > 0 then D_Talous_kaikki_2 = 1;



run;

proc sort nodupkey data = tuomiot_vanhemmat_4;
by id year;
run;

* Saves data;

data lib100.Kaik_Vanh_tuomiot_tvuosi_250925;
set tuomiot_vanhemmat_4;

keep id year Viim_rikos_tvuosi Viim_muu_rikos_tvuosi Viim_talousrikos_tvuosi Ens_muu_rikos_tvuosi Ens_talousrikos_tvuosi D_Lifetime_Muu_rikos_4_tuomio D_Lifetime_Muu_rikos_4 D_Lifetime_Muu_rikos_5_tuomio
D_Lifetime_Talous_tuomio D_Lifetime_Talous_kaikki_tuomio D_Lifetime_Henkiterv_tuomio D_Lifetime_Liikenne_tuomio D_Lifetime_Talous D_Lifetime_Talous_kaikki D_Lifetime_Henkiterv D_Lifetime_Liikenne
D_Lifetime_Finan_fraud D_Lifetime_Tax_fraud D_Lifetime_other_fraud D_Lifetime_Talous_kaikki_v D_Lifetime_Talous_kaikki_s D_Lifetime_Talous_kaikki_ehdol_v D_Lifetime_Talous_kaikki_ehdot_v D_Lifetime_muu_rikos_4_v
D_Lifetime_muu_rikos_4_s D_Muu_rikos_3_tuomio D_Muu_rikos_4_tuomio D_Muu_rikos_5_tuomio D_Talous_tuomio D_Talous_kaikki_tuomio D_Henkiterv_tuomio D_Liikenne_tuomio
D_Muu_rikos_3_tuomio_2 D_Muu_rikos_4_tuomio_2 D_Muu_rikos_5_tuomio_2 D_Talous_tuomio_2 D_Talous_kaikki_tuomio_2 D_Liikenne_tuomio_2
D_Talous_kaikki_vankeus D_muu_rikos_4_vankeus D_Talous_kaikki_vankeus_tuomio_2 D_muu_rikos_4_vankeus_tuomio_2
CUM_Muu3_tuomio CUM_Muu4_tuomio CUM_Muu5_tuomio CUM_Talous_tuomio CUM_Talous_kaikki_tuomio CUM_Liikenne_tuomio
D_Muu_rikos_3_2 D_Muu_rikos_4_2 D_Muu_rikos_5_2 D_Talous_2 D_Talous_kaikki_2
D_Talous_kaikki_vankeus_2 D_Talous_kaikki_ehdol_vankeus_2 D_Talous_kaikki_ehdot_vankeus_2 D_muu_rikos_4_vankeus_2 D_muu_rikos_4_ehdol_vankeus_2 D_muu_rikos_4_ehdot_vankeus_2
CUM_Muu3 CUM_Muu4 CUM_Muu5 CUM_Talous CUM_Liikenne CUM_Henkiterveys CUM_Talous_kaikki CUM_Finan_rep_fraud CUM_Tax_relat_fraud CUM_Other_finan_crime
CUM_Talous_kaikki_vankeus CUM_Talous_kaikki_sakko CUM_Talous_kaikki_ehdol_vankeus CUM_Talous_kaikki_ehdot_vankeus CUM_muu_rikos_4_vankeus CUM_muu_rikos_4_sakko CUM_muu_rikos_4_ehdol_vankeus CUM_muu_rikos_4_ehdot_vankeus
Lifetime_CUM_Muu3 Lifetime_CUM_Muu4 Lifetime_CUM_Muu5 Lifetime_CUM_Talous Lifetime_CUM_Talous_kaikki
Lifetime_CUM_Henkiterv Lifetime_CUM_Liikenne Lifetime_CUM_Finan_rep_fraud Lifetime_CUM_Tax_relat_fraud Lifetime_CUM_Other_finan_crime
Lifetime_CUM_Talous_kaikki_v Lifetime_CUM_Talous_kaikki_s Ltime_CUM_Talous_kaikki_ehdol_v Ltime_CUM_Talous_kaikki_ehdot_v Lifetime_CUM_muu_rikos_4_v Lifetime_CUM_muu_rikos_4_s;

run;



























