This appendix contains programs that produce a number of created variables in the current round (R30), survey year 2022.
Click below to view programming code.
/************************ Variables Used ************************/ /**Variable Names in data release Variable Names in program**/ CURDATE~M_2022 CURMO CURDATE~Y_2022 CURYR Q1-3_A~M_1979 BRTHMO79 Q1-3_A~M _1979 BRTHYR79 Q1-3_A~M_1981 BRTHMO81 Q1-3_A~Y_1981 BRTHYR81
/*--------------------------------------------------------------*/ curmo=CURDATE_M; curday=CURDATE_D; curyr=CURDATE_Y; if brthyr81 >= -4 then do; birthmo=brthmo81; birthda=brthda81; birthyr=brthyr81+1900; end; else do; birthmo=brthmo79; birthda=brthda79; 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;
/************************ Variables Used ************************/
/**Variable Names in data release Variable Names in program**/
CURDATE~Y_2022 CURDATEY
Q2-1_2022 Q2_1
Q2-2_2022 Q2_2
Q2-3-0A_2022 NEEDDATE
Q2-3-0B~M_2022 MO_MSINCORR
Q2-3-0B~Y_2022 YR_MSINCORR
Q2-3A_2022 Q2_3A
Q2-4AC_2022 CURMARNOCHG
Q2-4A_2022 CURMARCHG
Q2-5A1B.01_2022 LSTMARREPL1
Q2-5A1B.02_2022 LSTMARREPL2
Q2-5A1B.03_2022 LSTMARREPL2
Q2-5A1.01_2022 CHGL1_SDW
Q2-5A1.02_2022 CHGL2_SDW
Q2-5A1.03_2022 CHGL3_DRW
Q2-5A1_A.01_2022 CHGL1_DRW
Q2-5A1_A.02_2022 CHGL2_DRW
Q2-5B1.01~M_2022 MOCHG1A
Q2-5B1.01~Y_2022 YRCHG1A
Q2-5B2.01~M_2022 MOCHG1B
Q2-5B2.01~Y_2022 YRCHG1B
Q2-5B2.02~M_2022 MOCHG2B
Q2-5B2.02~Y_2022 YRCHG2B
Q2-5B2.03~M_2022 MOCHG3B
Q2-5B2.03~Y_2022 YRCHG3B
Q2-5B3.01~M_2022 MOCHG1C
Q2-5B3.01~Y_2022 YRCHG1C
Q2-5B3.02~M_2022 MOCHG2C
Q2-5B3.02~Y_2022 YRCHG2C
Q2-5B3.03~M_2022 MOCHG3C
Q2-5B3.03~Y_2022 YRCHG3C
Q2-5C1.01_2022 ANYCHGAFT1
Q2-5C1.02_2022 ANYCHGAFT2
Q2-5C1.03_2022 ANYCHGAFT3
Q2-5C1BB.01_2022 MSAFTC1
Q2-5C1BB.02_2022 MSAFTC2
Q2-5C1BB.03_2022 MSAFTC3
Q2-5E_2022 Q2_5E
Q2-5F_2022 Q2_5F
SYMBOL_MARCODE_2022 MARCODE
SYMBOL_OLDMARCODE_2022 OLDMARCODE
SYMBOL_MARCODEDLI_2022 MARCODEDLI
/*--------------------------------------------------------------*/
intv2022=1;
if CURDATEY=-5 then intv2022=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 intv2022=0 then finvars[i]=-5;
end;
MARRCHG122=marst_chng1_type;
MARRCHG1MO=marst_chng1_date_m;
MARRCHG1YR=marst_chng1_date_y;
MARRCHG222=marst_chng2_type;
MARRCHG2MO=marst_chng2_date_m;
MARRCHG2YR=marst_chng2_date_y;
MARRCHG322=marst_chng3_type;
MARRCHG3MO=marst_chng3_date_m;
MARRCHG3YR=marst_chng3_date_y;
/************************ Variables Used ************************/ /**Variable Names in data release Variable Names in program**/ Q2-4AC_2022 CURMARNC Q2-5C1BB.01_2022 MARCHNG1 Q2-5C1BB.02_2022 MARCHNG2 Q2-5C1BB.03_2022 MARCHNG3 RELSPPTR22 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;
/************************ Variables Used ************************/ /**Variable Names in data release Variable Names in program**/ CASEID NORCID CURDATE~D CURDAY CURDATE~M CURMO CURDATE~Y CURYR SYMBOL_PCY_YEAR PCYYRA SYMBOL_PCY_YEARNUM PCYYRN
/*--------------------------------------------------------------*/ length pcyyra $4.; if (norcid = .) then norcid = -4; if (curyr = .) then curyr = -4; if (curmo = .) then curmo = -4; if (curday = .) then curday = -4; if (pcyyrn = .) then pcyyrn = -4; past_calendar_year = curyr; if (pcyyra = '2021') then past_calendar_year = 2021; else if (pcyyra = '2022') then past_calendar_year = 2022;
/************************ Variables Used ************************/ /**Variable Names in data release Variable Names in program**/ CURDATE~D CURDATE_D CURDATE~M CURDATE_M CURDATE~Y CURDATE_Y CASEID norcid PUBLIC_ID pubid HHI_FINAL_RELCODE.01 HHI_FINAL_RELCODE_01 HHI_FINAL_RELCODE.02 HHI_FINAL_RELCODE_02 HHI_FINAL_RELCODE.03 HHI_FINAL_RELCODE_03 HHI_FINAL_RELCODE.04 HHI_FINAL_RELCODE_04 HHI_FINAL_RELCODE.05 HHI_FINAL_RELCODE_05 HHI_FINAL_RELCODE.06 HHI_FINAL_RELCODE_06 HHI_FINAL_RELCODE.07 HHI_FINAL_RELCODE_07 HHI_FINAL_RELCODE.08 HHI_FINAL_RELCODE_08 HHI_FINAL_RELCODE.09 HHI_FINAL_RELCODE_09 HHI_FINAL_RELCODE.10 HHI_FINAL_RELCODE_10 HHI_FINAL_STATCODE.01 HHI_FINAL_STATCODE_01 HHI_FINAL_STATCODE.02 HHI_FINAL_STATCODE_02 HHI_FINAL_STATCODE.03 HHI_FINAL_STATCODE_03 HHI_FINAL_STATCODE.04 HHI_FINAL_STATCODE_04 HHI_FINAL_STATCODE.05 HHI_FINAL_STATCODE_05 HHI_FINAL_STATCODE.06 HHI_FINAL_STATCODE_06 HHI_FINAL_STATCODE.07 HHI_FINAL_STATCODE_07 HHI_FINAL_STATCODE.08 HHI_FINAL_STATCODE_08 HHI_FINAL_STATCODE.09 HHI_FINAL_STATCODE_09 HHI_FINAL_STATCODE.10 HHI_FINAL_STATCODE_10
/*--------------------------------------------------------------*/ array varsall (m) CURDATE_D CURDATE_M CURDATE_Y norcid pubidf HHI_FINAL_RELCODE_01 HHI_FINAL_RELCODE_02 HHI_FINAL_RELCODE_03 HHI_FINAL_RELCODE_04 HHI_FINAL_RELCODE_05 HHI_FINAL_RELCODE_06 HHI_FINAL_RELCODE_07 HHI_FINAL_RELCODE_08 HHI_FINAL_RELCODE_09 HHI_FINAL_RELCODE_10 HHI_FINAL_STATCODE_01 HHI_FINAL_STATCODE_02 HHI_FINAL_STATCODE_03 HHI_FINAL_STATCODE_04 HHI_FINAL_STATCODE_05 HHI_FINAL_STATCODE_06 HHI_FINAL_STATCODE_07 HHI_FINAL_STATCODE_08 HHI_FINAL_STATCODE_09 HHI_FINAL_STATCODE_10; do over varsall; if missing(varsall) then varsall=-4; end; * ==============================================================================; * Compute family sizes; * ==============================================================================; /* --- Compute "family size '22" and "spouse '22" --- */ spou22=0; famsize=1; nonfamsize=0; if (hhi_final_relcode_01 = -5) then famsize = -5; array relation (i) hhi_final_relcode_01 - hhi_final_relcode_10; array statc (i) hhi_final_statcode_01 - hhi_final_statcode_10; /* Go thru all the relations and (1) if there is a relation (blood or by law), increase the family size, foster relations don't count (2) check whether one of them is a spouse */ /* does 57 "husband or brother-in-law" and 58 "wife or sister-in-law" count as spouse? */ /* 75 is husband, 76 is wife */ do i = 1 to 10; if (spou22 = 0 & relation = 1 ) then spou22=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 10; if ((33 <= relation <= 36) | relation = 45 | relation = 46 | (50 <= relation <= 54) | (relation > 66)) then nonfamsize = (nonfamsize +1); end;
/************************ Variables Used ************************/ /**Variable Names in data release Variable Names in program**/ QES-76Q.## qes_76q_## QES-76S.## qes_76s_## QES-76T.## qes_76t_## HRP## hrp## HRP#_WHRLY2 hrp_whrly#
/*--------------------------------------------------------------*/ array ophrly (i) qes_76q_01-qes_76q_14; array ohrpot (i) qes_76s_01-qes_76s_14; array ohrp (i) qes_76t_01-qes_76t_14; array hrp (i) hrp1-hrp14; array hrp_rec (i) hrp_rec1-hrp_rec14; array hrp_w (i) hrp1_whrly2 hrp2_whrly2 hrp3_whrly2 hrp4_whrly2 hrp5_whrly2 hrp6_whrly2 hrp7_whrly2 hrp8_whrly2 hrp9_whrly2 hrp10_whrly2 hrp11_whrly2 hrp12_whrly2 hrp13_whrly2 hrp14_whrly2; do i=1 to 14; if ophrly=1 then do; if ohrpot>-4 then hrp_rec=ohrpot; else if ohrp>-4 then hrp_rec=ohrp; 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;
/************************ Variables Used ************************/
/**Variable Names in program(## = 01/10)/Variable Names in data release(## = 01/10)**/
BUSOWN_LINT_22 BUSOWN-LINT (XRND)
BUSOWN_1_22/xr BUSOWN-1 (XRND)
BUSOWN_2_22/xr BUSOWN-2 (XRND)
BUSOWN_5_##_Y_22/xr BUSOWN-5. ##~Y (XRND)
BUSOWN_6_##_M_22/xr BUSOWN-6. ##~M (XRND)
BUSOWN_6_##_Y_22/xr BUSOWN-6. ##~Y (XRND)
BUSOWN_7_##_22/xr BUSOWN-7. ## (XRND)
BUSOWN_9_##_22/xr BUSOWN-9. ## (XRND)
BUSOWN_10_##_0_22/xr BUSOWN-10. ##_000000 (XRND)
BUSOWN_10_##_1_22/xr BUSOWN-10. ##_000001 (XRND)
BUSOWN_10_##_2_22/xr BUSOWN-10. ##_000002 (XRND)
BUSOWN_10_##_3_22/xr BUSOWN-10. ##_000003 (XRND)
BUSOWN_10_##_4_22/xr BUSOWN-10. ##_000004 (XRND)
BUSOWN_10_##_5_22/xr BUSOWN-10. ##_000005 (XRND)
BUSOWN_10_##_6_22/xr BUSOWN-10. ##_000006 (XRND)
BUSOWN_10_##_7_22/xr BUSOWN-10. ##_000007 (XRND)
BUSOWN_11_##_22/xr BUSOWN-11. ## (XRND)
BUSOWN_11_UNF1_##_22/xr BUSOWN-11_UNF1. ## (XRND)
BUSOWN_11_UNF5_##_22/xr BUSOWN-11_UNF5. ## (XRND)
BUSOWN_11_UNF6_##_20/xr BUSOWN-11_UNF6. ## (XRND)
BUSOWN_11_UNF7_##_20/xr BUSOWN-11_UNF7. ## (XRND)
BUSOWN_12_##_22/BUSOWN-12. ## (XRND)
BUSOWN_14_##_22/BUSOWN-14. ## (XRND)
BUSOWN_15_##_22/BUSOWN-15. ## (XRND)
BUSOWN_16_##_22/BUSOWN-16. ## (XRND)
BUSOWN_16_TRUNC_##_22/BUSOWN-16_TRUNC. ## (XRND)
BUSOWN_17_##_22/BUSOWN-17. ## (XRND)
BUSOWN_18_##_Y_22/BUSOWN-18. ##~Y (XRND)
BUSOWN_19_##_22/BUSOWN-19. ## (XRND)
BUSOWN_20_##_22/BUSOWN-20. ## (XRND)
BUSOWN_21_##_22/BUSOWN-21. ## (XRND)
BUSOWN_22_##_22/BUSOWN-22. ## (XRND)
BUSOWN_23A_22/BUSOWN-23A (XRND)
BUSOWN_23B_22/BUSOWN-23B (XRND)
BUSOWN_24A_22/BUSOWN-24A (XRND)
BUSOWN_24B_22/BUSOWN-24B (XRND)
BUSOWN_25_22/BUSOWN-25 (XRND)
BUSOWN_27_22/BUSOWN-27 (XRND)
BUSOWN_28A_22/BUSOWN-28A (XRND)
BUSOWN_28B_22/BUSOWN-28B (XRND)
BUSOWN_29_22/BUSOWN-29 (XRND)
BUSOWN_LINT_22 = BUSOWN_LINT;
BUSOWN_1_22 = BUSOWN_1;
BUSOWN_2_22 = BUSOWN_2;
BUSOWN_5_01_Y_22 = BUSOWN_5_01_Y;
BUSOWN_5_02_Y_22 = BUSOWN_5_02_Y;
BUSOWN_5_03_Y_22 = BUSOWN_5_03_Y;
BUSOWN_5_04_Y_22 = BUSOWN_5_04_Y;
BUSOWN_5_05_Y_22 = BUSOWN_5_05_Y;
BUSOWN_5_06_Y_22 = BUSOWN_5_06_Y;
BUSOWN_5_07_Y_22 = BUSOWN_5_07_Y;
BUSOWN_5_08_Y_22 = BUSOWN_5_08_Y;
BUSOWN_5_09_Y_22 = BUSOWN_5_09_Y;
BUSOWN_5_10_Y_22 = BUSOWN_5_10_Y;
BUSOWN_6_01_M_22 = BUSOWN_6_01_M;
BUSOWN_6_01_Y_22 = BUSOWN_6_01_Y;
BUSOWN_6_02_M_22 = BUSOWN_6_02_M;
BUSOWN_6_02_Y_22 = BUSOWN_6_02_Y;
BUSOWN_6_03_M_22 = BUSOWN_6_03_M;
BUSOWN_6_03_Y_22 = BUSOWN_6_03_Y;
BUSOWN_6_04_M_22 = BUSOWN_6_04_M;
BUSOWN_6_04_Y_22 = BUSOWN_6_04_Y;
BUSOWN_6_05_M_22 = BUSOWN_6_05_M;
BUSOWN_6_05_Y_22 = BUSOWN_6_05_Y;
BUSOWN_6_06_M_22 = BUSOWN_6_06_M;
BUSOWN_6_06_Y_22 = BUSOWN_6_06_Y;
BUSOWN_6_07_M_22 = BUSOWN_6_07_M;
BUSOWN_6_07_Y_22 = BUSOWN_6_07_Y;
BUSOWN_6_08_M_22 = BUSOWN_6_08_M;
BUSOWN_6_08_Y_22 = BUSOWN_6_08_Y;
BUSOWN_6_09_M_22 = BUSOWN_6_09_M;
BUSOWN_6_09_Y_22 = BUSOWN_6_09_Y;
BUSOWN_6_10_M_22 = BUSOWN_6_10_M;
BUSOWN_6_10_Y_22 = BUSOWN_6_10_Y;
BUSOWN_7_01_22 = BUSOWN_7_01;
BUSOWN_7_02_22 = BUSOWN_7_02;
BUSOWN_7_03_22 = BUSOWN_7_03;
BUSOWN_7_04_22 = BUSOWN_7_04;
BUSOWN_7_05_22 = BUSOWN_7_05;
BUSOWN_7_06_22 = BUSOWN_7_06;
BUSOWN_7_07_22 = BUSOWN_7_07;
BUSOWN_7_08_22 = BUSOWN_7_08;
BUSOWN_7_09_22 = BUSOWN_7_09;
BUSOWN_7_10_22 = BUSOWN_7_10;
BUSOWN_9_01_22 = BUSOWN_9_01;
BUSOWN_9_02_22 = BUSOWN_9_02;
BUSOWN_9_03_22 = BUSOWN_9_03;
BUSOWN_9_04_22 = BUSOWN_9_04;
BUSOWN_9_05_22 = BUSOWN_9_05;
BUSOWN_9_06_22 = BUSOWN_9_06;
BUSOWN_9_07_22 = BUSOWN_9_07;
BUSOWN_9_08_22 = BUSOWN_9_08;
BUSOWN_9_09_22 = BUSOWN_9_09;
BUSOWN_9_10_22 = BUSOWN_9_10;
BUSOWN_10_01_0_22 = BUSOWN_10_01_000000;
BUSOWN_10_01_1_22 = BUSOWN_10_01_000001;
BUSOWN_10_01_2_22 = BUSOWN_10_01_000002;
BUSOWN_10_01_3_22 = BUSOWN_10_01_000003;
BUSOWN_10_01_4_22 = BUSOWN_10_01_000004;
BUSOWN_10_01_5_22 = BUSOWN_10_01_000005;
BUSOWN_10_01_6_22 = BUSOWN_10_01_000006;
BUSOWN_10_01_7_22 = BUSOWN_10_01_000007;
BUSOWN_10_02_0_22 = BUSOWN_10_02_000000;
BUSOWN_10_02_1_22 = BUSOWN_10_02_000001;
BUSOWN_10_02_2_22 = BUSOWN_10_02_000002;
BUSOWN_10_02_3_22 = BUSOWN_10_02_000003;
BUSOWN_10_02_4_22 = BUSOWN_10_02_000004;
BUSOWN_10_02_5_22 = BUSOWN_10_02_000005;
BUSOWN_10_02_6_22 = BUSOWN_10_02_000006;
BUSOWN_10_02_7_22 = BUSOWN_10_02_000007;
BUSOWN_10_03_0_22 = BUSOWN_10_03_000000;
BUSOWN_10_03_1_22 = BUSOWN_10_03_000001;
BUSOWN_10_03_2_22 = BUSOWN_10_03_000002;
BUSOWN_10_03_3_22 = BUSOWN_10_03_000003;
BUSOWN_10_03_4_22 = BUSOWN_10_03_000004;
BUSOWN_10_03_5_22 = BUSOWN_10_03_000005;
BUSOWN_10_03_6_22 = BUSOWN_10_03_000006;
BUSOWN_10_03_7_22 = BUSOWN_10_03_000007;
BUSOWN_10_04_0_22 = BUSOWN_10_04_000000;
BUSOWN_10_04_1_22 = BUSOWN_10_04_000001;
BUSOWN_10_04_2_22 = BUSOWN_10_04_000002;
BUSOWN_10_04_3_22 = BUSOWN_10_04_000003;
BUSOWN_10_04_4_22 = BUSOWN_10_04_000004;
BUSOWN_10_04_5_22 = BUSOWN_10_04_000005;
BUSOWN_10_04_6_22 = BUSOWN_10_04_000006;
BUSOWN_10_04_7_22 = BUSOWN_10_04_000007;
BUSOWN_10_05_0_22 = BUSOWN_10_05_000000;
BUSOWN_10_05_1_22 = BUSOWN_10_05_000001;
BUSOWN_10_05_2_22 = BUSOWN_10_05_000002;
BUSOWN_10_05_3_22 = BUSOWN_10_05_000003;
BUSOWN_10_05_4_22 = BUSOWN_10_05_000004;
BUSOWN_10_05_5_22 = BUSOWN_10_05_000005;
BUSOWN_10_05_6_22 = BUSOWN_10_05_000006;
BUSOWN_10_05_7_22 = BUSOWN_10_05_000007;
BUSOWN_10_06_0_22 = BUSOWN_10_06_000000;
BUSOWN_10_06_1_22 = BUSOWN_10_06_000001;
BUSOWN_10_06_2_22 = BUSOWN_10_06_000002;
BUSOWN_10_06_3_22 = BUSOWN_10_06_000003;
BUSOWN_10_06_4_22 = BUSOWN_10_06_000004;
BUSOWN_10_06_5_22 = BUSOWN_10_06_000005;
BUSOWN_10_06_6_22 = BUSOWN_10_06_000006;
BUSOWN_10_06_7_22 = BUSOWN_10_06_000007;
BUSOWN_10_07_0_22 = BUSOWN_10_07_000000;
BUSOWN_10_07_1_22 = BUSOWN_10_07_000001;
BUSOWN_10_07_2_22 = BUSOWN_10_07_000002;
BUSOWN_10_07_3_22 = BUSOWN_10_07_000003;
BUSOWN_10_07_4_22 = BUSOWN_10_07_000004;
BUSOWN_10_07_5_22 = BUSOWN_10_07_000005;
BUSOWN_10_07_6_22 = BUSOWN_10_07_000006;
BUSOWN_10_07_7_22 = BUSOWN_10_07_000007;
BUSOWN_10_08_0_22 = BUSOWN_10_08_000000;
BUSOWN_10_08_1_22 = BUSOWN_10_08_000001;
BUSOWN_10_08_2_22 = BUSOWN_10_08_000002;
BUSOWN_10_08_3_22 = BUSOWN_10_08_000003;
BUSOWN_10_08_4_22 = BUSOWN_10_08_000004;
BUSOWN_10_08_5_22 = BUSOWN_10_08_000005;
BUSOWN_10_08_6_22 = BUSOWN_10_08_000006;
BUSOWN_10_08_7_22 = BUSOWN_10_08_000007;
BUSOWN_10_09_0_22 = BUSOWN_10_09_000000;
BUSOWN_10_09_1_22 = BUSOWN_10_09_000001;
BUSOWN_10_09_2_22 = BUSOWN_10_09_000002;
BUSOWN_10_09_3_22 = BUSOWN_10_09_000003;
BUSOWN_10_09_4_22 = BUSOWN_10_09_000004;
BUSOWN_10_09_5_22 = BUSOWN_10_09_000005;
BUSOWN_10_09_6_22 = BUSOWN_10_09_000006;
BUSOWN_10_09_7_22 = BUSOWN_10_09_000007;
BUSOWN_10_10_0_22 = BUSOWN_10_10_000000;
BUSOWN_10_10_1_22 = BUSOWN_10_10_000001;
BUSOWN_10_10_2_22 = BUSOWN_10_10_000002;
BUSOWN_10_10_3_22 = BUSOWN_10_10_000003;
BUSOWN_10_10_4_22 = BUSOWN_10_10_000004;
BUSOWN_10_10_5_22 = BUSOWN_10_10_000005;
BUSOWN_10_10_6_22 = BUSOWN_10_10_000006;
BUSOWN_10_10_7_22 = BUSOWN_10_10_000007;
BUSOWN_11_01_22 = BUSOWN_11_01;
BUSOWN_11_02_22 = BUSOWN_11_02;
BUSOWN_11_03_22 = BUSOWN_11_03;
BUSOWN_11_04_22 = BUSOWN_11_04;
BUSOWN_11_05_22 = BUSOWN_11_05;
BUSOWN_11_06_22 = BUSOWN_11_06;
BUSOWN_11_07_22 = BUSOWN_11_07;
BUSOWN_11_08_22 = BUSOWN_11_08;
BUSOWN_11_09_22 = BUSOWN_11_09;
BUSOWN_11_10_22 = BUSOWN_11_10;
BUSOWN_11_UNF1_01_22 = BUSOWN_11_UNF1_01;
BUSOWN_11_UNF1_02_22 = BUSOWN_11_UNF1_02;
BUSOWN_11_UNF1_03_22 = BUSOWN_11_UNF1_03;
BUSOWN_11_UNF1_04_22 = BUSOWN_11_UNF1_04;
BUSOWN_11_UNF1_05_22 = BUSOWN_11_UNF1_05;
BUSOWN_11_UNF1_06_22 = BUSOWN_11_UNF1_06;
BUSOWN_11_UNF1_07_22 = BUSOWN_11_UNF1_07;
BUSOWN_11_UNF1_08_22 = BUSOWN_11_UNF1_08;
BUSOWN_11_UNF1_09_22 = BUSOWN_11_UNF1_09;
BUSOWN_11_UNF1_10_22 = BUSOWN_11_UNF1_10;
BUSOWN_12_01_22 = BUSOWN_12_01;
BUSOWN_12_02_22 = BUSOWN_12_02;
BUSOWN_12_03_22 = BUSOWN_12_03;
BUSOWN_12_04_22 = BUSOWN_12_04;
BUSOWN_12_05_22 = BUSOWN_12_05;
BUSOWN_12_06_22 = BUSOWN_12_06;
BUSOWN_12_07_22 = BUSOWN_12_07;
BUSOWN_12_08_22 = BUSOWN_12_08;
BUSOWN_12_09_22 = BUSOWN_12_09;
BUSOWN_12_10_22 = BUSOWN_12_10;
BUSOWN_14_01_22 = BUSOWN_14_01;
BUSOWN_14_02_22 = BUSOWN_14_02;
BUSOWN_14_03_22 = BUSOWN_14_03;
BUSOWN_14_04_22 = BUSOWN_14_04;
BUSOWN_14_05_22 = BUSOWN_14_05;
BUSOWN_14_06_22 = BUSOWN_14_06;
BUSOWN_14_07_22 = BUSOWN_14_07;
BUSOWN_14_08_22 = BUSOWN_14_08;
BUSOWN_14_09_22 = BUSOWN_14_09;
BUSOWN_14_10_22 = BUSOWN_14_10;
BUSOWN_15_01_22 = BUSOWN_15_01;
BUSOWN_15_02_22 = BUSOWN_15_02;
BUSOWN_15_03_22 = BUSOWN_15_03;
BUSOWN_15_04_22 = BUSOWN_15_04;
BUSOWN_15_05_22 = BUSOWN_15_05;
BUSOWN_15_06_22 = BUSOWN_15_06;
BUSOWN_15_07_22 = BUSOWN_15_07;
BUSOWN_15_08_22 = BUSOWN_15_08;
BUSOWN_15_09_22 = BUSOWN_15_09;
BUSOWN_15_10_22 = BUSOWN_15_10;
BUSOWN_16_01_22 = BUSOWN_16_01;
BUSOWN_16_02_22 = BUSOWN_16_02;
BUSOWN_16_03_22 = BUSOWN_16_03;
BUSOWN_16_04_22 = BUSOWN_16_04;
BUSOWN_16_05_22 = BUSOWN_16_05;
BUSOWN_16_06_22 = BUSOWN_16_06;
BUSOWN_16_07_22 = BUSOWN_16_07;
BUSOWN_16_08_22 = BUSOWN_16_08;
BUSOWN_16_09_22 = BUSOWN_16_09;
BUSOWN_16_10_22 = BUSOWN_16_10;
BUSOWN_17_01_22 = BUSOWN_17_01;
BUSOWN_17_02_22 = BUSOWN_17_02;
BUSOWN_17_03_22 = BUSOWN_17_03;
BUSOWN_17_04_22 = BUSOWN_17_04;
BUSOWN_17_05_22 = BUSOWN_17_05;
BUSOWN_17_06_22 = BUSOWN_17_06;
BUSOWN_17_07_22 = BUSOWN_17_07;
BUSOWN_17_08_22 = BUSOWN_17_08;
BUSOWN_17_09_22 = BUSOWN_17_09;
BUSOWN_17_10_22 = BUSOWN_17_10;
BUSOWN_18_01_Y_22 = BUSOWN_18_01_Y;
BUSOWN_18_02_Y_22 = BUSOWN_18_02_Y;
BUSOWN_18_03_Y_22 = BUSOWN_18_03_Y;
BUSOWN_18_04_Y_22 = BUSOWN_18_04_Y;
BUSOWN_18_05_Y_22 = BUSOWN_18_05_Y;
BUSOWN_18_06_Y_22 = BUSOWN_18_06_Y;
BUSOWN_18_07_Y_22 = BUSOWN_18_07_Y;
BUSOWN_18_08_Y_22 = BUSOWN_18_08_Y;
BUSOWN_18_09_Y_22 = BUSOWN_18_09_Y;
BUSOWN_18_10_Y_22 = BUSOWN_18_10_Y;
BUSOWN_19_01_22 = BUSOWN_19_01;
BUSOWN_19_02_22 = BUSOWN_19_02;
BUSOWN_19_03_22 = BUSOWN_19_03;
BUSOWN_19_04_22 = BUSOWN_19_04;
BUSOWN_19_05_22 = BUSOWN_19_05;
BUSOWN_19_06_22 = BUSOWN_19_06;
BUSOWN_19_07_22 = BUSOWN_19_07;
BUSOWN_19_08_22 = BUSOWN_19_08;
BUSOWN_19_09_22 = BUSOWN_19_09;
BUSOWN_19_10_22 = BUSOWN_19_10;
BUSOWN_20_01_22 = BUSOWN_20_01;
BUSOWN_20_02_22 = BUSOWN_20_02;
BUSOWN_20_03_22 = BUSOWN_20_03;
BUSOWN_20_04_22 = BUSOWN_20_04;
BUSOWN_20_05_22 = BUSOWN_20_05;
BUSOWN_20_06_22 = BUSOWN_20_06;
BUSOWN_20_07_22 = BUSOWN_20_07;
BUSOWN_20_08_22 = BUSOWN_20_08;
BUSOWN_20_09_22 = BUSOWN_20_09;
BUSOWN_20_10_22 = BUSOWN_20_10;
BUSOWN_21_01_22 = BUSOWN_21_01;
BUSOWN_21_02_22 = BUSOWN_21_02;
BUSOWN_22_01_22 = BUSOWN_22_01;
BUSOWN_22_02_22 = BUSOWN_22_02;
BUSOWN_23A_22 = BUSOWN_23A;
BUSOWN_23B_22 = BUSOWN_23B;
BUSOWN_24A_22 = BUSOWN_24A;
BUSOWN_24B_22 = BUSOWN_24B;
BUSOWN_25_22 = BUSOWN_25;
BUSOWN_29_22 = BUSOWN_29;
if busown_1_22>-4 then do;
busown_1_xr=busown_1_22;
busown_sourceyr=2022;
end;
if busown_2_22>-4 then busown_2_xr=busown_2_22;
array bus5_22 (i) busown_5_01_y_22 busown_5_02_y_22 busown_5_03_y_22 busown_5_04_y_22 busown_5_05_y_22
busown_5_06_y_22 busown_5_07_y_22 busown_5_08_y_22 busown_5_09_y_22 busown_5_10_y_22;
array bus5_xr (i) busown_5_01_y_xr busown_5_02_y_xr busown_5_03_y_xr busown_5_04_y_xr busown_5_05_y_xr
busown_5_06_y_xr busown_5_07_y_xr busown_5_08_y_xr busown_5_09_y_xr busown_5_10_y_xr;
array bus6m_22 (i) busown_6_01_m_22 busown_6_02_m_22 busown_6_03_m_22 busown_6_04_m_22 busown_6_05_m_22
busown_6_06_m_22 busown_6_07_m_22 busown_6_08_m_22 busown_6_09_m_22 busown_6_10_m_22;
array bus6m_xr (i) busown_6_01_m_xr busown_6_02_m_xr busown_6_03_m_xr busown_6_04_m_xr busown_6_05_m_xr
busown_6_06_m_xr busown_6_07_m_xr busown_6_08_m_xr busown_6_09_m_xr busown_6_10_m_xr;
array bus6y_22 (i) busown_6_01_y_22 busown_6_02_y_22 busown_6_03_y_22 busown_6_04_y_22 busown_6_05_y_22
busown_6_06_y_22 busown_6_07_y_22 busown_6_08_y_22 busown_6_09_y_22 busown_6_10_y_22;
array bus6y_xr (i) busown_6_01_y_xr busown_6_02_y_xr busown_6_03_y_xr busown_6_04_y_xr busown_6_05_y_xr
busown_6_06_y_xr busown_6_07_y_xr busown_6_08_y_xr busown_6_09_y_xr busown_6_10_y_xr;
array bus7_22 (i) busown_7_01_22 busown_7_02_22 busown_7_03_22 busown_7_04_22 busown_7_05_22
busown_7_06_22 busown_7_07_22 busown_7_08_22 busown_7_09_22 busown_7_10_22;
array bus7_xr (i) busown_7_01_xr busown_7_02_xr busown_7_03_xr busown_7_04_xr busown_7_05_xr
busown_7_06_xr busown_7_07_xr busown_7_08_xr busown_7_09_xr busown_7_10_xr;
array bus9_22 (i) busown_9_01_22 busown_9_02_22 busown_9_03_22 busown_9_04_22 busown_9_05_22
busown_9_06_22 busown_9_07_22 busown_9_08_22 busown_9_09_22 busown_9_10_22;
array bus9_xr (i) busown_9_01_xr busown_9_02_xr busown_9_03_xr busown_9_04_xr busown_9_05_xr
busown_9_06_xr busown_9_07_xr busown_9_08_xr busown_9_09_xr busown_9_10_xr;
array bus100_22 (i) busown_10_01_0_22 busown_10_02_0_22 busown_10_03_0_22 busown_10_04_0_22 busown_10_05_0_22
busown_10_06_0_22 busown_10_07_0_22 busown_10_08_0_22 busown_10_09_0_22 busown_10_10_0_22;
array bus100_xr (i) busown_10_01_0_xr busown_10_02_0_xr busown_10_03_0_xr busown_10_04_0_xr busown_10_05_0_xr
busown_10_06_0_xr busown_10_07_0_xr busown_10_08_0_xr busown_10_09_0_xr busown_10_10_0_xr;
array bus101_22 (i) busown_10_01_1_22 busown_10_02_1_22 busown_10_03_1_22 busown_10_04_1_22 busown_10_05_1_22
busown_10_06_1_22 busown_10_07_1_22 busown_10_08_1_22 busown_10_09_1_22 busown_10_10_1_22;
array bus101_xr (i) busown_10_01_1_xr busown_10_02_1_xr busown_10_03_1_xr busown_10_04_1_xr busown_10_05_1_xr
busown_10_06_1_xr busown_10_07_1_xr busown_10_08_1_xr busown_10_09_1_xr busown_10_10_1_xr;
array bus102_22 (i) busown_10_01_2_22 busown_10_02_2_22 busown_10_03_2_22 busown_10_04_2_22 busown_10_05_2_22
busown_10_06_2_22 busown_10_07_2_22 busown_10_08_2_22 busown_10_09_2_22 busown_10_10_2_22;
array bus102_xr (i) busown_10_01_2_xr busown_10_02_2_xr busown_10_03_2_xr busown_10_04_2_xr busown_10_05_2_xr
busown_10_06_2_xr busown_10_07_2_xr busown_10_08_2_xr busown_10_09_2_xr busown_10_10_2_xr;
array bus103_22 (i) busown_10_01_3_22 busown_10_02_3_22 busown_10_03_3_22 busown_10_04_3_22 busown_10_05_3_22
busown_10_06_3_22 busown_10_07_3_22 busown_10_08_3_22 busown_10_09_3_22 busown_10_10_3_22;
array bus103_xr (i) busown_10_01_3_xr busown_10_02_3_xr busown_10_03_3_xr busown_10_04_3_xr busown_10_05_3_xr
busown_10_06_3_xr busown_10_07_3_xr busown_10_08_3_xr busown_10_09_3_xr busown_10_10_3_xr;
array bus104_22 (i) busown_10_01_4_22 busown_10_02_4_22 busown_10_03_4_22 busown_10_04_4_22 busown_10_05_4_22
busown_10_06_4_22 busown_10_07_4_22 busown_10_08_4_22 busown_10_09_4_22 busown_10_10_4_22;
array bus104_xr (i) busown_10_01_4_xr busown_10_02_4_xr busown_10_03_4_xr busown_10_04_4_xr busown_10_05_4_xr
busown_10_06_4_xr busown_10_07_4_xr busown_10_08_4_xr busown_10_09_4_xr busown_10_10_4_xr;
array bus105_22 (i) busown_10_01_5_22 busown_10_02_5_22 busown_10_03_5_22 busown_10_04_5_22 busown_10_05_5_22
busown_10_06_5_22 busown_10_07_5_22 busown_10_08_5_22 busown_10_09_5_22 busown_10_10_5_22;
array bus105_xr (i) busown_10_01_5_xr busown_10_02_5_xr busown_10_03_5_xr busown_10_04_5_xr busown_10_05_5_xr
busown_10_06_5_xr busown_10_07_5_xr busown_10_08_5_xr busown_10_09_5_xr busown_10_10_5_xr;
array bus106_22 (i) busown_10_01_6_22 busown_10_02_6_22 busown_10_03_6_22 busown_10_04_6_22 busown_10_05_6_22
busown_10_06_6_22 busown_10_07_6_22 busown_10_08_6_22 busown_10_09_6_22 busown_10_10_6_22;
array bus106_xr (i) busown_10_01_6_xr busown_10_02_6_xr busown_10_03_6_xr busown_10_04_6_xr busown_10_05_6_xr
busown_10_06_6_xr busown_10_07_6_xr busown_10_08_6_xr busown_10_09_6_xr busown_10_10_6_xr;
array bus107_22 (i) busown_10_01_7_22 busown_10_02_7_22 busown_10_03_7_22 busown_10_04_7_22 busown_10_05_7_22
busown_10_06_7_22 busown_10_07_7_22 busown_10_08_7_22 busown_10_09_7_22 busown_10_10_7_22;
array bus107_xr (i) busown_10_01_7_xr busown_10_02_7_xr busown_10_03_7_xr busown_10_04_7_xr busown_10_05_7_xr
busown_10_06_7_xr busown_10_07_7_xr busown_10_08_7_xr busown_10_09_7_xr busown_10_10_7_xr;
array bus11_22 (i) busown_11_01_22 busown_11_02_22 busown_11_03_22 busown_11_04_22 busown_11_05_22
busown_11_06_22 busown_11_07_22 busown_11_08_22 busown_11_09_22 busown_11_10_22;
array bus11_xr (i) busown_11_01_xr busown_11_02_xr busown_11_03_xr busown_11_04_xr busown_11_05_xr
busown_11_06_xr busown_11_07_xr busown_11_08_xr busown_11_09_xr busown_11_10_xr;
array bus11u1_22 (i) busown_11_unf1_01_22 busown_11_unf1_02_22 busown_11_unf1_03_22 busown_11_unf1_04_22 busown_11_unf1_05_22
busown_11_unf1_06_22 busown_11_unf1_07_22 busown_11_unf1_08_22 busown_11_unf1_09_22 busown_11_unf1_10_22;
array bus11u1_xr (i) busown_11_unf1_01_xr busown_11_unf1_02_xr busown_11_unf1_03_xr busown_11_unf1_04_xr busown_11_unf1_05_xr
busown_11_unf1_06_xr busown_11_unf1_07_xr busown_11_unf1_08_xr busown_11_unf1_09_xr busown_11_unf1_10_xr;
array bus12_22 (i) busown_12_01_22 busown_12_02_22 busown_12_03_22 busown_12_04_22 busown_12_05_22
busown_12_06_22 busown_12_07_22 busown_12_08_22 busown_12_09_22 busown_12_10_22;
array bus12_xr (i) busown_12_01_xr busown_12_02_xr busown_12_03_xr busown_12_04_xr busown_12_05_xr
busown_12_06_xr busown_12_07_xr busown_12_08_xr busown_12_09_xr busown_12_10_xr;
array bus14_22 (i) busown_14_01_22 busown_14_02_22 busown_14_03_22 busown_14_04_22 busown_14_05_22
busown_14_06_22 busown_14_07_22 busown_14_08_22 busown_14_09_22 busown_14_10_22;
array bus14_xr (i) busown_14_01_xr busown_14_02_xr busown_14_03_xr busown_14_04_xr busown_14_05_xr
busown_14_06_xr busown_14_07_xr busown_14_08_xr busown_14_09_xr busown_14_10_xr;
array bus15_22 (i) busown_15_01_22 busown_15_02_22 busown_15_03_22 busown_15_04_22 busown_15_05_22
busown_15_06_22 busown_15_07_22 busown_15_08_22 busown_15_09_22 busown_15_10_22;
array bus15_xr (i) busown_15_01_xr busown_15_02_xr busown_15_03_xr busown_15_04_xr busown_15_05_xr
busown_15_06_xr busown_15_07_xr busown_15_08_xr busown_15_09_xr busown_15_10_xr;
array bus16_22 (i) busown_16_01_22 busown_16_02_22 busown_16_03_22 busown_16_04_22 busown_16_05_22
busown_16_06_22 busown_16_07_22 busown_16_08_22 busown_16_09_22 busown_16_10_22;
array bus16_xr (i) busown_16_01_xr busown_16_02_xr busown_16_03_xr busown_16_04_xr busown_16_05_xr
busown_16_06_xr busown_16_07_xr busown_16_08_xr busown_16_09_xr busown_16_10_xr;
array bus17_22 (i) busown_17_01_22 busown_17_02_22 busown_17_03_22 busown_17_04_22 busown_17_05_22
busown_17_06_22 busown_17_07_22 busown_17_08_22 busown_17_09_22 busown_17_10_22;
array bus17_xr (i) busown_17_01_xr busown_17_02_xr busown_17_03_xr busown_17_04_xr busown_17_05_xr
busown_17_06_xr busown_17_07_xr busown_17_08_xr busown_17_09_xr busown_17_10_xr;
array bus18_22 (i) busown_18_01_y_22 busown_18_02_y_22 busown_18_03_y_22 busown_18_04_y_22 busown_18_05_y_22
busown_18_06_y_22 busown_18_07_y_22 busown_18_08_y_22 busown_18_09_y_22 busown_18_10_y_22;
array bus18_xr (i) busown_18_01_y_xr busown_18_02_y_xr busown_18_03_y_xr busown_18_04_y_xr busown_18_05_y_xr
busown_18_06_y_xr busown_18_07_y_xr busown_18_08_y_xr busown_18_09_y_xr busown_18_10_y_xr;
array bus19_22 (i) busown_19_01_22 busown_19_02_22 busown_19_03_22 busown_19_04_22 busown_19_05_22
busown_19_06_22 busown_19_07_22 busown_19_08_22 busown_19_09_22 busown_19_10_22;
array bus19_xr (i) busown_19_01_xr busown_19_02_xr busown_19_03_xr busown_19_04_xr busown_19_05_xr
busown_19_06_xr busown_19_07_xr busown_19_08_xr busown_19_09_xr busown_19_10_xr;
array bus20_22 (i) busown_20_01_22 busown_20_02_22 busown_20_03_22 busown_20_04_22 busown_20_05_22
busown_20_06_22 busown_20_07_22 busown_20_08_22 busown_20_09_22 busown_20_10_22;
array bus20_xr (i) busown_20_01_xr busown_20_02_xr busown_20_03_xr busown_20_04_xr busown_20_05_xr
busown_20_06_xr busown_20_07_xr busown_20_08_xr busown_20_09_xr busown_20_10_xr;
array bus21_22 (i) busown_21_01_22 busown_21_02_22 busown_21_03_22 busown_21_04_22 busown_21_05_22
busown_21_06_22 busown_21_07_22 busown_21_08_22 busown_21_09_22 busown_21_10_22;
array bus21_xr (i) busown_21_01_xr busown_21_02_xr busown_21_03_xr busown_21_04_xr busown_21_05_xr
busown_21_06_xr busown_21_07_xr busown_21_08_xr busown_21_09_xr busown_21_10_xr;
array bus22_22 (i) busown_22_01_22 busown_22_02_22 busown_22_03_22 busown_22_04_22 busown_22_05_22
busown_22_06_22 busown_22_07_22 busown_22_08_22 busown_22_09_22 busown_22_10_22;
array bus22_xr (i) busown_22_01_xr busown_22_02_xr busown_22_03_xr busown_22_04_xr busown_22_05_xr
busown_22_06_xr busown_22_07_xr busown_22_08_xr busown_22_09_xr busown_22_10_xr;
do i=1 to 10;
if bus5_22>-4 then bus5_xr=bus5_22;
if bus6m_22>-4 then bus6m_xr=bus6m_22;
if bus6y_22>-4 then bus6y_xr=bus6y_22;
if bus7_22>-4 then bus7_xr=bus7_22;
if bus9_22>-4 then bus9_xr=bus9_22;
if bus101_22>-4 then bus101_xr=bus101_22;
if bus102_22>-4 then bus102_xr=bus102_22;
if bus103_22>-4 then bus103_xr=bus103_22;
if bus104_22>-4 then bus104_xr=bus104_22;
if bus105_22>-4 then bus105_xr=bus105_22;
if bus106_22>-4 then bus106_xr=bus106_22;
if bus107_22>-4 then bus107_xr=bus107_22;
if bus100_22>-4 then bus100_xr=bus107_22;
if bus11_22>-4 then bus11_xr=bus11_22;
if bus11u1_22>-4 then bus11u1_xr=bus11u1_22;
if bus12_22>-4 then bus12_xr=bus12_22;
if bus14_22>-4 then bus14_xr=bus14_22;
if bus15_22>-4 then bus15_xr=bus15_22;
if bus16_22>-4 then bus16_xr=bus16_22;
if bus17_22>-4 then bus17_xr=bus17_22;
if bus18_22>-4 then bus18_xr=bus18_22;
if bus19_22>-4 then bus19_xr=bus19_22;
if bus20_22>-4 then bus20_xr=bus20_22;
if bus21_22>-4 then bus21_xr=bus21_22;
if bus22_22>-4 then bus22_xr=bus22_22;
end;
if busown_23a_22>-4 then busown_23a_xr=busown_23a_22;
if busown_23b_22>-4 then busown_23b_xr=busown_23b_22;
if busown_24a_22>-4 then busown_24a_xr=busown_24a_22;
if busown_24b_22>-4 then busown_24b_xr=busown_24b_22;
if busown_25_22>-4 then busown_25_xr=busown_25_22;
if busown_29_22>-4 then busown_29_xr=busown_29_22;
array pastuid22 (2) pastjobuid22_1_1 pastjobuid22_2_1;
array qual22 (2) quality22_1-quality22_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 qual22(i)~=. then do;
qual(i)=qual22(i);
pastuid(i)=pastuid22(i);
yr(i)=2022;
end;
end;
keep norcid busown_sourceyr
busown_1_xr busown_2_xr
busown_5_01_y_xr busown_5_02_y_xr busown_5_03_y_xr busown_5_04_y_xr busown_5_05_y_xr
busown_5_06_y_xr busown_5_07_y_xr busown_5_08_y_xr busown_5_09_y_xr busown_5_10_y_xr
busown_6_01_m_xr busown_6_02_m_xr busown_6_03_m_xr busown_6_04_m_xr busown_6_05_m_xr
busown_6_06_m_xr busown_6_07_m_xr busown_6_08_m_xr busown_6_09_m_xr busown_6_10_m_xr
busown_6_01_y_xr busown_6_02_y_xr busown_6_03_y_xr busown_6_04_y_xr busown_6_05_y_xr
busown_6_06_y_xr busown_6_07_y_xr busown_6_08_y_xr busown_6_09_y_xr busown_6_10_y_xr
busown_7_01_xr busown_7_02_xr busown_7_03_xr busown_7_04_xr busown_7_05_xr
busown_7_06_xr busown_7_07_xr busown_7_08_xr busown_7_09_xr busown_7_10_xr
busown_9_01_xr busown_9_02_xr busown_9_03_xr busown_9_04_xr busown_9_05_xr
busown_9_06_xr busown_9_07_xr busown_9_08_xr busown_9_09_xr busown_9_10_xr
busown_10_01_0_xr busown_10_02_0_xr busown_10_03_0_xr busown_10_04_0_xr busown_10_05_0_xr
busown_10_06_0_xr busown_10_07_0_xr busown_10_08_0_xr busown_10_09_0_xr busown_10_10_0_xr
busown_10_01_1_xr busown_10_02_1_xr busown_10_03_1_xr busown_10_04_1_xr busown_10_05_1_xr
busown_10_06_1_xr busown_10_07_1_xr busown_10_08_1_xr busown_10_09_1_xr busown_10_10_1_xr
busown_10_01_2_xr busown_10_02_2_xr busown_10_03_2_xr busown_10_04_2_xr busown_10_05_2_xr
busown_10_06_2_xr busown_10_07_2_xr busown_10_08_2_xr busown_10_09_2_xr busown_10_10_2_xr
busown_10_01_3_xr busown_10_02_3_xr busown_10_03_3_xr busown_10_04_3_xr busown_10_05_3_xr
busown_10_06_3_xr busown_10_07_3_xr busown_10_08_3_xr busown_10_09_3_xr busown_10_10_3_xr
busown_10_01_4_xr busown_10_02_4_xr busown_10_03_4_xr busown_10_04_4_xr busown_10_05_4_xr
busown_10_06_4_xr busown_10_07_4_xr busown_10_08_4_xr busown_10_09_4_xr busown_10_10_4_xr
busown_10_01_5_xr busown_10_02_5_xr busown_10_03_5_xr busown_10_04_5_xr busown_10_05_5_xr
busown_10_06_5_xr busown_10_07_5_xr busown_10_08_5_xr busown_10_09_5_xr busown_10_10_5_xr
busown_10_01_6_xr busown_10_02_6_xr busown_10_03_6_xr busown_10_04_6_xr busown_10_05_6_xr
busown_10_06_6_xr busown_10_07_6_xr busown_10_08_6_xr busown_10_09_6_xr busown_10_10_6_xr
busown_10_01_7_xr busown_10_02_7_xr busown_10_03_7_xr busown_10_04_7_xr busown_10_05_7_xr
busown_10_06_7_xr busown_10_07_7_xr busown_10_08_7_xr busown_10_09_7_xr busown_10_10_7_xr
busown_11_01_xr busown_11_02_xr busown_11_03_xr busown_11_04_xr busown_11_05_xr
busown_11_06_xr busown_11_07_xr busown_11_08_xr busown_11_09_xr busown_11_10_xr
busown_11_unf1_01_xr busown_11_unf1_02_xr busown_11_unf1_03_xr busown_11_unf1_04_xr busown_11_unf1_05_xr
busown_11_unf1_06_xr busown_11_unf1_07_xr busown_11_unf1_08_xr busown_11_unf1_09_xr busown_11_unf1_10_xr
busown_12_01_xr busown_12_02_xr busown_12_03_xr busown_12_04_xr busown_12_05_xr
busown_12_06_xr busown_12_07_xr busown_12_08_xr busown_12_09_xr busown_12_10_xr
busown_14_01_xr busown_14_02_xr busown_14_03_xr busown_14_04_xr busown_14_05_xr
busown_14_06_xr busown_14_07_xr busown_14_08_xr busown_14_09_xr busown_14_10_xr
busown_15_01_xr busown_15_02_xr busown_15_03_xr busown_15_04_xr busown_15_05_xr
busown_15_06_xr busown_15_07_xr busown_15_08_xr busown_15_09_xr busown_15_10_xr
busown_16_01_xr busown_16_02_xr busown_16_03_xr busown_16_04_xr busown_16_05_xr
busown_16_06_xr busown_16_07_xr busown_16_08_xr busown_16_09_xr busown_16_10_xr
busown_17_01_xr busown_17_02_xr busown_17_03_xr busown_17_04_xr busown_17_05_xr
busown_17_06_xr busown_17_07_xr busown_17_08_xr busown_17_09_xr busown_17_10_xr
busown_18_01_y_xr busown_18_02_y_xr busown_18_03_y_xr busown_18_04_y_xr busown_18_05_y_xr
busown_18_06_y_xr busown_18_07_y_xr busown_18_08_y_xr busown_18_09_y_xr busown_18_10_y_xr
busown_19_01_xr busown_19_02_xr busown_19_03_xr busown_19_04_xr busown_19_05_xr
busown_19_06_xr busown_19_07_xr busown_19_08_xr busown_19_09_xr busown_19_10_xr
busown_20_01_xr busown_20_02_xr busown_20_03_xr busown_20_04_xr busown_20_05_xr
busown_20_06_xr busown_20_07_xr busown_20_08_xr busown_20_09_xr busown_20_10_xr
busown_21_01_xr busown_21_02_xr
busown_22_01_xr busown_22_02_xr
busown_23a_xr busown_23b_xr
busown_24a_xr busown_24b_xr
busown_25_xr
busown_29_xr
pastjobuid_1_1 pastjobuid_2_1
quality_1-quality_2;
run;