Skip to main content
National Longitudinal Survey of Youth 1979 (NLSY79)

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;