/* Variables created CVC_HH_NET_WORTH_35 (total net worth) CVC_HOUSE_VALUE_35 (value of owned housing) CVC_HOUSE_DEBT_35 (amount of housing debt) CVC_HOUSE_TYPE_35 (type of housing owned) CVC_ASSETS_FINANCE_35 (value of financial assets) CVC_ASSETS_NONFINANCE_35 (value of non-financial assets, excluding housing) CVC_ASSETS_DEBT_35 (amount of debt, excluding housing) CVC_ASSETS_RND_35 (round in which assets data were collected) */ /* Variables used YAST35_4010 YAST35-4010 YAST35_4140 YAST35-4140 YAST35_4160 YAST35-4160 YAST35_4162 YAST35-4162 YAST35_4166 YAST35-4166 YAST35_4270 YAST35-4270 YAST35_4290 YAST35-4290 YAST35_4292 YAST35-4292 YAST35_4296 YAST35-4296 YAST35_4300 YAST35-4300 YAST35_4400 YAST35-4400 YAST35_4420 YAST35-4420 YAST35_4422 YAST35-4422 YAST35_4426 YAST35-4426 YAST35_4530 YAST35-4530 YAST35_4550 YAST35-4550 YAST35_4552 YAST35-4552 YAST35_4556 YAST35-4556 YAST35_4660 YAST35-4660 YAST35_4680 YAST35-4680 YAST35_4682 YAST35-4682 YAST35_4686 YAST35-4686 YAST35_4790 YAST35-4790 YAST35_4810 YAST35-4810 YAST35_4812 YAST35-4812 YAST35_4816 YAST35-4816 YAST35_4840 YAST35-4840 YAST35_4842 YAST35-4842 YAST35_4846 YAST35-4846 YAST35_4870 YAST35-4870 YAST35_4880 YAST35-4880 YAST35_4900 YAST35-4900 YAST35_4902 YAST35-4902 YAST35_4906 YAST35-4906 YAST35_5011 YAST35-5011 YAST35_5012 YAST35-5012 YAST35_5014 YAST35-5014 YAST35_5015 YAST35-5015 YAST35_5016 YAST35-5016 YAST35_5018 YAST35-5018 YAST35_5130 YAST35-5130 YAST35_5170 YAST35-5170 YAST35_5172 YAST35-5172 YAST35_5176 YAST35-5176 YAST35_4000S1 YAST35-4000S1 YAST35_4000S4 YAST35-4000S4 YAST35_4000S5 YAST35-4000S5 YAST35_4000S6 YAST35-4000S6 YAST35_4000S8 YAST35-4000S8 YAST35_4000S9 YAST35-4000S9 YAST35_4000S10 YAST35-4000S10 YAST35_4000S10A YAST35-4000S10A YAST35_4000S9A YAST35-4000S9A YAST35_4000S9C YAST35-4000S9C YAST35_4030A_01 YAST35-4030A.01 YAST35_4030A_02 YAST35-4030A.02 YAST35_4030A_03 YAST35-4030A.03 YAST35_4030A_04 YAST35-4030A.04 YAST35_4032A_01 YAST35-4032A.01 YAST35_4032A_02 YAST35-4032A.02 YAST35_4032A_03 YAST35-4032A.03 YAST35_4032_01 YAST35-4032.01 YAST35_4032_03 YAST35-4032.03 YAST35_4032_04 YAST35-4032.04 YAST35_4033A_000001_01 YAST35-4033A_000001.01 YAST35_4033A_000001_02 YAST35-4033A_000001.02 YAST35_4033A_000002_01 YAST35-4033A_000002.01 YAST35_4033A_000002_02 YAST35-4033A_000002.02 YAST35_4034A_000001_01 YAST35-4034A_000001.01 YAST35_4034A_000002_01 YAST35-4034A_000002.01 YAST35_4036_01 YAST35-4036.01 YAST35_4036_02 YAST35-4036.02 YAST35_4162N YAST35-4162N YAST35_4294_000001 YAST35-4294_000001 YAST35_4294_000002 YAST35-4294_000002 YAST35_4300A YAST35-4300A YAST35_4300A1 YAST35-4300A1 YAST35_4300A2 YAST35-4300A2 YAST35_4424_000001 YAST35-4424_000001 YAST35_4424_000002 YAST35-4424_000002 YAST35_4684_000001 YAST35-4684_000001 YAST35_4684_000002 YAST35-4684_000002 YAST35_4814_000001 YAST35-4814_000001 YAST35_4814_000002 YAST35-4814_000002 YAST35_4844_000001 YAST35-4844_000001 YAST35_4844_000002 YAST35-4844_000002 YAST35_4904_000001 YAST35-4904_000001 YAST35_4904_000002 YAST35-4904_000002 YAST35_5011A YAST35-5011A YAST35_5015A YAST35-5015A YAST35_5017_000001 YAST35-5017_000001 YAST35_5017_000002 YAST35-5017_000002 YAST35_5040_NEW YAST35-5040_NEW YAST35_5074_NEW YAST35-5074_NEW YAST35_5082_NEW YAST35-5082_NEW YAST35_5084_000001_NEW YAST35-5084_000001_NEW YAST35_5084_000002_NEW YAST35-5084_000002_NEW YAST35_5086_NEW YAST35-5086_NEW YAST35_5210A YAST35-5210A YAST35_5210A1 YAST35-5210A1 YAST35_5210A2 YAST35-5210A2 YAST35_5210A4 YAST35-5210A4 YAST35_5210A3_000001 YAST35-5210A3_000001 YAST35_5210A3_000002 YAST35-5210A3_000002 YAST35_5210AA YAST35-5210AA YAST35_5210B1 YAST35-5210B1 YAST35_5210C1 YAST35-5210C1 YAST35_5210C2 YAST35-5210C2 YAST35_5210C4 YAST35-5210C4 YAST35_5210C3_000001 YAST35-5210C3_000001 YAST35_5210C3_000002 YAST35-5210C3_000002 YAST35_5210D1 YAST35-5210D1 YAST35_5210D2 YAST35-5210D2 YAST35_5210D3 YAST35-5210D3 YAST35_5210D4 YAST35-5210D4 YAST35_5210D1A YAST35-5210D1A YAST35_5210D3_000001 YAST35-5210D3_000001 YAST35_5210D3_000002 YAST35-5210D3_000002 YAST35_AGE35ELIG1 YAST35-AGE35ELIG1 YAST35_AGE35ELIG2 YAST35-AGE35ELIG2 YAST35_CH9 YAST35-CH9 YAST35_CH10 YAST35-CH10 YAST35_CH10A YAST35-CH10A YAST35_FA_8 YAST35-FA_8 YAST35_FA_8A_000001 YAST35-FA_8A_000001 YAST35_FA_8A_000002 YAST35-FA_8A_000002 YAST35_FA_8A_000003 YAST35-FA_8A_000003 YAST35_FA_8A_000004 YAST35-FA_8A_000004 YAST35_FA_8A_000005 YAST35-FA_8A_000005 YAST35_FA_8A_000006 YAST35-FA_8A_000006 YAST35_FA_8A_000007 YAST35-FA_8A_000007 YAST35_FA_8B_01 YAST35-FA_8B.01 YAST35_FA_8B_02 YAST35-FA_8B.02 YAST35_FA_8B_03 YAST35-FA_8B.03 YAST35_FA_8B_04 YAST35-FA_8B.04 YAST35_FA_8B_05 YAST35-FA_8B.05 YAST35_FA_8B_06 YAST35-FA_8B.06 YAST35_FA_8B_07 YAST35-FA_8B.07 YAST35_FA_8C1_01 YAST35-FA_8C1.01 YAST35_FA_8C1_02 YAST35-FA_8C1.02 YAST35_FA_8C1_03 YAST35-FA_8C1.03 YAST35_FA_8C1_04 YAST35-FA_8C1.04 YAST35_FA_8C1_05 YAST35-FA_8C1.05 YAST35_FA_8C1_06 YAST35-FA_8C1.06 YAST35_FA_8C1_07 YAST35-FA_8C1.07 YAST35_FA_8C2_01 YAST35-FA_8C2.01 YAST35_FA_8C2_02 YAST35-FA_8C2.02 YAST35_FA_8C2_03 YAST35-FA_8C2.03 YAST35_FA_8C2_04 YAST35-FA_8C2.04 YAST35_FA_8C2_05 YAST35-FA_8C2.05 YAST35_FA_8C2_06 YAST35-FA_8C2.06 YAST35_FA_8D_01 YAST35-FA_8D.01 YAST35_FA_8D_02 YAST35-FA_8D.02 YAST35_FA_8D_03 YAST35-FA_8D.03 YAST35_FA_8D_05 YAST35-FA_8D.05 YAST35_FA_8D_06 YAST35-FA_8D.06 YAST35_FA_8D_07 YAST35-FA_8D.07 YHHI_4400A YHHI-4400A YHHI_4400X YHHI-4400X YHOU_CH1 YHOU-CH1 YHOU_CH6 YHOU-CH6 YHOU_CH7 YHOU-CH7 YHOU_CH8 YHOU-CH8 YHOU_CH7A YHOU-CH7A YHOU_CH7B_000001 YHOU-CH7B_000001 YHOU_CH7B_000002 YHOU-CH7B_000002 YHOU_CH7C YHOU-CH7C YHOU_CH8A YHOU-CH8A YHOU_CH8B_000001 YHOU-CH8B_000001 YHOU_CH8B_000002 YHOU-CH8B_000002 YHOU_CH8C YHOU-CH8C YHOU_CH8_1 YHOU-CH8_1 YHOU_CHHVA YHOU-CHHVA YHOU_CHHVB_000001 YHOU-CHHVB_000001 YHOU_CHHVB_000002 YHOU-CHHVB_000002 YHOU_CHHVC YHOU-CHHVC YHOU_DLIMORTGAGE YHOU-DLIMORTGAGE YHOU_DLIOWN2 YHOU-DLIOWN2 YHOU_HOUSEVALUE YHOU-HOUSEVALUE YSCH-22799A_000001_01 YSCH-22799A_000001.01 YSCH-22799A_000001_02 YSCH-22799A_000001.02 YSCH-22799A_000001_05 YSCH-22799A_000001.05 YSCH-22799A_000002_01 YSCH-22799A_000002.01 YSCH-22799A_000002_02 YSCH-22799A_000002.02 YSCH-22799A_000002_05 YSCH-22799A_000002.05 YSCH-22799B_01 YSCH-22799B.01 YSCH-22799B_02 YSCH-22799B.02 YSCH-22799B_03 YSCH-22799B.03 YSCH-22799B_04 YSCH-22799B.04 YSCH-22799B_05 YSCH-22799B.05 CVC_ASSETS_DEBTS_30 CVC_ASSETS_DEBTS_30 CVC_ASSETS_DEBTS_35 CVC_ASSETS_DEBTS_35 CVC_ASSETS_FINANCIAL_30 CVC_ASSETS_FINANCIAL_30 CVC_ASSETS_FINANCIAL_35 CVC_ASSETS_FINANCIAL_35 CVC_ASSETS_NONFINANCIAL_30 CVC_ASSETS_NONFINANCIAL_30 CVC_ASSETS_NONFINANCIAL_35 CVC_ASSETS_NONFINANCIAL_35 CVC_ASSETS_RND_30 CVC_ASSETS_RND_30 CVC_ASSETS_RND_35 CVC_ASSETS_RND_35 CVC_HH_NET_WORTH_30 CVC_HH_NET_WORTH_30 CVC_HH_NET_WORTH_35 CVC_HH_NET_WORTH_35 CVC_HOUSE_DEBT_30 CVC_HOUSE_DEBT_30 CVC_HOUSE_DEBT_35 CVC_HOUSE_DEBT_35 CVC_HOUSE_TYPE_30 CVC_HOUSE_TYPE_30 CVC_HOUSE_TYPE_35 CVC_HOUSE_TYPE_35 CVC_HOUSE_VALUE_30 CVC_HOUSE_VALUE_30 CVC_HOUSE_VALUE_35 CVC_HOUSE_VALUE_35 */ /*******************************start of the assest section (hhworthy)******************************************/ /* first create the components of hhworth35: real estate, loans, cars, etc. each sub-section computes one item */ /* of the total asset of the respondent and his/her spouse or partner. flag variables are created to indicate whether */ /* r/family received that asset item (flag_item in (1,2,-3) and if so, was the amount computed directly from the amount */ /* reported by respondent (flag_item=1) or was it computed from estimates given by respondent (flag_item=2), or was */ /* it unable to be computed (flag_item=-3). */ /***************************************************************************************************************************/ /* initialize the variable to housing_type= don't own, house_value = 0 */ housing_type=6 ; house_value=0 ; /****************** assets section 1: residence *************************************************/ /*if r alone or r and r's partner/spouse jointly own a residence*/ hhi4400 = -4; if (yhhi_4400a > -4) then hhi4400 = yhhi_4400a; else if (yhhi_4400x > -4) then hhi4400 = yhhi_4400x; if yhou_dlimortgage=1 or yhou_dliown2=1 or yhou_ch1 in (1 2 3 4 5) then do; flag_house=1; flagck_house=1; if hhi4400=1 then housing_type=1; else if hhi4400=12 then housing_type=2; else if hhi4400=8 then housing_type=3; else do; housing_type=9; *own but house type unknown; flag_h_type=1; end; if yhou_housevalue=1 & yhou_chhva>=0 then house_value=yhou_chhva; else if yhou_housevalue=2 & yhou_chhvb_000001>=0 & yhou_chhvb_000002>=0 then do; if yhou_chhvb_000002>=yhou_chhvb_000001 then house_value = (yhou_chhvb_000002 + yhou_chhvb_000001)/2; else house_value=-3; end; if yhou_housevalue not in (1,2) or yhou_chhva in (-1, -2) then do; if 1<=yhou_chhvc<=7 then flag_house=2; if yhou_chhvc=1 then house_value=12500; else if yhou_chhvc=2 then house_value=37500; else if yhou_chhvc=3 then house_value=75000; else if yhou_chhvc=4 then house_value=175000; else if yhou_chhvc=5 then house_value=375000; else if yhou_chhvc=6 then house_value=750000; else if yhou_chhvc=7 then house_value=1000001; end; end; if yhou_ch1 in (-1 -2 -3) or yhou_chhvb_000002 in (-1 -2 -3) or yhou_chhvb_000001 in (-1 -2 -3) or yhou_chhvc in (-1 -2 -3) then house_value=-3; if yhou_ch1 in (-1 -2 -3) then housing_type=-3; *not knowing own or not own; if (yast35_age35elig1 = 1 & yhou_ch1 in(9, 10)) then house_value=0; if yast35_age35elig2 ne 1 then do; housing_type=-4; house_value=-4; end; /*****************************assets section 2: owning business-pvbuss*********************************************/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_4030a_05 = -4; yast35_4032_03 = -4; yast35_4032_05 = -4; yast35_4032a_04 = -4; yast35_4032a_05 = -4; yast35_4033a_000001_03 = -4; yast35_4033a_000001_04 = -4; yast35_4033a_000001_05 = -4; yast35_4033a_000002_03 = -4; yast35_4033a_000002_04 = -4; yast35_4033a_000002_05 = -4; yast35_4034a_000001_02 = -4; yast35_4034a_000001_03 = -4; yast35_4034a_000001_04 = -4; yast35_4034a_000001_05 = -4; yast35_4034a_000002_02 = -4; yast35_4034a_000002_03 = -4; yast35_4034a_000002_04 = -4; yast35_4034a_000002_05 = -4; yast35_4036_03 = -4; yast35_4036_04 = -4; yast35_4036_05 = -4; yast35_4036a_01 = -4; yast35_4036a_02 = -4; yast35_4036a_03 = -4; yast35_4036a_04 = -4; yast35_4036a_05 = -4; /**** create array for business variables because some own two businesses ****/ array pvbuss (*) pvbuss_01 - pvbuss_04; /* pv of business */ array yast35_4030a (*) yast35_4030a_01 - yast35_4030a_05; /* make, lose or even */ array yast35_4032 (*) yast35_4032_01 - yast35_4032_05; /* amount make */ array yast35_4032a (*) yast35_4032a_01 - yast35_4032a_05; /* amount lose */ array yast35_4033a_000001(*) yast35_4033a_000001_01 - yast35_4033a_000001_05; /* amount make lower bound */ array yast35_4033a_000002(*) yast35_4033a_000002_01 - yast35_4033a_000002_05; /* amount make upper bound */ array yast35_4034a_000001(*) yast35_4034a_000001_01 - yast35_4034a_000001_05; /* amount lose lower bound */ array yast35_4034a_000002(*) yast35_4034a_000002_01 - yast35_4034a_000002_05; /* amount lose upper bound */ array yast35_4036 (*) yast35_4036_01 - yast35_4036_05; /* amount make, estimate */ array yast35_4036a (*) yast35_4036a_01 - yast35_4036a_05; /* amount lose, estimate */ do i=1 to dim(pvbuss); pvbuss(i)= -4; if yast35_4010=1 then do; flag_pvbuss =1; if yast35_4030a(i)=1 then do; if yast35_4032a(i)>=0 then pvbuss(i)=yast35_4032a(i); else if yast35_4032a(i) in (-1, -2) then do; if yast35_4034a_000002(i)>=yast35_4034a_000001(i) and yast35_4034a_000002(i)>=0 and yast35_4034a_000001(i)>=0 then pvbuss(i)=(yast35_4034a_000001(i) + yast35_4034a_000002(i))/2; else pvbuss(i)=-3; end; if yast35_4034a_000002(i) in (-1, -2) then do; if 1 <= yast35_4036a(i)<=7 then flag_pvbuss=2; if yast35_4036a(i)=1 then pvbuss(i)=12500; else if yast35_4036a(i)=2 then pvbuss(i)=37500; else if yast35_4036a(i)=3 then pvbuss(i)=75000; else if yast35_4036a(i)=4 then pvbuss(i)=175000; else if yast35_4036a(i)=5 then pvbuss(i)=375000; else if yast35_4036a(i)=6 then pvbuss(i)=750000; else if yast35_4036a(i)=7 then pvbuss(i)=1000001; end; if pvbuss(i)>0 then pvbuss(i)=-1*pvbuss(i); end; else if yast35_4030a(i)=2 then do; if yast35_4032(i)>=0 then pvbuss(i)=yast35_4032(i); else if yast35_4032(i) in (-1, -2) then do; if yast35_4033a_000002(i)>=yast35_4033a_000001(i) and yast35_4033a_000002(i)>=0 and yast35_4033a_000001(i)>=0 then pvbuss(i)=(yast35_4033a_000001(i) + yast35_4033a_000002(i))/2; else pvbuss(i)=-3; end; if yast35_4033a_000002(i) in (-1, -2) then do; if 1<=yast35_4036(i)<=7 then flag_pvbuss=2; if yast35_4036(i)=1 then pvbuss(i)=12500; else if yast35_4036(i)=2 then pvbuss(i)=37500; else if yast35_4036(i)=3 then pvbuss(i)=75000; else if yast35_4036(i)=4 then pvbuss(i)=175000; else if yast35_4036(i)=5 then pvbuss(i)=375000; else if yast35_4036(i)=6 then pvbuss(i)=750000; else if yast35_4036(i)=7 then pvbuss(i)=1000001; end; end; else if yast35_4030a(i)=3 then pvbuss(i)=0; end; if yast35_4010=-1 or yast35_4030a(i)=-1 or yast35_4036a(i)=-1 or yast35_4036(i)= -1 then pvbuss(i)=-1; if yast35_4010=-2 or yast35_4030a(i)=-2 or yast35_4036a(i)=-2 or yast35_4036(i)= -2 then pvbuss(i)=-2; if yast35_4010=-3 or yast35_4030a(i)=-3 or yast35_4036a(i)=-3 or yast35_4036(i)= -3 then pvbuss(i)=-3; end; /**************************assets section 3: ownership of other real-estate : othreal**********************************/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_4164_000001 = -4; yast35_4164_000002 = -4; yast35_4164n_000001 = -4; yast35_4164n_000002 = -4; othreal=-4; if yast35_4140=1 then do; flag_othreal=1; if yast35_4160=1 & yast35_4162>=0 then othreal=yast35_4162; else if yast35_4160=2 & yast35_4164_000002>=0 & yast35_4164_000001>=0 then do; if yast35_4164_000002>=yast35_4164_000001 then othreal=(yast35_4164_000001+yast35_4164_000002)/2; else othreal=-3; end; else if yast35_4160=3 & yast35_4162n>=0 then othreal=-(yast35_4162n); else if yast35_4160=4 & yast35_4164n_000002>=0 & yast35_4164n_000001>=0 then do; if yast35_4164n_000002>=yast35_4164n_000001 then othreal=-(yast35_4164n_000001+yast35_4164n_000002)/2; else othreal=-3; end; if yast35_4160 not in (1,2,3,4) or yast35_4162 in (-1, -2) then do; *changed in june 2013. the error should not affect the results from r14: for those with 4160 in (3,4), 4166 would be -4, so the value cal from 4162 or 4164 should not be overwritten; if 1<=yast35_4166<=7 then flag_othreal=2; if yast35_4166=1 then othreal=12500; else if yast35_4166=2 then othreal=37500; else if yast35_4166=3 then othreal=75000; else if yast35_4166=4 then othreal=175000; else if yast35_4166=5 then othreal=375000; else if yast35_4166=6 then othreal=750000; else if yast35_4166=7 then othreal=1000001; end; end; if yast35_4140 in (-1 -2 -3) or yast35_4164_000001 in (-1 -2 -3) or yast35_4164_000002 in (-1 -2 -3) or yast35_4164n_000001 in (-1 -2 -3) or yast35_4164n_000002 in (-1 -2 -3) or yast35_4166 in (-1 -2 -3) then othreal =-3; /*****************assets section 4: retirement plans or pensions--retdsav***********************************************/ retdsav=-4; if yast35_4270=1 or yast35_4000s6=1 then do; flag_retdsav=1; if yast35_4290=1 & yast35_4292>=0 then retdsav=yast35_4292; else if yast35_4290=2 and yast35_4294_000002>=0 and yast35_4294_000001>=0 then do; if yast35_4294_000002>=yast35_4294_000001 then retdsav = (yast35_4294_000001 + yast35_4294_000002)/2; else retdsav =-3; end; if yast35_4290 not in (1,2) or yast35_4292 in (-1, -2) then do; if 1<=yast35_4296<=8 then flag_retdsav=2; if yast35_4296=1 then retdsav=2500; else if yast35_4296=2 then retdsav= 7500; else if yast35_4296=3 then retdsav=17500; else if yast35_4296=4 then retdsav=37500; else if yast35_4296=5 then retdsav=75000; else if yast35_4296=6 then retdsav=175000; else if yast35_4296=7 then retdsav=375000; else if yast35_4296=8 then retdsav=500001; end; end; if yast35_4270 in (-1 -2 -3) or yast35_4294_000001 in (-1 -2 -3) or yast35_4294_000002 in (-1 -2 -3) or yast35_4296 in (-1 -2 -3) then retdsav=-3; /*****************assets section 5: tax advanged accounts, ira etc.--ira*************************************/ if (yast35_fa_8 = -3) then yast35_fa_8 = 0; /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_fa_8b_04 = -4; yast35_fa_8c1_01 = -4; yast35_fa_8c1_03 = -4; yast35_fa_8c1_04 = -4; yast35_fa_8c1_05 = -4; yast35_fa_8c1_07 = -4; yast35_fa_8c2_01 = -4; yast35_fa_8c2_03 = -4; yast35_fa_8c2_04 = -4; yast35_fa_8c2_05 = -4; yast35_fa_8c2_07 = -4; yast35_fa_8c4_01 = -4; yast35_fa_8c4_02 = -4; yast35_fa_8c4_03 = -4; yast35_fa_8c4_04 = -4; yast35_fa_8c4_05 = -4; yast35_fa_8c4_06 = -4; yast35_fa_8c4_07 = -4; yast35_fa_8d_04 = -4; array ira (*) ira_01 - ira_07; /* pv of tax ad. accts */ array ira_w (*) ira_w_01 - ira_w_07; /* withdrawl intended to pay back */ array ira_t (*) ira_t_01 - ira_t_07; /* total after intended payback withdrawl */ array yast35_fa_8a (*) yast35_fa_8a_000001 - yast35_fa_8a_000007; /* type of the accts */ array yast35_fa_8b (*) yast35_fa_8b_01 - yast35_fa_8b_07; /* withdraw or not */ array yast35_fa_8c1 (*) yast35_fa_8c1_01 - yast35_fa_8c1_07; /*amt int to payback*/ array yast35_fa_8c2 (*) yast35_fa_8c2_01 - yast35_fa_8c2_07; /* enter amt int to payback*/ array yast35_fa_8c4 (*) yast35_fa_8c4_01 - yast35_fa_8c4_07; /* estimate amt int to payback*/ array yast35_fa_8d (*) yast35_fa_8d_01 - yast35_fa_8d_07; /* ttl after pay back */ do i=1 to dim(ira); ira_w(i)=-4; ira_t(i)=-4; ira(i)= -4; if yast35_fa_8=1 then do; flag_ira =1; if yast35_fa_8a(i)=1 then do; if yast35_fa_8b(i)=1 then do; if yast35_fa_8c1(i)=1 & yast35_fa_8c2(i)>=0 then ira_w(i)=yast35_fa_8c2(i); else if yast35_fa_8c2(i) in(-1, -2) & yast35_fa_8c4(i) > 0 then do; if 1<=yast35_fa_8c4(i)<=7 then flag_ira=2; if yast35_fa_8c4(i)=1 then ira_w(i)=2500; else if yast35_fa_8c4(i)=2 then ira_w(i)=7500; else if yast35_fa_8c4(i)=3 then ira_w(i)=17500; else if yast35_fa_8c4(i)=4 then ira_w(i)=37500; else if yast35_fa_8c4(i)=5 then ira_w(i)=75000; else if yast35_fa_8c4(i)=6 then ira_w(i)=175000; else if yast35_fa_8c4(i)=7 then ira_w(i)=250001; end; end; else if yast35_fa_8b(i)=0 then ira_w(i)=0; else ira_w(i)=-3; *ira_t; if yast35_fa_8d(i)>=0 then ira_t(i)=yast35_fa_8d(i); else ira_t(i)=-3; *ira; if ira_w(i)>=0 & ira_t(i)>=0 then ira(i)=ira_t(i)-ira_w(i); else if ira_w(i)=-3 or ira_t(i)=-3 then ira(i)=-3; end; else if yast35_fa_8a(i) in (-1 -2 -3) then ira(i)=-3; end; if yast35_fa_8 in (-1 -2 -3) then ira(i)=-3; end; /**********************assets section 6: bank savings--banksav*************************************************************/ banksav=-4; if yast35_4400=1 or yast35_4000s4=1 then do; flag_banksav=1; if yast35_4420=1 & yast35_4422>=0 then banksav=yast35_4422; else if yast35_4420=2 & yast35_4424_000002>=0 & yast35_4424_000001>=0 then do; if yast35_4424_000002>=yast35_4424_000001 then banksav = (yast35_4424_000002 + yast35_4424_000001)/2; else banksav=-3; end; if yast35_4420 not in (1,2) or yast35_4422 in (-1, -2) then do; if 1<=yast35_4426<=9 then flag_banksav=2; if yast35_4426=1 then banksav=500; else if yast35_4426=2 then banksav=1750; else if yast35_4426=3 then banksav=3750; else if yast35_4426=4 then banksav=7500; else if yast35_4426=5 then banksav=17500; else if yast35_4426=6 then banksav=37500; else if yast35_4426=7 then banksav=75000; else if yast35_4426=8 then banksav=175000; else if yast35_4426=9 then banksav=250001; end; end; if yast35_4400 in (-1 -2 -3) or yast35_4424_000001 in (-1 -2 -3) or yast35_4424_000002 in (-1 -2 -3) or yast35_4426 in (-1 -2 -3) or yast35_4422=-3 then banksav=-3; /************************************assets section 7: other bank savings-bonds****************************************/ bonds=-4; if yast35_4530=1 then do; flag_bonds=1; if yast35_4550=1 & yast35_4552>=0 then bonds=yast35_4552; else if yast35_4550=2 & yast35_4554_000002>=0 & yast35_4554_000001>=0 then do; if yast35_4554_000002>=yast35_4554_000001 then bonds = (yast35_4554_000002 + yast35_4554_000001)/2; else bonds=-3; end; if yast35_4550 not in (1,2) or yast35_4552 in (-1, -2) then do; if 1<=yast35_4556<=9 then flag_bonds=2; if yast35_4556=1 then bonds=500; else if yast35_4556=2 then bonds=1750; else if yast35_4556=3 then bonds=3750; else if yast35_4556=4 then bonds=7500; else if yast35_4556=5 then bonds=17500; else if yast35_4556=6 then bonds=37500; else if yast35_4556=7 then bonds=75000; else if yast35_4556=8 then bonds=175000; else if yast35_4556=9 then bonds=250001; end; end; if yast35_4530 in (-1 -2 -3) or yast35_4554_000001 in (-1 -2 -3) or yast35_4554_000002 in (-1 -2 -3) or yast35_4556 in (-1 -2 -3) or yast35_4552=-3 then bonds=-3; /********assets section 8: owning stocks--stocks****************************************************/ tocks=-4; if yast35_4660=1 then do; flag_stocks=1; if yast35_4680=1 & yast35_4682>=0 then stocks=yast35_4682; else if yast35_4680=2 & yast35_4684_000001>=0 & yast35_4684_000002>=0 then do; if yast35_4684_000002>=yast35_4684_000001 then stocks=(yast35_4684_000001+yast35_4684_000002)/2; else stocks=-3; end; if yast35_4680 not in (1,2) or yast35_4682 in (-1,-2) then do; if 1<=yast35_4686<=9 then flag_stocks=2; if yast35_4686=1 then stocks=500; else if yast35_4686=2 then stocks=1750; else if yast35_4686=3 then stocks=3750; else if yast35_4686=4 then stocks=7500; else if yast35_4686=5 then stocks=17500; else if yast35_4686=6 then stocks=37500; else if yast35_4686=7 then stocks=75000; else if yast35_4686=8 then stocks=175000; else if yast35_4686=9 then stocks=250001; end; end; if yast35_4660 in (-1 -2 -3) or yast35_4684_000001 in (-1 -2 -3) or yast35_4684_000002 in (-1 -2 -3) or yast35_4686 in (-1 -2 -3) or yast35_4682=-3 then stocks=-3; /************assets section 9: vehicle ownership-pvcars********************************/ pvcars1=-4; if yast35_4790=1 then do; flag_pvcars1=1; if yast35_4810=1 & yast35_4812>=0 then pvcars1=yast35_4812; else if yast35_4810=2 & yast35_4814_000001>=0 & yast35_4814_000002>=0 then do; if yast35_4814_000002>=yast35_4814_000001 then pvcars1=(yast35_4814_000001+yast35_4814_000002)/2; else pvcars1=-3; end; if yast35_4810 not in (1,2) or yast35_4812 in (-1,-2) then do; if 1<=yast35_4816<=7 then flag_pvcars1=2; if yast35_4816=1 then pvcars1=2500; else if yast35_4816=2 then pvcars1=7500; else if yast35_4816=3 then pvcars1=17500; else if yast35_4816=4 then pvcars1=37500; else if yast35_4816=5 then pvcars1=75000; else if yast35_4816=6 then pvcars1=175000; else if yast35_4816=7 then pvcars1=250001; end; end; if yast35_4790 in (-1 -2 -3) or yast35_4814_000001 in (-1 -2 -3) or yast35_4814_000002 in (-1 -2 -3) or yast35_4816 in (-1 -2 -3) or yast35_4812=-3 then pvcars1=-3; /************assets section 9.2: secondary source of info on vehicle ownership, pvcars2 ********************************/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_4000s9b_000001 = -4; yast35_4000s9b_000002 = -4; pvcars2=-4; if yast35_4000s8 =1 then do; flag_pvcars2=1; if yast35_4000s9 =1 and yast35_4000s9a>=0 then pvcars2= yast35_4000s9a; else if yast35_4000s9 = 2 and yast35_4000s9b_000001>=0 and yast35_4000s9b_000002>=0 then do; if yast35_4000s9b_000002>= yast35_4000s9b_000001 then pvcars2=(yast35_4000s9b_000002+yast35_4000s9b_000001)/2; else pvcars2=-3; end; if yast35_4000s9 not in (1,2) or yast35_4000s9a in (-1,-2) then do; if 1<= yast35_4000s9c <=8 then flag_pvcars2=2; if yast35_4000s9c=1 then pvcars2 = 500; else if yast35_4000s9c=2 then pvcars2= 1750; else if yast35_4000s9c=3 then pvcars2= 3750; else if yast35_4000s9c=4 then pvcars2= 7500; else if yast35_4000s9c=5 then pvcars2= 17500; else if yast35_4000s9c=6 then pvcars2= 37500; else if yast35_4000s9c=7 then pvcars2= 75000; else if yast35_4000s9c=8 then pvcars2= 100001; end; end; if yast35_4000s8 in (-1 -2 -3) or yast35_4000s9b_000001 in (-1 -2 -3) or yast35_4000s9b_000002 in (-1 -2 -3) or yast35_4000s9c in (-1 -2 -3) then pvcars2=-3; /*********************assets section 10: furniture value--pvfurn***************************************************/ pvfurn=-4; if yast35_4870>-4 then flag_pvfurn=1; if yast35_4870=1 then pvfurn=2500; else if yast35_4870=2 then pvfurn=7500; else if yast35_4870=3 then pvfurn=17500; else if yast35_4870=4 then pvfurn=37500; else if yast35_4870=5 then pvfurn=75000; else if yast35_4870=6 then pvfurn=175000; else if yast35_4870=7 then pvfurn=250001; else if yast35_4870=8 then pvfurn=0; else if yast35_4870=-1 then pvfurn=-1; else if yast35_4870=-2 then pvfurn=-2; else if yast35_4870=-3 then pvfurn=-3; /***********************assets section 11: other assets-othsav***************************************/ othsav=-4; if yast35_4880=1 then do; flag_othsav=1; if yast35_4900=1 & yast35_4902>=0 then othsav=yast35_4902; else if yast35_4900=2 & yast35_4904_000001>=0 & yast35_4904_000002>=0 then do; if yast35_4904_000002>=yast35_4904_000001 then othsav=(yast35_4904_000002+yast35_4904_000001)/2; else othsav=-3; end; if yast35_4900 not in (1,2) or yast35_4902 in (-1,-2) then do; if 1<=yast35_4906<=7 then flag_othsav=2; if yast35_4906=1 then othsav=2500; else if yast35_4906=2 then othsav=7500; else if yast35_4906=3 then othsav=17500; else if yast35_4906=4 then othsav=37500; else if yast35_4906=5 then othsav=75000; else if yast35_4906=6 then othsav=175000; else if yast35_4906=7 then othsav=250001; end; end; if yast35_4880=-1 or yast35_4904_000001=-1 or yast35_4904_000002=-1 or yast35_4906=-1 then othsav=-1; if yast35_4880=-2 or yast35_4904_000001=-2 or yast35_4904_000002=-2 or yast35_4906=-2 then othsav=-2; if yast35_4880=-3 or yast35_4904_000001=-3 or yast35_4904_000002=-3 or yast35_4906=-3 or yast35_4902=-3 then othsav=-3; /***************assets section 12: outstanding loans-loans****************************************/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_4300b_000002 = -4; yast35_4300b_000001 = -4; loans=-4; if yast35_4300 in (1,2,3) then do; flag_loans=1; if yast35_4300a=1 & yast35_4300a1>=0 then loans=yast35_4300a1; else if yast35_4300a=2 & yast35_4300b_000001>=0 & yast35_4300b_000002>=0 then do; if yast35_4300b_000002>=yast35_4300b_000001 then loans=(yast35_4300b_000002+yast35_4300b_000001)/2; else loans=-3; end; if yast35_4300a not in (1,2) or yast35_4300a1 in (-1,-2) then do; if 1<=yast35_4300a2<=7 then flag_loans=2; if yast35_4300a2=1 then loans=2500; else if yast35_4300a2=2 then loans=7500; else if yast35_4300a2=3 then loans=17500; else if yast35_4300a2=4 then loans=37500; else if yast35_4300a2=5 then loans=75000; else if yast35_4300a2=6 then loans=175000; else if yast35_4300a2=7 then loans=250001; end; end; if yast35_4300=-1 or yast35_4300a2=-1 or yast35_4300b_000001=-1 or yast35_4300b_000002=-1 then loans=-1; if yast35_4300=-2 or yast35_4300a2=-2 or yast35_4300b_000001=-2 or yast35_4300b_000002=-2 then loans=-2; if yast35_4300=-3 or yast35_4300a2=-3 or yast35_4300b_000001=-3 or yast35_4300b_000002=-3 or yast35_4300a1=-3 then loans=-3; /*************************************************************; begin liabilities section ************************************************************/ /********************liabilites section 1: mortgage or land contract-mortgage************/ mortgag=-4; if yhou_dlimortgage=1 or yhou_dliown2=1 or yhou_ch1 in (1 2 3 4 5) then do; if yhou_dlimortgage=1 or yhou_ch6=1 then do; flag_mortgag=1; if yhou_ch7=1 & yhou_ch7a>=0 then mortgag=yhou_ch7a; else if yhou_ch7=2 & yhou_ch7b_000001>=0 & yhou_ch7b_000002>=0 then do; if yhou_ch7b_000002>=yhou_ch7b_000001 then mortgag = (yhou_ch7b_000001+yhou_ch7b_000002)/2; else mortgag=-3; end; if yhou_ch7 not in (1,2) or yhou_ch7a in (-1,-2) then do; if 1<=yhou_ch7c<=7 then flag_mortgag=2; if yhou_ch7c=1 then mortgag=12500; else if yhou_ch7c=2 then mortgag=37500; else if yhou_ch7c=3 then mortgag=75000; else if yhou_ch7c=4 then mortgag=175000; else if yhou_ch7c=5 then mortgag=375000; else if yhou_ch7c=6 then mortgag=750000; else if yhou_ch7c=7 then mortgag=1000001; end; end; end; if yhou_ch1 in (-1 -2 -3) or yhou_ch6 in (-1 -2 -3) or yhou_ch7b_000001 in (-1 -2 -3) or yhou_ch7b_000002 in (-1 -2 -3) or yhou_ch7c in (-1 -2 -3) then mortgag=-3; if (yast35_age35elig1 = 1 & yhou_ch1 in(9,10)) then mortgag=-4; /********************liabilities section 2: family mortgage debt-resdebt***********************/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_ch10c = -4; resdebt=-4; if yhou_dlimortgage=1 or yhou_dliown2=1 or yhou_ch1 in (1 2 3 4 5) then do; if yast35_ch9=1 then do; flag_resdebt=1; if yast35_ch10=1 & yast35_ch10a>=0 then resdebt=yast35_ch10a; else if yast35_ch10 not in (1 2) or yast35_ch10a in (-1 -2) then do; if 1==0 then othmort=yhou_ch8a; else if yhou_ch8_1=2 & yhou_ch8b_000002>=0 & yhou_ch8b_000001>=0 then do; if yhou_ch8b_000002>=yhou_ch8b_000001 then othmort=(yhou_ch8b_000002 + yhou_ch8b_000001)/2; else othmort=-3; end; if yhou_ch8_1 not in (1,2) or yhou_ch8a in (-1,-2) then do; if 1<=yhou_ch8c<=7 then flag_othmort=2; if yhou_ch8c=1 then othmort=12500; else if yhou_ch8c=2 then othmort=37500; else if yhou_ch8c=3 then othmort=75000; else if yhou_ch8c=4 then othmort=175000; else if yhou_ch8c=5 then othmort=375000; else if yhou_ch8c=6 then othmort=750000; else if yhou_ch8c=7 then othmort=1000001; end; end; end; if yhou_ch1 in (-1 -2 -3) or yhou_ch8 in (-1 -2 -3) or yhou_ch8b_000001 in (-1 -2 -3) or yhou_ch8b_000002 in (-1 -2 -3) or yhou_ch8c in (-1 -2 -3) then othmort=-3; if yast35_age35elig2 ne 1 then do; mortgag=-4; resdebt=-4; othmort=-4; end; if (yast35_age35elig1 = 1 & yhou_ch1 in(9,10)) then othmort=-4; /*************liabilities section 4: car debt-cardebt1*********************************/ cardebt1=-4; if yast35_4790=1 then do; flag_cardebt1=1; if yast35_4840=1 & yast35_4842>=0 then cardebt1=yast35_4842; if yast35_4840=2 and yast35_4844_000001 >=0 and yast35_4844_000002 >=0 then do; if yast35_4844_000002>= yast35_4844_000001 then cardebt1=(yast35_4844_000002+ yast35_4844_000001)/2; else cardebt1=-3; end; if yast35_4840 not in (1,2) or yast35_4842 in (-1, -2) then do; if 1 <=yast35_4846<=7 then flag_cardebt1=2; if yast35_4846=1 then cardebt1=2500; else if yast35_4846=2 then cardebt1=7500; else if yast35_4846=3 then cardebt1=17500; else if yast35_4846=4 then cardebt1=37500; else if yast35_4846=5 then cardebt1=75000; else if yast35_4846=6 then cardebt1=175000; else if yast35_4846=7 then cardebt1=250001; end; end; if yast35_4790=-1 or yast35_4844_000001=-1 or yast35_4844_000002=-1 or yast35_4846=-1 then cardebt1=-1; if yast35_4790=-2 or yast35_4844_000001=-2 or yast35_4844_000002=-2 or yast35_4846=-2 then cardebt1=-2; if yast35_4790=-3 or yast35_4844_000001=-3 or yast35_4844_000002=-3 or yast35_4846=-3 or yast35_4842=-3 then cardebt1=-3; /***************************************************************************; liabilities section 4.2: secondary info source for car debt --cardebt2 **************************************************************************/ cardebt2=-4; /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_4000s10b_000001 = -4; yast35_4000s10b_000002 = -4; yast35_4000s10c = -4; if yast35_4000s8 =1 then do; flag_cardebt2=1; if yast35_4000s10 =1 and yast35_4000s10a>=0 then cardebt2= yast35_4000s10a; else if yast35_4000s10 = 2 and yast35_4000s10b_000001>=0 and yast35_4000s10b_000002>=0 then do; if yast35_4000s10b_000002>= yast35_4000s10b_000001 then cardebt2=(yast35_4000s10b_000002+yast35_4000s10b_000001)/2; else cardebt2=-3; end; if yast35_4000s10 not in (1,2) or yast35_4000s10a in (-1,-2) then do; if 1<= yast35_4000s10c <=8 then flag_cardebt2=2; if yast35_4000s10c=1 then cardebt2= 500; else if yast35_4000s10c=2 then cardebt2= 1750; else if yast35_4000s10c=3 then cardebt2= 3750; else if yast35_4000s10c=4 then cardebt2= 7500; else if yast35_4000s10c=5 then cardebt2= 17500; else if yast35_4000s10c=6 then cardebt2= 37500; else if yast35_4000s10c=7 then cardebt2= 75000; else if yast35_4000s10c=8 then cardebt2= 100001; end; end; if yast35_4000s8=-1 or yast35_4000s10b_000001=-1 or yast35_4000s10b_000002=-1 or yast35_4000s10c=-1 then cardebt2=-1; if yast35_4000s8=-2 or yast35_4000s10b_000001=-2 or yast35_4000s10b_000002=-2 or yast35_4000s10c=-2 then cardebt2=-2; if yast35_4000s8=-3 or yast35_4000s10b_000001=-3 or yast35_4000s10b_000002=-3 or yast35_4000s10c=-3 then cardebt2=-3; /*********************liabilities section 5: personal education loan-famedudebt****************/ famedudebt=-4; /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_5013_000001 = -4; yast35_5013_000002 = -4; if yast35_5011=1 then do; flag_famedudebt=1; if yast35_5011a=1 & yast35_5012>=0 then famedudebt=yast35_5012; else if yast35_5011a=2 & yast35_5013_000001>=0 & yast35_5013_000002>=0 then do; if yast35_5013_000002>=yast35_5013_000001 then famedudebt=(yast35_5013_000001+yast35_5013_000002)/2; else famedudebt=-3; end; if yast35_5011a not in (1,2) or yast35_5012 in (-1,-2) then do; if 1<=yast35_5014<=8 then flag_famedudebt=2; if yast35_5014=1 then famedudebt=500; else if yast35_5014=2 then famedudebt=1750; else if yast35_5014=3 then famedudebt=3750; else if yast35_5014=4 then famedudebt=7500; else if yast35_5014=5 then famedudebt=17500; else if yast35_5014=6 then famedudebt=37500; else if yast35_5014=7 then famedudebt=75000; else if yast35_5014=8 then famedudebt=100001; end; end; if yast35_5011=-1 or yast35_5013_000002=-1 or yast35_5013_000001=-1 or yast35_5014=-1 then famedudebt=-1; if yast35_5011=-2 or yast35_5013_000002=-2 or yast35_5013_000001=-2 or yast35_5014=-2 then famedudebt=-2; if yast35_5011=-3 or yast35_5013_000002=-3 or yast35_5013_000001=-3 or yast35_5014=-3 or yast35_5012=-3 then famedudebt=-3; /****************liabilities section 6: government education loan-govedudebt***************/ govedudebt=-4; if yast35_5015=1 then do; flag_govedudebt=1; if yast35_5015a=1 & yast35_5016>=0 then govedudebt=yast35_5016; else if yast35_5015a=2 & yast35_5017_000002>=0 & yast35_5017_000001>=0 then do; if yast35_5017_000002>=yast35_5017_000001 then govedudebt=(yast35_5017_000002 + yast35_5017_000001)/2; else govedudebt=-3; end; if yast35_5015a not in (1,2) or yast35_5016 in (-1,-2) then do; if 1<=yast35_5018<=8 then flag_govedudebt=2; if yast35_5018=1 then govedudebt=500; else if yast35_5018=2 then govedudebt =1750; else if yast35_5018=3 then govedudebt=3750; else if yast35_5018=4 then govedudebt=7500; else if yast35_5018=5 then govedudebt=17500; else if yast35_5018=6 then govedudebt=37500; else if yast35_5018=7 then govedudebt=75000; else if yast35_5018=8 then govedudebt=100001; end; end; if yast35_5015=-1 or yast35_5017_000002=-1 or yast35_5017_000001=-1 or yast35_5018=-1 then govedudebt=-1; if yast35_5015=-2 or yast35_5017_000002=-2 or yast35_5017_000001=-2 or yast35_5018=-2 then govedudebt=-2; if yast35_5015=-3 or yast35_5017_000002=-3 or yast35_5017_000001=-3 or yast35_5018=-3 or yast35_5016=-3 then govedudebt=-3; /****************liabilities section 6a: spouse-partner education loan***************/ sparedudebt=-4; if yast35_5040_new=1 then do; flag_sparedudebt=1; if yast35_5074_new=1 & yast35_5082_new>=0 then sparedudebt=yast35_5082_new; else if yast35_5074_new=2 & yast35_5084_000002_new>=0 & yast35_5084_000001_new>=0 then do; if yast35_5084_000002_new>=yast35_5084_000001_new then sparedudebt=(yast35_5084_000002_new + yast35_5084_000001_new)/2; else sparedudebt=-3; end; if yast35_5074_new not in (1,2) or yast35_5082_new in (-1,-2) then do; if 1<=yast35_5086_new<=8 then flag_sparedudebt=2; if yast35_5086_new=1 then sparedudebt=2500; else if yast35_5086_new=2 then sparedudebt =7500; else if yast35_5086_new=3 then sparedudebt=17500; else if yast35_5086_new=4 then sparedudebt=37500; else if yast35_5086_new=5 then sparedudebt=75000; else if yast35_5086_new=6 then sparedudebt=175000; else if yast35_5086_new=7 then sparedudebt=250001; end; end; if yast35_5040_new=-1 or yast35_5084_000002_new=-1 or yast35_5084_000001_new=-1 or yast35_5086_new=-1 then sparedudebt=-1; if yast35_5040_new=-2 or yast35_5084_000002_new=-2 or yast35_5084_000001_new=-2 or yast35_5086_new=-2 then sparedudebt=-2; if yast35_5040_new=-3 or yast35_5084_000002_new=-3 or yast35_5084_000001_new=-3 or yast35_5086_new=-3 or yast35_5082_new=-3 then sparedudebt=-3; if yast35_age35elig2=1 & sparedudebt > 0 then do; flag_sparedudebt_c=1; end; /****************liabilities section 6b: combined education loans-debt***************/ comboedudebt1=0; comboedudebt2=0; /* asset35 skipped these questions - skipped qs adjusted for r19 */ ysch_22799a_05 = -4; ysch_22799a_000001_03 = -4; ysch_22799a_000001_04 = -4; ysch_22799a_000002_03 = -4; ysch_22799a_000002_04 = -4; ysch_22799b_04 = -4; ysch_22799b_05 = -4; array ysch22799a ysch_22799a_01 - ysch_22799a_05; array ysch22799ar1 ysch_22799a_000001_01 - ysch_22799a_000001_05 ; array ysch22799ar2 ysch_22799a_000002_01 - ysch_22799a_000002_05 ; array ysch22799b ysch_22799b_01 - ysch_22799b_05; do over ysch22799a; if (ysch22799a in (-1 -2 -3) & ysch22799ar1>=0 & ysch22799ar2>=0) then do; if (ysch22799ar2 = ysch22799ar1) then ysch22799a_c = ysch22799ar1; else if (ysch22799ar2 - ysch22799ar1) then ysch22799a = (((ysch22799ar2 - ysch22799ar1)/2) + ysch22799ar1); else if (ysch22799ar1 - ysch22799ar2) then ysch22799a = (((ysch22799ar1 - ysch22799ar2)/2) + ysch22799ar2); end; end; do over ysch22799a; if (ysch22799a in (-1 -2 -3) & ysch22799b>0) then do; if ysch22799b=1 then ysch22799a=500; else if ysch22799b=2 then ysch22799a=1750; else if ysch22799b=3 then ysch22799a=3750; else if ysch22799b=4 then ysch22799a=7500; else if ysch22799b=5 then ysch22799a=17500; else if ysch22799b=6 then ysch22799a=37500; else if ysch22799b=7 then ysch22799a=50001; end; end; do over ysch22799a; if (yast35_age35elig2 = 1) then do; if (ysch22799a >= 0) then comboedudebt1 = (comboedudebt1 + ysch22799a); end; end; do over ysch22799a; if (ysch22799a in(-1 -2 -3)) then comboedudebt1 = ysch22799a; else if (ysch22799ar1 in(-1 -2 -3)) then comboedudebt1 = ysch22799ar1; else if (ysch22799ar2 in(-1 -2 -3)) then comboedudebt1 = ysch22799ar2; else if (ysch22799b in(-1 -2 -3)) then comboedudebt1 = ysch22799b; end; if (famedudebt >= 0) then comboedudebt2 = (comboedudebt2 + famedudebt); if (govedudebt >= 0) then comboedudebt2 = (comboedudebt2 + govedudebt); if (sparedudebt >= 0) then comboedudebt2 = (comboedudebt2 + sparedudebt); if (yast35_age35elig2=1 & famedudebt in(0, -4) & govedudebt in(0, -4) & comboedudebt1 >= 0) then do; comboedudebt2=(comboedudebt2 + comboedudebt1); end; if (famedudebt in(-1, -2, -3)) then comboedudebt2 = famedudebt; if (govedudebt in(-1, -2, -3)) then comboedudebt2 = govedudebt; if (sparedudebt in(-1, -2, -3)) then comboedudebt2 = sparedudebt; if (comboedudebt1 in(-1, -2, -3)) then comboedudebt2 = comboedudebt1; if (comboedudebt2 > 0) then flag_comboedudebt2 = 1; /**********************liabilities section 7: other debt to family or relatives--famdebt***********/ /* asset35 skipped these questions - skipped qs adjusted for r19 */ yast35_5174_000001 = -4; yast35_5174_000002 = -4; famdebt=-4; if yast35_5130=1 then do; flag_famdebt=1; if yast35_5170=1 & yast35_5172>=0 then famdebt=yast35_5172; else if yast35_5170=2 & yast35_5174_000001>=0 & yast35_5174_000002>=0 then do; if yast35_5174_000002>=yast35_5174_000001 then famdebt = (yast35_5174_000002 + yast35_5174_000001)/2; else famdebt=-3; end; if yast35_5170 not in (1,2) or yast35_5172 in (-1, -2) then do; if 1<=yast35_5176<=9 then flag_famdebt=2; if yast35_5176=1 then famdebt=500; else if yast35_5176=2 then famdebt=1750; else if yast35_5176=3 then famdebt=3750; else if yast35_5176=4 then famdebt=7500; else if yast35_5176=5 then famdebt=17500; else if yast35_5176=6 then famdebt=37500; else if yast35_5176=7 then famdebt=75000; else if yast35_5176=8 then famdebt=175000; else if yast35_5176=9 then famdebt=250001; end; end; if yast35_5130=-1 or yast35_5176=-1 or yast35_5174_000001=-1 or yast35_5174_000002=-1 then famdebt=-1; if yast35_5130=-2 or yast35_5176=-2 or yast35_5174_000001=-2 or yast35_5174_000002=-2 then famdebt=-2; if yast35_5130=-3 or yast35_5176=-3 or yast35_5174_000001=-3 or yast35_5174_000002=-3 or yast35_5172=-3 then famdebt=-3; /*************************liabilities section 8: other debt--othdebt**************/ othdebt1=-4; othdebt2=-4; othdebt3=-4; if yast35_5210aa=0 | yast35_5210aa = -4 then do; flag_othdebt1=1; if yast35_5210a1=1 & yast35_5210a2>=0 then othdebt1=yast35_5210a2; else if yast35_5210a1=2 & yast35_5210a3_000002>=0 & yast35_5210a3_000001>=0 then do; if yast35_5210a3_000002>=yast35_5210a3_000001 then othdebt1= (yast35_5210a3_000002 + yast35_5210a3_000001)/2; else othdebt1=-3; end; if yast35_5210a1 not in (1,2) or yast35_5210a2 in (-1,-2) then do; if 1<=yast35_5210a4<=8 then flag_othdebt1=2; if yast35_5210a4=1 then othdebt1=500; else if yast35_5210a4=2 then othdebt1=1750; else if yast35_5210a4=3 then othdebt1=3750; else if yast35_5210a4=4 then othdebt1=7500; else if yast35_5210a4=5 then othdebt1=17500; else if yast35_5210a4=6 then othdebt1=37500; else if yast35_5210a4=7 then othdebt1=75000; else if yast35_5210a4=8 then othdebt1=100001; end; end; if yast35_5210a =-1 or yast35_5210aa=-1 or yast35_5210a3_000002=-1 or yast35_5210a3_000001=-1 or yast35_5210a4=-1 then othdebt1=-1; if yast35_5210a =-2 or yast35_5210aa=-2 or yast35_5210a3_000002=-2 or yast35_5210a3_000001=-2 or yast35_5210a4=-2 then othdebt1=-2; if yast35_5210a =-3 or yast35_5210aa=-3 or yast35_5210a3_000002=-3 or yast35_5210a3_000001=-3 or yast35_5210a4=-3 or yast35_5210a2=-3 then othdebt1=-3; if yast35_5210b1=1 then do; flag_othdebt2=1; if yast35_5210c1=1 & yast35_5210c2>=0 then othdebt2=yast35_5210c2; else if yast35_5210c1=2 & yast35_5210c3_000002>=0 & yast35_5210c3_000001>=0 then do; if yast35_5210c3_000002>=yast35_5210c3_000001 then othdebt2= (yast35_5210c3_000002 + yast35_5210c3_000001)/2; else othdebt2=-3; end; if yast35_5210c1 not in (1,2) or yast35_5210c2 in (-1, -2) then do; if 1<=yast35_5210c4<=7 then flag_othdebt2=2; if yast35_5210c4=1 then othdebt2=500; else if yast35_5210c4=2 then othdebt2=1750; else if yast35_5210c4=3 then othdebt2=3750; else if yast35_5210c4=4 then othdebt2=7500; else if yast35_5210c4=5 then othdebt2=17500; else if yast35_5210c4=6 then othdebt2=37500; else if yast35_5210c4=7 then othdebt2=50001; end; end; if yast35_5210b1=-1 or yast35_5210c3_000002=-1 or yast35_5210c3_000001=-1 or yast35_5210c4=-1 then othdebt2=-1; if yast35_5210b1=-2 or yast35_5210c3_000002=-2 or yast35_5210c3_000001=-2 or yast35_5210c4=-2 then othdebt2=-1; if yast35_5210b1=-3 or yast35_5210c3_000002=-3 or yast35_5210c3_000001=-3 or yast35_5210c4=-3 or yast35_5210c2=-3 then othdebt2=-3; if yast35_5210d1=1 then do; flag_othdebt3=1; if yast35_5210d1a=1 & yast35_5210d2>=0 then othdebt3=yast35_5210d2; else if yast35_5210d1a=2 & yast35_5210d3_000001>=0 & yast35_5210d3_000002>=0 then do; if yast35_5210d3_000002>=yast35_5210d3_000001 then othdebt3 = (yast35_5210d3_000001+yast35_5210d3_000002)/2; else othdebt3=-3; end; if yast35_5210d1a not in (1,2) or yast35_5210d2 in (-1,-2) then do; if 1<=yast35_5210d4<=7 then flag_othdebt3=2; if yast35_5210d4=1 then othdebt3=500; else if yast35_5210d4=2 then othdebt3=1750; else if yast35_5210d4=3 then othdebt3=3750; else if yast35_5210d4=4 then othdebt3=7500; else if yast35_5210d4=5 then othdebt3=17500; else if yast35_5210d4=6 then othdebt3=37500; else if yast35_5210d4=7 then othdebt3=50001; end; end; if yast35_5210d1=-1 or yast35_5210d3_000001=-1 or yast35_5210d3_000002=-1 or yast35_5210d4=-1 then othdebt3=-1; if yast35_5210d1=-2 or yast35_5210d3_000001=-2 or yast35_5210d3_000002=-2 or yast35_5210d4=-2 then othdebt3=-2; if yast35_5210d1=-3 or yast35_5210d3_000001=-3 or yast35_5210d3_000002=-3 or yast35_5210d4=-3 or yast35_5210d2=-3 then othdebt3=-3; /************************************************************************************ end of data cleaning for liabilities and assets begin calculations: **********************************************************************************/ array varsasst (*) house_value pvbuss_01-pvbuss_04 othreal ira_01-ira_07 retdsav banksav bonds stocks pvcars1 pvcars2 pvfurn othsav loans; array varsliab (*) mortgag resdebt othmort cardebt1 cardebt2 comboedudebt2 othdebt1 othdebt2 othdebt3 famdebt; array flgsasst (*) flag_house flag_pvbuss flag_othreal flag_ira flag_retdsav flag_banksav flag_bonds flag_stocks flag_pvcars1 flag_pvcars2 flag_pvfurn flag_othsav flag_loans; array flgsliab (*) flag_mortgag flag_resdebt flag_othmort flag_cardebt1 flag_cardebt2 flag_comboedudebt2 flag_othdebt1 flag_othdebt2 flag_othdebt3 flag_famdebt; array ahousedebt (*) mortgag resdebt othmort; array afinance (*) ira_01-ira_07 retdsav banksav bonds stocks othsav loans; array anonfinance (*) pvbuss_01-pvbuss_04 othreal pvcars1 pvcars2 pvfurn; array adebt (*) cardebt1 cardebt2 comboedudebt2 othdebt1 othdebt2 othdebt3 famdebt; array flgshsdt(*) flag_mortgag flag_resdebt flag_othmort; array flgsfin(*) flag_ira flag_retdsav flag_banksav flag_bonds flag_stocks flag_othsav flag_loans; array flgsnonfin(*) flag_pvbuss flag_othreal flag_pvcars1 flag_pvcars2 flag_pvfurn; array flgsdebt(*) flag_cardebt1 flag_cardebt2 flag_comboedudebt2 flag_othdebt1 flag_othdebt2 flag_othdebt3 flag_famdebt; hhworthy=-4; assets=-4; liabilities=-4; housedebt=-4; finance=-4; nonfinance=-4; debt=-4; if yast35_age35elig2=1 then do; hhworthy=0; assets=0; housedebt=0; liabilities=0; finance=0; nonfinance=0; debt=0; do i=1 to dim(varsasst); if varsasst(i) not in (-1,-2,-3,-4,-5) then assets=assets+varsasst(i); if varsasst(i) in (-1,-2,-3) then flagsasst=-3; end; do i=1 to dim(varsliab); if varsliab(i) not in (-1,-2,-3,-4,-5) then liabilities=liabilities+varsliab(i); if varsliab(i) in (-1,-2,-3) then flagsliab=-3; end; hhworthy=assets-liabilities; do i=1 to dim(ahousedebt); if ahousedebt(i) not in (-1,-2,-3,-4,-5) then housedebt=housedebt+ahousedebt(i); if ahousedebt(i) in (-1,-2,-3) then flagshsdt=-3; end; do i=1 to dim(afinance); if afinance(i) not in (-1,-2,-3,-4,-5) then finance=finance+afinance(i); if afinance(i) in (-1,-2,-3) then flagsfin=-3; end; do i=1 to dim(anonfinance); if anonfinance(i) not in (-1,-2,-3,-4,-5) then nonfinance=nonfinance+anonfinance(i); if anonfinance(i) in (-1,-2,-3) then flagsnonfin=-3; end; do i=1 to dim(adebt); if adebt(i) not in (-1,-2,-3,-4,-5) then debt=debt+adebt(i); if adebt(i) in (-1,-2,-3) then flagsdebt=-3; end; end; /*** code hhworthy as an invalid skip for those who did not give valid responses */ do i=1 to dim(varsasst); if varsasst(i)=-1 then do; hhworthy=-1; assets=-1; invskphhy=1; end; end; do i=1 to dim(varsliab); if varsliab(i)=-1 then do; hhworthy=-1; liabilities=-1; invskphhy=1; end; end; do i=1 to dim(varsasst); if varsasst(i)=-2 then do; hhworthy=-2; assets=-2; invskphhy=2; end; end; do i=1 to dim(varsliab); if varsliab(i)=-2 then do; hhworthy=-2; liabilities=-2; invskphhy=2; end; end; do i=1 to dim(varsasst); if varsasst(i)=-3 then do; hhworthy=-3; assets=-3; invskphhy=3; end; end; do i=1 to dim(varsliab); if varsliab(i)=-3 then do; hhworthy=-3; liabilities=-3; invskphhy=3; end; end; do i=1 to dim(ahousedebt); if ahousedebt(i)=-1 then housedebt=-1; else if ahousedebt(i)=-2 then housedebt=-2; else if ahousedebt(i)=-3 then housedebt=-3; end; do i=1 to dim(afinance); if afinance(i)=-1 then finance=-1; else if afinance(i)=-2 then finance=-2; else if afinance(i)=-3 then finance=-3; end; do i=1 to dim(anonfinance); if anonfinance(i)=-1 then nonfinance=-1; else if anonfinance(i)=-2 then nonfinance=-2; else if anonfinance(i)=-3 then nonfinance=-3; end; do i=1 to dim(adebt); if adebt(i)=-1 then debt=-1; else if adebt(i)=-2 then debt=-2; else if adebt(i)=-3 then debt=-3; end; hhworthy=round(hhworthy,1); assets=round(assets,1); liabilities=round(liabilities,1); housedebt=round(housedebt,1); house_value=round(house_value,1); finance=round(finance,1); nonfinance=round(nonfinance,1); debt=round(debt,1); /** change all the -1s, -2s to -3s. **/ array finalv(*) hhworthy assets liabilities housedebt house_value finance nonfinance debt; do i=1 to dim(finalv); if finalv(i) in (-1,-2) then finalv(i)=-3; end; data three; merge one asset19.astr18_cvc; by pubid; array cvprevrd(7) cvc_hh_net_worth_35 cvc_house_value_35 cvc_house_debt_35 cvc_house_type_35 cvc_assets_financial_35 cvc_assets_nonfinancial_35 cvc_assets_debts_35; do i=1 to dim(cvprevrd); if cvprevrd(i) ~=-4 then cvpreval=1; end; array curr(7) hhworthy house_value housedebt housing_type finance nonfinance debt ; do i=1 to dim(curr); if curr(i) not in (-4,-5,.) then currval=1; end; assetrd_cvc=-4 ; array cvc(7) hhworthy_cvc house_value_cvc housedebt_cvc housing_type_cvc finance_cvc nonfinance_cvc debt_cvc ; do i = 1 to dim(cvc); cvc(i)=-4; end; * curr vs cvc from the prev round; if cvpreval =1 & cvc_assets_rnd_35 not in (17 18) then flag1=1; if cvpreval =1 & currval=1 then flag2=1; if currval=1 & cvc_assets_rnd_35 in (17 18) then flag3=1; if cvpreval =1 & cvc_assets_rnd_35 in (17 18) & currval~=1 then do i = 1 to 7 ; assetrd_cvc= cvc_assets_rnd_35; cvc(i)=cvprevrd(i); end; if cvpreval ~=1 & cvc_assets_rnd_35 not in (17 18) & currval=1 then do i = 1 to 7 ; assetrd_cvc=19; cvc(i)=curr(i); end; /* top & bottom coding */ if hhworthy_cvc ge 600000 then hhworthy_cvc=600000; if house_value_cvc ge 425000 then house_value_cvc=425000; if housedebt_cvc ge 325000 then housedebt_cvc=325000; if finance_cvc ge 300000 then finance_cvc=300000; if nonfinance_cvc ge 600000 then nonfinance_cvc=600000; if debt_cvc ge 370000 then debt_cvc=370000; if hhworthy_cvc le -300000 then hhworthy_cvc=-300000; if nonfinance_cvc le -300000 then nonfinance_cvc=-300000; rename hhworthy_cvc = 'cvc_hh_net_worth_35'n house_value_cvc = 'cvc_house_value_35'n housedebt_cvc = 'cvc_house_debt_35'n housing_type_cvc = 'cvc_house_type_35'n finance_cvc = 'cvc_assets_financial_35'n nonfinance_cvc = 'cvc_assets_nonfinancial_35'n debt_cvc = 'cvc_assets_debts_35'n assetrd_cvc = 'cvc_assets_rnd_35'n ;