NLSY79 Appendix 30: Programs for Assorted Created NLSY79 Variables
NLSY79 Appendix 30: Programs for Assorted Created NLSY79 Variables
This appendix contains programs that produce a number of created variables in the current round (2020).
2020 Age at Interview Variable Creation
curmo CURDATE_M (2020)
curry CURDATE_Y (2020)
brthmo79 Q1-3_A~M (1979)
brthyr79 Q1-3_A~M (1979)
brthmo81 Q1-3_A~M (1981)
brthyr81 Q1-3_A~Y (1981)
if brthyr81 >= -4 then do;
birthmo=brthmo81;
birthyr=brthyr81+1900;
end;
else do;
birthmo=brthmo79;
birthyr=brthyr79+1900;
end;
intmo=curmo;
intyr=curyr;
intyr = curyr;
ageatint=-4;
if (intyr > 0 and birthyr > 0 and intmo > 0 and birthmo > 0) then do;
if (intmo > birthmo) then ageatint = intyr - birthyr;
else if (intmo <= birthmo) then ageatint = intyr - birthyr - 1;
end;
else ageatint = -5;
2020 Marital Status Changes Since Last Interview Variable Creation
CURDATE~Y_2020'n CURDATEY
Q2-1_2020'n Q2_1
Q2-2_2020'n Q2_2
Q2-3-0A_2020'n NEEDDATE
Q2-3-0B~M_2020'n MO_MSINCORR
Q2-3-0B~Y_2020'n YR_MSINCORR
Q2-3A_2020'n Q2_3A
Q2-4AC_2020'n CURMARNOCHG
Q2-4A_2020'n CURMARCHG
Q2-5A1B.01_2020'n LSTMARREPL1
Q2-5A1B.02_2020'n LSTMARREPL2
Q2-5A1B.03_2020'n LSTMARREPL2
Q2-5A1.01_2020'n CHGL1_SDW
Q2-5A1.02_2020'n CHGL2_SDW
Q2-5A1.03_2020'n CHGL3_DRW
Q2-5A1_A.01_2020'n CHGL1_DRW
Q2-5A1_A.02_2020'n CHGL2_DRW
Q2-5B1.01~M_2020'n MOCHG1A
Q2-5B1.01~Y_2020'n YRCHG1A
Q2-5B2.01~M_2020'n MOCHG1B
Q2-5B2.01~Y_2020'n YRCHG1B
Q2-5B2.02~M_2020'n MOCHG2B
Q2-5B2.02~Y_2020'n YRCHG2B
Q2-5B2.03~M_2020'n MOCHG3B
Q2-5B2.03~Y_2020'n YRCHG3B
Q2-5B3.01~M_2020'n MOCHG1C
Q2-5B3.01~Y_2020'n YRCHG1C
Q2-5B3.02~M_2020'n MOCHG2C
Q2-5B3.02~Y_2020'n YRCHG2C
Q2-5B3.03~M_2020'n MOCHG3C
Q2-5B3.03~Y_2020'n YRCHG3C
Q2-5C1.01_2020'n ANYCHGAFT1
Q2-5C1.02_2020'n ANYCHGAFT2
Q2-5C1.03_2020'n ANYCHGAFT3
Q2-5C1BB.01_2020'n MSAFTC1
Q2-5C1BB.02_2020'n MSAFTC2
Q2-5C1BB.03_2020'n MSAFTC3
Q2-5E_2020'n Q2_5E
Q2-5F_2020'n Q2_5F
SYMBOL_MARCODE_2020'n MARCODE
SYMBOL_OLDMARCODE_2020'n OLDMARCODE
SYMBOL_MARCODEDLI_2020'n MARCODEDLI
intv2020=1;
if CURDATEY=-5 then intv2020=0;
/* 1st marital status change code */
marst_chng1_type = -4;
if (CHGL1_SDW > -4) then marst_chng1_type = CHGL1_SDW;
else if (CHGL1_DRW > -4) then marst_chng1_type = CHGL1_DRW;
else if (MOCHG1A > -4) then marst_chng1_type = 1;
else if (MOCHG1B > -4) then marst_chng1_type = 5;
else if (CHGL1_SDW = -4 & MOCHG1A = -4 & MOCHG1B = -4)
then marst_chng1_type = -4;
else marst_chng1_type = -3;
/* 1st marital status change date */
if (MOCHG1A > -4) then do;
marst_chng1_date_m = MOCHG1A;
marst_chng1_date_y = YRCHG1A;
end;
else if (MOCHG1B > -4) then do;
marst_chng1_date_m = MOCHG1B;
marst_chng1_date_y = YRCHG1B;
end;
else if (MOCHG1C > -4) then do;
marst_chng1_date_m = MOCHG1C;
marst_chng1_date_y = YRCHG1C;
end;
else if (MOCHG1A = -4 & MOCHG1B = -4 & MOCHG1C = -4) then do;
marst_chng1_date_m = -4;
marst_chng1_date_y = -4;
end;
/* 2nd-3rd marital status change code */
CHGL3_SDW=-4; MOCHG2A=-4; MOCHG3A=-4; YRCHG2A=-4; YRCHG3A=-4;
array mschgcd (n) marst_chng2_type marst_chng3_type;
array q2_5a1 (n) CHGL2_SDW CHGL3_SDW;
array q2_5a1a (n) CHGL2_DRW CHGL3_DRW;
array q2_5b1m (n) MOCHG2A MOCHG3A;
array q2_5b2m (n) MOCHG2B MOCHG3B;
do n=1 to 2;
if (q2_5a1 > -4) then mschgcd = q2_5a1;
else if (q2_5a1a > -4) then mschgcd = q2_5a1a;
else if (q2_5b1m > -4) then mschgcd = 5;
else if (q2_5b2m > -4) then mschgcd = 5;
else if (q2_5a1 = -4 & q2_5b1m = -4) then mschgcd = -4;
else mschgcd = -3;
end;
/* 2nd-3rd marital status change date */
array mschmo (n) marst_chng2_date_m marst_chng3_date_m;
array mschyr (n) marst_chng2_date_y marst_chng3_date_y;
*array q2_5b1m (n) MOCHG2A MOCHG3A;
array q2_5b1y (n) YRCHG2A YRCHG3A;
*array q2_5b2m (n) MOCHG2B MOCHG3B;
array q2_5b2y (n) YRCHG2B YRCHG3B;
array q2_5b3m (n) MOCHG2C MOCHG3C;
array q2_5b3y (n) YRCHG2C YRCHG3C;
do n=1 to 2;
if (q2_5b1m > -4) then do;
mschmo = q2_5b1m;
mschyr = q2_5b1y;
end;
else if (q2_5b2m > -4) then do;
mschmo = q2_5b2m;
mschyr = q2_5b2y;
end;
else if (q2_5b3m > -4) then do;
mschmo = q2_5b3m;
mschyr = q2_5b3y;
end;
else if (q2_5b1m = -4 & q2_5b2m = -4 & q2_5b3m = -4) then do;
mschmo = -4;
mschyr = -4;
end;
end;
array finvars marst_chng1_type marst_chng1_date_m marst_chng1_date_y
marst_chng2_type marst_chng2_date_m marst_chng2_date_y
marst_chng3_type marst_chng3_date_m marst_chng3_date_y;
do i=1 to dim(finvars);
if intv2020=0 then finvars[i]=-5;
end;
MARRCHG120=marst_chng1_type;
MARRCHG1MO=marst_chng1_date_m;
MARRCHG1YR=marst_chng1_date_y;
MARRCHG220=marst_chng2_type;
MARRCHG2MO=marst_chng2_date_m;
MARRCHG2YR=marst_chng2_date_y;
MARRCHG320=marst_chng3_type;
MARRCHG3MO=marst_chng3_date_m;
MARRCHG3YR=marst_chng3_date_y;
2020 Key Marital Status and Marital Status Collapsed Variable Creation
Q2-4AC_2020'n CURMARNC
Q2-5C1BB.01_2020'n MARCHNG1
Q2-5C1BB.02_2020'n MARCHNG2
Q2-5C1BB.03_2020'n MARCHNG3
RELSPPTR20 SPPTRTYPE
/***************************************/
/*Construction for key marital status variables */
/***************************************/
array changes MARCHNG1 MARCHNG2 MARCHNG3;
finchange=.;
do i=1 to 3;
if changes[i]>=-2 then finchange=changes[i];
end;
newmarstat=CURMARNC;
if CURMARNC=-4 then newmarstat=finchange;
MARSTAT_KEY=newmarstat;
if newmarstat in (4 5) then MARSTAT_KEY=1;
MARSTAT_COL=3;
if MARSTAT_KEY=0 then MARSTAT_COL=1;
else if MARSTAT_KEY=1 and spptrtype=1 then MARSTAT_COL=2;
else if MARSTAT_KEY=-5 then MARSTAT_COL=-5;
2020 Past Calendar Year Variable Creation
past_calendar_year = curdate~y;
if (symbol_pcy_year = '2019') then past_calendar_year = 2019;
else if (symbol_pcy_year = '2020') then past_calendar_year = 2020;
2020 Family Size Variable Creation
array varsall (m) CURDATE_D CURDATE_M CURDATE_Y HHI_RELCODE_01
HHI_RELCODE_02 HHI_RELCODE_03 HHI_RELCODE_04
HHI_RELCODE_05 HHI_RELCODE_06 HHI_RELCODE_07
HHI_RELCODE_08 HHI_RELCODE_09 HHI_RELCODE_10
HHI_RELCODE_11;
do over varsall; /* any missing data? if so set to -4 */
if missing(varsall) then varsall=-4;
end;
* ================;
* Compute family sizes ;
* ================;
data compute_a;set famszin;
/* --- Compute "family size '20" and "spouse '20" --- */
spou20=0;
famsize=1;
nonfamsize=0;
if (hhi_relcode_01 = -5) then famsize = -5;
array relation (i) hhi_relcode_01 - hhi_relcode_11;
/* Go thru all the relations and
(1) if there is a relation (blood or by law), increase the family size, do not count foster relations
(2) check whether one of them is a spouse */
do i = 1 to 11;
if (spou20 = 0 & relation = 1 ) then spou20=1;
if ((relation <= 0) | (33 <= relation <= 36) | relation = 45 | relation = 46
| (50 <= relation <= 54) | (relation > 66))
then famsize = famsize;
else famsize = famsize + 1;
end;
do i = 1 to 11;
if ((33 <= relation <= 36) | relation = 45 | relation = 46
| (50 <= relation <= 54) | (relation > 66)) then nonfamsize = (nonfamsize +1);
end;
2020 Hourly Rate of Pay, Initial Report Non-Hourly Variable Creation
qes_76q_## QES-76Q.##
qes_76s_## QES-76S.##
qes_76t_## QES-76T.##
hrp## HRP##
hrp_whrly# HRP#_WHRLY2
array ophrly (i) qes_76q_01-qes_76q_13;
array ohrpot (i) qes_76s_01-qes_76s_13;
array ohrp (i) qes_76t_01-qes_76t_13;
array hrp (i) hrp1-hrp13;
array hrp_rec (i) hrp_rec1-hrp_rec13;
array hrp_w (i) hrp_whrly1-hrp_whrly13;
*received HRP;
do i=1 to 13;
if ophrly=1 then do;
if ohrpot>-4 then hrp_rec=ohrpot;*overtime pay;
else if ohrp>-4 then hrp_rec=ohrp;*other time unit reported;
end;
hrp_w=-4;
if hrp_rec>0 then hrp_w=hrp_rec;
else if (hrp_rec=0|hrp_rec=-1| hrp_rec=-2|hrp_rec=-3) and hrp<0 then hrp_w=hrp_rec;
else if (hrp_rec=0|hrp_rec=-1| hrp_rec=-2|hrp_rec=-3) and hrp>0 then hrp_w=hrp;
else hrp_w=hrp;
end;
run;
HRP1_WHRLY2=hrp_whrly1;
HRP2_WHRLY2=hrp_whrly2;
HRP3_WHRLY2=hrp_whrly3;
HRP4_WHRLY2=hrp_whrly4;
HRP5_WHRLY2=hrp_whrly5;
Business Ownership XRND Variable Creation (2020 updates)
Variable Names in Program (## = 01/02) Variable Names in Data Release (## = 01/02)
busown_4_##_20/xr BUSOWN-4.##
busown_8_##_20/xr BUSOWN-8. ##
busown_13_##_20/xr BUSOWN-13_##
BUSOWN_LINT_20 BUSOWN-LINT
BUSOWN_1_20/xr BUSOWN-1
BUSOWN_2_20/xr BUSOWN-2
BUSOWN_5_##_Y_20/xr BUSOWN-5. ##~Y
BUSOWN_6_##_M_20/xr BUSOWN-6. ##~M
BUSOWN_6_##_Y_20/xr BUSOWN-6. ##~Y
BUSOWN_7_##_20/xr BUSOWN-7. ##
BUSOWN_9_##_20/xr BUSOWN-9. ##
BUSOWN_10_##_0_20/xr BUSOWN-10. ##_000000
BUSOWN_10_##_1_20/xr BUSOWN-10. ##_000001
BUSOWN_10_##_2_20/xr BUSOWN-10. ##_000002
BUSOWN_10_##_3_20/xr BUSOWN-10. ##_000003
BUSOWN_10_##_4_20/xr BUSOWN-10. ##_000004
BUSOWN_10_##_5_20/xr BUSOWN-10. ##_000005
BUSOWN_10_##_6_20/xr BUSOWN-10. ##_000006
BUSOWN_10_##_7_20/xr BUSOWN-10. ##_000007
BUSOWN_11_##_20/xr BUSOWN-11. ##
BUSOWN_11_UNF1_##_20/xr BUSOWN-11_UNF1. ##
BUSOWN_11_UNF5_##_20/xr BUSOWN-11_UNF5. ##
BUSOWN_11_UNF6_##_20/xr BUSOWN-11_UNF6. ##
BUSOWN_11_UNF7_##_20/xr BUSOWN-11_UNF7. ##
BUSOWN_12_##_20/xr BUSOWN-12. ##
BUSOWN_14_##_20/xr BUSOWN-14. ##
BUSOWN_15_##_20/xr BUSOWN-15. ##
BUSOWN_16_##_20/xr BUSOWN-16. ##
BUSOWN_16_TRUNC_##_20/xr BUSOWN-16_TRUNC. ##
BUSOWN_17_##_20/xr BUSOWN-17. ##
BUSOWN_18_##_Y_20/xr BUSOWN-18. ##~Y
BUSOWN_19_##_20/xr BUSOWN-19. ##
BUSOWN_20_##_20/xr BUSOWN-20. ##
BUSOWN_21_##_20/xr BUSOWN-21. ##
BUSOWN_22_##_20/xr BUSOWN-22. ##
BUSOWN_23A_20/xr BUSOWN-23A
BUSOWN_23B_20/xr BUSOWN-23B
BUSOWN_24A_20/xr BUSOWN-24A
BUSOWN_24B_20/xr BUSOWN-24B
BUSOWN_25_20/xr BUSOWN-25
BUSOWN_27_20/xr BUSOWN-27
BUSOWN_28A_20/xr BUSOWN-28A
BUSOWN_28B_20/xr BUSOWN-28B
BUSOWN_29_20/xr BUSOWN-29
data busownmatch_all; merge busown.busown20 busown.busownmatch20; by norcid;
pastjobuid20_1_1 = opastjobuid_1_1;
pastjobuid20_2_1 = opastjobuid_2_1;
quality20_1 = oquality_1;
quality20_2 = oquality_2;
drop o:;
data busown_xrnd20; set busownmatch_all;
length busown_4_01_xr busown_4_02_xr $60.
busown_8_01_xr busown_8_02_xr $100.
busown_13_01_xr busown_13_02_xr $60.;
if busown_1_20>-4 then do;*Have ever owned a business;
busown_1_xr=busown_1_20;
busown_sourceyr=2020;
end;
if busown_2_20>-4 then busown_2_xr=busown_2_20;*how many business;
array bus4_20 (i) $ busown_4_01_20 busown_4_02_20;
array bus4_xr (i) $ busown_4_01_xr busown_4_02_xr;
array bus5_20 (i) busown_5_01_y_20 busown_5_02_y_20;
array bus5_xr (i) busown_5_01_y_xr busown_5_02_y_xr;
array bus6m_20 (i) busown_6_01_m_20 busown_6_02_m_20;
array bus6m_xr (i) busown_6_01_m_xr busown_6_02_m_xr;
array bus6y_20 (i) busown_6_01_y_20 busown_6_02_y_20;
array bus6y_xr (i) busown_6_01_y_xr busown_6_02_y_xr;
array bus7_20 (i) busown_7_01_20 busown_7_02_20;
array bus7_xr (i) busown_7_01_xr busown_7_02_xr;
array bus8_20 (i) $ busown_8_01_20 busown_8_02_20;
array bus8_xr (i) $ busown_8_01_xr busown_8_02_xr;
array bus9_20 (i) busown_9_01_20 busown_9_02_20;
array bus9_xr (i) busown_9_01_xr busown_9_02_xr;
array bus100_20 (i) busown_10_01_0_20 busown_10_02_0_20;
array bus100_xr (i) busown_10_01_0_xr busown_10_02_0_xr;
array bus101_20 (i) busown_10_01_1_20 busown_10_02_1_20;
array bus101_xr (i) busown_10_01_1_xr busown_10_02_1_xr;
array bus102_20 (i) busown_10_01_2_20 busown_10_02_2_20;
array bus102_xr (i) busown_10_01_2_xr busown_10_02_2_xr;
array bus103_20 (i) busown_10_01_3_20 busown_10_02_3_20;
array bus103_xr (i) busown_10_01_3_xr busown_10_02_3_xr;
array bus104_20 (i) busown_10_01_4_20 busown_10_02_4_20;
array bus104_xr (i) busown_10_01_4_xr busown_10_02_4_xr;
array bus105_20 (i) busown_10_01_5_20 busown_10_02_5_20;
array bus105_xr (i) busown_10_01_5_xr busown_10_02_5_xr;
array bus106_20 (i) busown_10_01_6_20 busown_10_02_6_20;
array bus106_xr (i) busown_10_01_6_xr busown_10_02_6_xr;
array bus107_20 (i) busown_10_01_7_20 busown_10_02_7_20;
array bus107_xr (i) busown_10_01_7_xr busown_10_02_7_xr;
array bus11_20 (i) busown_11_01_20 busown_11_02_20;
array bus11_xr (i) busown_11_01_xr busown_11_02_xr;
array bus11u1_20 (i) busown_11_unf1_01_20 busown_11_unf1_02_20;
array bus11u1_xr (i) busown_11_unf1_01_xr busown_11_unf1_02_xr;
array bus11u5_20 (i) busown_11_unf5_01_20 busown_11_unf5_02_20;
array bus11u5_xr (i) busown_11_unf5_01_xr busown_11_unf5_02_xr;
array bus11u6_20 (i) busown_11_unf6_01_20 busown_11_unf6_02_20;
array bus11u6_xr (i) busown_11_unf6_01_xr busown_11_unf6_02_xr;
array bus11u7_20 (i) busown_11_unf7_01_20 busown_11_unf7_02_20;
array bus11u7_xr (i) busown_11_unf7_01_xr busown_11_unf7_02_xr;
array bus12_20 (i) busown_12_01_20 busown_12_02_20;
array bus12_xr (i) busown_12_01_xr busown_12_02_xr;
array bus13_20 (i) $ busown_13_01_20 busown_13_02_20;
array bus13_xr (i) $ busown_13_01_xr busown_13_02_xr;
array bus14_20 (i) busown_14_01_20 busown_14_02_20;
array bus14_xr (i) busown_14_01_xr busown_14_02_xr;
array bus15_20 (i) busown_15_01_20 busown_15_02_20;
array bus15_xr (i) busown_15_01_xr busown_15_02_xr;
array bus16_20 (i) busown_16_01_20 busown_16_02_20;
array bus16_xr (i) busown_16_01_xr busown_16_02_xr;
array bus17_20 (i) busown_17_01_20 busown_17_02_20;
array bus17_xr (i) busown_17_01_xr busown_17_02_xr;
array bus18_20 (i) busown_18_01_y_20 busown_18_02_y_20;
array bus18_xr (i) busown_18_01_y_xr busown_18_02_y_xr;
array bus19_20 (i) busown_19_01_20 busown_19_02_20;
array bus19_xr (i) busown_19_01_xr busown_19_02_xr;
array bus20_20 (i) busown_20_01_20 busown_20_02_20;
array bus20_xr (i) busown_20_01_xr busown_20_02_xr;
array bus21_20 (i) busown_21_01_20 busown_21_02_20;
array bus21_xr (i) busown_21_01_xr busown_21_02_xr;
array bus22_20 (i) busown_22_01_20 busown_22_02_20;
array bus22_xr (i) busown_22_01_xr busown_22_02_xr;
do i=1 to 2;
if bus4_20~=' ' then bus4_xr=bus4_20;
if bus5_20>-4 then bus5_xr=bus5_20;
if bus6m_20>-4 then bus6m_xr=bus6m_20;
if bus6y_20>-4 then bus6y_xr=bus6y_20;
if bus7_20>-4 then bus7_xr=bus7_20;
if bus8_20~=' ' then bus8_xr=bus8_20;
if bus9_20>-4 then bus9_xr=bus9_20;
if bus101_20>-4 then bus101_xr=bus101_20;
if bus102_20>-4 then bus102_xr=bus102_20;
if bus103_20>-4 then bus103_xr=bus103_20;
if bus104_20>-4 then bus104_xr=bus104_20;
if bus105_20>-4 then bus105_xr=bus105_20;
if bus106_20>-4 then bus106_xr=bus106_20;
if bus107_20>-4 then bus107_xr=bus107_20;
if bus100_20>-4 then bus100_xr=bus107_20;
if bus11_20>-4 then bus11_xr=bus11_20;
if bus11u1_20>-4 then bus11u1_xr=bus11u1_20;
if bus11u5_20>-4 then bus11u5_xr=bus11u5_20;
if bus11u6_20>-4 then bus11u6_xr=bus11u6_20;
if bus11u7_20>-4 then bus11u7_xr=bus11u7_20;
if bus12_20>-4 then bus12_xr=bus12_20;
if bus13_20~=' ' then bus13_xr=bus13_20;
if bus14_20>-4 then bus14_xr=bus14_20;
if bus15_20>-4 then bus15_xr=bus15_20;
if bus16_20>-4 then bus16_xr=bus16_20;
if bus17_20>-4 then bus17_xr=bus17_20;
if bus18_20>-4 then bus18_xr=bus18_20;
if bus19_20>-4 then bus19_xr=bus19_20;
if bus20_20>-4 then bus20_xr=bus20_20;
if bus21_20>-4 then bus21_xr=bus21_20;
if bus22_20>-4 then bus22_xr=bus22_20;
end;
if busown_23a_20>-4 then busown_23a_xr=busown_23a_20;
if busown_23b_20>-4 then busown_23b_xr=busown_23b_20;
if busown_24a_20>-4 then busown_24a_xr=busown_24a_20;
if busown_24b_20>-4 then busown_24b_xr=busown_24b_20;
if busown_25_20>-4 then busown_25_xr=busown_25_20;
*if busown_27_20>-4 then busown_27_xr=busown_27_20;
*if busown_28a_20>-4 then busown_28a_xr=busown_28a_20;
*if busown_28b_20>-4 then busown_28b_xr=busown_28b_20;
if busown_29_20>-4 then busown_29_xr=busown_29_20;
array pastuid20 (2) pastjobuid20_1_1 pastjobuid20_2_1;
array qual20 (2) quality20_1-quality20_2;
array pastuid (2) pastjobuid_1_1 pastjobuid_2_1;
array qual (2) quality_1-quality_2;
array yr (2) matchyear_1-matchyear_2;
do i=1 to 2;
if qual20(i)~=. then do;
qual(i)=qual20(i);
pastuid(i)=pastuid20(i);
yr(i)=2020;
end;
end;
data busown_xrnd20b; set busown_xrnd20;
busown_11_01_trunc_xr = busown_11_01_xr;
busown_11_02_trunc_xr = busown_11_02_xr;
busown_16_01_trunc_xr = busown_16_01_xr;
busown_16_02_trunc_xr = busown_16_02_xr;