Highest Grade Completed & Enrollment Status variable creation
Data releases since 2018 have included a created variable depicting the Highest Grade Ever Completed (HGC_EVER), found in the ”Key Variables” and “School” areas of interest. This XRND variable incorporates information through the respondent's most recent interview and will be updated for each round in which relevant questions are asked. The program that created this variable is accessible through a link at the end of this appendix.
The Highest Grade Completed variables for individual survey years are available from 1979-2016. The program used to create the most recent Highest Grade Completed (HGCREV) and Enrollment Status (ENROLLMTREV) as of May 1st is accessible through a link at the end of this appendix. Whenever possible, HGCREV variables have been adjusted for apparent reversals in grade and academic degree, so that the respondent’s highest grade completed during their lifetime is accurately reflected.
Highest Degree Ever Reported variable creation
A created variable depicting the Highest Degree Ever Reported (HIGHEST_DEGREE_EVER), has been added in the 2022 (round 30) data release. This XRND variable can be found in the KEY VARIABLES and DEGREES & CERTIFICATES areas of interest. HIGHEST_DEGREE_EVER incorporates information through the respondent's most recent interview. It will be updated for each future round in which relevant questions are asked. The program that created this variable is accessible through a link at the end of this appendix.
Users should note that in some cases, the HIGHEST_DEGREE_EVER will not necessarily match the traditional HGC_EVER. For instance, a respondent might report an Associate’s level degree, but 13 or 16 years of school, instead of the traditional 14. Or a respondent might report a bachelor’s degree for HIGHEST_DEGREE_EVER but have 17 or 18 years coded as HGC_EVER. This can be due several issues, including:
- Over many years, there can be occasional inconsistencies in respondent reports of the highest grade they have completed, and/or the highest degree they report. This could be due to many factors, from respondent memory or misreporting, to data entry errors.
- The highest grade completed may have been equated in some respondents’ minds as “years of school” rather than actual grade completed. For example, a respondent may have taken several more years to earn what used to be considered a traditional four-year bachelors degree, or multiple bachelors degrees. One might report a bachelor’s degree as HIGHEST_DEGREE_EVER, yet report 17 or 18 years as HGC_EVER. Many circumstances can lead to someone taking additional time to earn different types of degrees.
Every effort has been made to adjudicate discrepancies when possible, over the entirety of the respondent’s responses across survey years when constructing HGC_EVER and HIGHEST_DEGREE_EVER. Only academically ranked degrees are represented in HIGHEST_DEGREE_EVER. “Other” types of degrees for which not possible to determine an academic degree were superseded by the highest academic degree reported (high school diploma, associate’s degree, bachelor’s degree, etc.)
Program statements
Programs that create the XRND variables HGC_EVER and HIGHEST_DEGREE_EVER and the survey year HGCREV and ENROLLMTREV variables can be accessed by clicking below:
- Highest Grade Ever Completed as of Most Recent Interview
- Highest Grade Completed as of May 1, 2016
- Highest Degree Ever Completed as of Most Recent Interview
HIGHEST GRADE EVER COMPLETED as of Most Recent Interview
hgcrev20 = -4;
if (q3_4_2020 = -5) then hgcrev20 = -5;
else if (q3_1_2020 = 1 & q3_4_2020 >= 12 & q3_4_2020 < 95) then hgcrev20 = q3_4_2020;
else if (q3_1_2020 = 1 & q3_7_2020 = 1 & q3_4_2020 < 12) then hgcrev20 = 12;
else if (q3_1_2020 = 1 & q3_4_2020 > 0 & q3_4_2020 < 12) then hgcrev20 = q3_4_2020;
else if (q3_1_2020 = 1 & q3_4_2020 = 95) then hgcrev20 = -3;
else if (q3_1_2020 = 0 & hgc_ever_xrnd > -4) then hgcrev20 = hgc_ever_xrnd;
else if (q3_1_2020 = 0 & hgcrev16c > -4) then hgcrev20 = hgcrev16c;
else if (q3_1_2020 = 0 & hgcrev14c > -4) then hgcrev20 = hgcrev14c;
else if (q3_1_2020 = 0 & hgcrev12c > -4) then hgcrev20 = hgcrev12c;
else if (q3_1_2020 = 0 & hgcrev10c > -4) then hgcrev20 = hgcrev10c;
else if (q3_1_2020 = 0 & hgcrev08c > -4) then hgcrev20 = hgcrev08c;
else if (q3_1_2020 = 0 & hgcrev06c > -4) then hgcrev20 = hgcrev06c;
else if (q3_1_2020 = 0 & hgcrev04c > -4) then hgcrev20 = hgcrev04c;
else if (q3_1_2020 = 0 & hgcrev02c > -4) then hgcrev20 = hgcrev02c;
else if (q3_1_2020 = 0 & hgcrev00c > -4) then hgcrev20 = hgcrev00c;
else if (q3_1_2020 = 0 & hgcrev98c > -4) then hgcrev20 = hgcrev98c;
else if (q3_1_2020 = 0 & hgcrev96c > -4) then hgcrev20 = hgcrev96c;
else if (q3_1_2020 = 0 & hgcrev94c > -4) then hgcrev20 = hgcrev94c;
else if (q3_1_2020 = 0 & hgcrev93c > -4) then hgcrev20 = hgcrev93c;
else if (q3_1_2020 = 0 & hgcrev92c > -4) then hgcrev20 = hgcrev92c;
else if (q3_1_2020 = 0 & hgcrev91c > -4) then hgcrev20 = hgcrev91c;
else if (q3_1_2020 = 0 & hgcrev90c > -4) then hgcrev20 = hgcrev90c;
else if (q3_1_2020 = 0 & hgcrev89c > -4) then hgcrev20 = hgcrev89c;
else if (q3_1_2020 = 0 & hgcrev88c > -4) then hgcrev20 = hgcrev88c;
else if (q3_1_2020 = 0 & hgcrev87c > -4) then hgcrev20 = hgcrev87c;
else if (q3_1_2020 = 0 & hgcrev86c > -4) then hgcrev20 = hgcrev86c;
else if (q3_1_2020 = 0 & hgcrev85c > -4) then hgcrev20 = hgcrev85c;
else if (q3_1_2020 = 0 & hgcrev84c > -4) then hgcrev20 = hgcrev84c;
else if (q3_1_2020 = 0 & hgcrev83c > -4) then hgcrev20 = hgcrev83c;
else if (q3_1_2020 = 0 & hgcrev82c > -4) then hgcrev20 = hgcrev82c;
else if (q3_1_2020 = 0 & hgcrev81c > -4) then hgcrev20 = hgcrev81c;
else if (q3_1_2020 = 0 & hgcrev80c > -4) then hgcrev20 = hgcrev80c;
else if (q3_1_2020 = 0 & hgcrev79c > -4) then hgcrev20 = hgcrev79c;
hgc_ever=-4;
if (hgcrev20 > -4) then hgc_ever = hgcrev20;
else if (hgc_ever_xrnd > -4) then hgc_ever = hgc_ever_xrnd; /* hgc_ever is best info thru dli - so use as dli hgc */
else if (hgcrev16c > -4) then hgc_ever = hgcrev16c;
else if (hgcrev14c > -4) then hgc_ever = hgcrev14c;
else if (hgcrev12c > -4) then hgc_ever = hgcrev12c;
else if (hgcrev10c > -4) then hgc_ever = hgcrev10c;
else if (hgcrev08c > -4) then hgc_ever = hgcrev08c;
else if (hgcrev06c > -4) then hgc_ever = hgcrev06c;
else if (hgcrev04c > -4) then hgc_ever = hgcrev04c;
else if (hgcrev02c > -4) then hgc_ever = hgcrev02c;
else if (hgcrev00c > -4) then hgc_ever = hgcrev00c;
else if (hgcrev98c > -4) then hgc_ever = hgcrev98c;
else if (hgcrev96c > -4) then hgc_ever = hgcrev96c;
else if (hgcrev94c > -4) then hgc_ever = hgcrev94c;
else if (hgcrev93c > -4) then hgc_ever = hgcrev93c;
else if (hgcrev92c > -4) then hgc_ever = hgcrev92c;
else if (hgcrev91c > -4) then hgc_ever = hgcrev91c;
else if (hgcrev90c > -4) then hgc_ever = hgcrev90c;
else if (hgcrev89c > -4) then hgc_ever = hgcrev89c;
else if (hgcrev88c > -4) then hgc_ever = hgcrev88c;
else if (hgcrev87c > -4) then hgc_ever = hgcrev87c;
else if (hgcrev86c > -4) then hgc_ever = hgcrev86c;
else if (hgcrev85c > -4) then hgc_ever = hgcrev85c;
else if (hgcrev84c > -4) then hgc_ever = hgcrev84c;
else if (hgcrev83c > -4) then hgc_ever = hgcrev83c;
else if (hgcrev82c > -4) then hgc_ever = hgcrev82c;
else if (hgcrev81c > -4) then hgc_ever = hgcrev81c;
else if (hgcrev80c > -4) then hgc_ever = hgcrev80c;
else if (hgcrev79c > -4) then hgc_ever = hgcrev79c;
HIGHEST GRADE COMPLETED as of May 1, 2016
* Create all the necessary arrays;
array weightA (*) weight79 - weight94 weight96 weight98 weight00 weight02 weight04 weight06 weight08 weight10 weight12 weight14 ;
array intMoA (*) intMo79 - intMo94 intMo96 intMo98 intMo00 intMo02 intMo04 intMo06 intMo08 intMo10 intMo12 intMo14 ;
array dleMoA (*) dleMo79 - dleMo94 dleMo96 dleMo98 dleMo00 dleMo02 dleMo04 dleMo06 dleMo08 dleMo10 dleMo12 dleMo14 ;
array dleYrA (*) dleYr79 - dleYr94 dleYr96 dleYr98 dleYr00 dleYr02 dleYr04 dleYr06 dleYr08 dleYr10 dleYr12 dleYr14 ;
array curAtA (*) curAt79 - curAt94 curAt96 curAt98 curAt00 curAt02 curAt04 curAt06 curAt08 curAt10 curAt12 curAt14 ;
array hgcSA (*) hgcS79 - hgcS94 hgcS96 hgcS98 hgcS00 hgcS02 hgcS04 hgcS06 hgcS08 hgcS10 hgcS12 hgcS14 ;
array hgcA (*) hgc79 - hgc94 hgc96 hgc98 hgc00 hgc02 hgc04 hgc06 hgc08 hgc10 hgc12 hgc14 ;
array dipA (*) dip79 - dip94 dip96 dip98 dip00 dip02 dip04 dip06 dip08 dip10 dip12 dip14 ;
array intYrA (*) intYr79 - intYr94 intYr96 intYr98 intYr00 intYr02 intYr04 intYr06 intYr08 intYr10 intYr12 intYr14 ;
do i=1 to 15;
if weightA(i)>0 then intYrA(i) = 1978+i;
end;
array mayA (26) _TEMPORARY_ (5 17 29 41 53 65 77 89 101 113 125 137 149 161 173 185 209 233 257 281 305 329 353 377 401 425);
array intA (*) int79 - int94 int96 int98 int00 int02 int04 int06 int08 int10 int12 int14 ;
array dleA (*) dle79 - dle94 dle96 dle98 dle00 dle02 dle04 dle06 dle08 dle10 dle12 dle14 ;
hgc_cur=-4; *current highest grade completed;
do i=1 to dim (mayA);
if intMoA(i)>0 & intYrA(i)>0 then intA(i)=12*(intYrA(i)-1979)+intMoA(i);
else if weightA(i)=0 then intA(i)=-5;
if dleMoA(i)>0 & dleYrA(i)>0 then dleA(i)=12*(dleYrA(i)-1979)+dleMoA(i);
else if weightA(i)=0 then dleA(i)=-5;
else if -4<dleMoA(i)<0 or -4<dleYrA(i)<0 then dleA(i)=-3;
else dleA(i)=-4;
end;
*-------------------------------------------------------------------------------;
* Set HGC(i) and HGCS(i) to -5 if Weight = 0 ;
do i = 2 to dim(hgcA);
if (weightA(i) = 0) then do;
hgcA(i) = -5;
hgcsA(i) = -5;
end;
end;
*-------------------------------------------------------------------------------;
* Sometimes, set hgc_cur to hgcs(i) or hgc(i);
if (asli_cur = 0 and /* did not attend school since last interview */
flag16 = 1) then do i = dim(hgcA) to 1 by -1;
if (hgc_cur = -4 and weightA(i) > 0) then do; /* Highest Grade completed current */
if ( IntA(i) >= mayA(i) and /* Interviewed in May+ */
(CurAtA(i) = 1 or DLEA(i) >= mayA(i)) and /* Currently in school or was in school after May */
HgcSA(i) > HgcA(i) )
then hgc_cur = HgcSA(i); /* Highest grade completed*/
else hgc_cur = HgcA(i); /* Created HGC as of 05/01 survey year revised version*/
end;
end;
*-------------------------------------------------------------------------------;
if (asli_cur = 1 and flag16 = 1) then do;
if (hgcs_cur <= 0) then do;
if (curat_c = 1 and grade_c >= 1) then hgc_cur=(grade_c - 1);
else if (curat_c = 0 and hga_cur >= 1) then do;
if (dleyr_ca < curantYr) or (dleyr_ca=curantYr and dlemo_ca < 5) then
hgc_cur=hga_cur;
end;
else if hga_cur>0 then hgc_cur=(hga_cur - 1);
end;
else if ((hgcs_cur = hga_cur or hgcs_cur = grade_c)) then do;
if ((dleyr_ca>curantyr) or (dleyr_ca = curantyr and dlemo_ca >= 5) or (curat_c = 1)) then
hgc_cur=(hgcs_cur - 1);
else hgc_cur=hgcs_cur;
end;
else if ((hgcs_cur = (hga_cur-1)) or
(hgcs_cur = (grade_c-1)) or
(hgcs_cur < hga_cur and 0 < hga_cur <= 20) or
(hgcs_cur < grade_c and 0 < grade_c <= 20)) then
hgc_cur=hgcs_cur;
end;
*-------------------------------------------------------------------------------;
if ( ((hgc_cur = 10 or hgc_cur = 11) and (hvdip_c = 1 or attcol_c = 1)) or
(dip_cur>=1 and hgc_cur < 12) or
(hgc_cur = -4 and (dip_cur = 1 or dip_cur = 3))) then
hgc_cur=12;
else if (hgc_cur < 0 and dip_cur = -3) then
hgc_cur=-3;
*-------------------------------------------------------------------------------;
if ( (hgc_cur > 20) or
(hgc_cur > hgc_dli + 3 & hgc_dli > 0 & dip_cur ~= 2 & dip_cur ~= 3) or
(hgc_cur = 11 & hgc_dli = 12 )) then
hgc_cur=-3;
*-------------------------------------------------------------------------------;
tru=0; * true: 0 - does not have HS diploma (ever), 1 does have a HS diploma;
do i = 1 to dim(dipA);
*if (dipA(i) > 1) then do;
if (dipA(i) > =1) then do;
tru=1;
if (hgc_cur < 12) then hgc_cur=12; * has HS diploma => has HGC >= 12;
leave;
end;
end;
*-------------------------------------------------------------------------------;
if (flag16 = 0) then do;
hgc_cur=-5;
hgcRev_cur=-5;
end;
if (flag16 = 1) then do;
if (hgc_cur = -4) then hgc_cur=-3;
end;
/* ----------------------------------------------------------------------- */
* ============================================;
* ;
* Create revised variables ;
* ;
* ============================================;
/*
The revised variables take into account more accurately past reports of HGC to
eliminate regressive changes in HGC (for instance, preventing someone who has
previously reported completing 18 years of schooling, and is now working on an
undergraduate level in some area from being coded lower than 18) */
/* maxGrd - the highest hgc value ever computed */
maxGrd=hgc_cur;
do i = 1 to dim(hgcA);
if (weightA(i) > 0 & hgcA(i) > maxGrd) then maxGrd = hgcA(i);
end;
if (hgc_cur = -5) then maxGrd = -5;
array weightA (*) weight79 - weight94 weight96 weight98 weight00 weight02 weight04 weight06 weight08 weight10 weight12 weight14 ;
array intMoA (*) intMo79 - intMo94 intMo96 intMo98 intMo00 intMo02 intMo04 intMo06 intMo08 intMo10 intMo12 intMo14 ;
array dleMoA (*) dleMo79 - dleMo94 dleMo96 dleMo98 dleMo00 dleMo02 dleMo04 dleMo06 dleMo08 dleMo10 dleMo12 dleMo14 ;
array dleYrA (*) dleYr79 - dleYr94 dleYr96 dleYr98 dleYr00 dleYr02 dleYr04 dleYr06 dleYr08 dleYr10 dleYr12 dleYr14 ;
array curAtA (*) curAt79 - curAt94 curAt96 curAt98 curAt00 curAt02 curAt04 curAt06 curAt08 curAt10 curAt12 curAt14 ;
array hgcSA (*) hgcS79 - hgcS94 hgcS96 hgcS98 hgcS00 hgcS02 hgcS04 hgcS06 hgcS08 hgcS10 hgcS12 hgcS14 ;
array hgcA (*) hgc79 - hgc94 hgc96 hgc98 hgc00 hgc02 hgc04 hgc06 hgc08 hgc10 hgc12 hgc14 ;
array dipA (*) dip79 - dip94 dip96 dip98 dip00 dip02 dip04 dip06 dip08 dip10 dip12 dip14 ;
array intYrA (*) intYr79 - intYr94 intYr96 intYr98 intYr00 intYr02 intYr04 intYr06 intYr08 intYr10 intYr12 intYr14 ;
do i=1 to 15;
if weightA(i)>0 then intYrA(i) = 1978+i;
end;
array mayA (26) _TEMPORARY_ (5 17 29 41 53 65 77 89 101 113 125 137 149 161 173 185 209 233 257 281 305 329 353 377 401 425);
array intA (*) int79 - int94 int96 int98 int00 int02 int04 int06 int08 int10 int12 int14 ;
array dleA (*) dle79 - dle94 dle96 dle98 dle00 dle02 dle04 dle06 dle08 dle10 dle12 dle14 ;
hgc_cur=-4; *current highest grade completed;
do i=1 to dim (mayA);
if intMoA(i)>0 & intYrA(i)>0 then intA(i)=12*(intYrA(i)-1979)+intMoA(i);
else if weightA(i)=0 then intA(i)=-5;
if dleMoA(i)>0 & dleYrA(i)>0 then dleA(i)=12*(dleYrA(i)-1979)+dleMoA(i);
else if weightA(i)=0 then dleA(i)=-5;
else if -4<dleMoA(i)<0 or -4<dleYrA(i)<0 then dleA(i)=-3;
else dleA(i)=-4;
end;
*-------------------------------------------------------------------------------;
* Set HGC(i) and HGCS(i) to -5 if Weight = 0 ;
do i = 2 to dim(hgcA);
if (weightA(i) = 0) then do;
hgcA(i) = -5;
hgcsA(i) = -5;
end;
end;
*-------------------------------------------------------------------------------;
* Sometimes, set hgc_cur to hgcs(i) or hgc(i);
if (asli_cur = 0 and /* did not attend school since last interview */
flag16 = 1) then do i = dim(hgcA) to 1 by -1;
if (hgc_cur = -4 and weightA(i) > 0) then do; /* Highest Grade completed current */
if ( IntA(i) >= mayA(i) and /* Interviewed in May+ */
(CurAtA(i) = 1 or DLEA(i) >= mayA(i)) and /* Currently in school or was in school after May */
HgcSA(i) > HgcA(i) )
then hgc_cur = HgcSA(i);/* Highest grade completed*/
else hgc_cur = HgcA(i); /* Created HGC as of 05/01 survey year revised version*/
end;
end;
*-------------------------------------------------------------------------------;
if (asli_cur = 1 and flag16 = 1) then do;
if (hgcs_cur <= 0) then do;
if (curat_c = 1 and grade_c >= 1) then hgc_cur=(grade_c - 1);
else if (curat_c = 0 and hga_cur >= 1) then do;
if (dleyr_ca < curantYr) or (dleyr_ca=curantYr and dlemo_ca < 5) then
hgc_cur=hga_cur;
end;
else if hga_cur>0 then hgc_cur=(hga_cur - 1);
end;
else if ((hgcs_cur = hga_cur or hgcs_cur = grade_c)) then do;
if ((dleyr_ca>curantyr) or (dleyr_ca = curantyr and dlemo_ca >= 5) or (curat_c = 1)) then
hgc_cur=(hgcs_cur - 1);
else hgc_cur=hgcs_cur;
end;
else if ((hgcs_cur = (hga_cur-1)) or
(hgcs_cur = (grade_c-1)) or
(hgcs_cur < hga_cur and 0 < hga_cur <= 20) or
(hgcs_cur < grade_c and 0 < grade_c <= 20)) then
hgc_cur=hgcs_cur;
end;
*-------------------------------------------------------------------------------;
if ( ((hgc_cur = 10 or hgc_cur = 11) and (hvdip_c = 1 or attcol_c = 1)) or
(dip_cur>=1 and hgc_cur < 12) or
(hgc_cur = -4 and (dip_cur = 1 or dip_cur = 3))) then
hgc_cur=12;
else if (hgc_cur < 0 and dip_cur = -3) then
hgc_cur=-3;
*-------------------------------------------------------------------------------;
if ( (hgc_cur > 20) or
(hgc_cur > hgc_dli + 3 & hgc_dli > 0 & dip_cur ~= 2 & dip_cur ~= 3) or
(hgc_cur = 11 & hgc_dli = 12 )) then
hgc_cur=-3;
*-------------------------------------------------------------------------------;
tru=0; * true: 0 - does not have HS diploma (ever), 1 does have a HS diploma;
do i = 1 to dim(dipA);
*if (dipA(i) > 1) then do;
if (dipA(i) > =1) then do;
tru=1;
if (hgc_cur < 12) then hgc_cur=12; * has HS diploma => has HGC >= 12;
leave;
end;
end;
*-------------------------------------------------------------------------------;
if (flag16 = 0) then do;
hgc_cur=-5;
hgcRev_cur=-5;
end;
if (flag16 = 1) then do;
if (hgc_cur = -4) then hgc_cur=-3;
end;
/* ----------------------------------------------------------------------- */
* ============================================;
* ;
* Create revised variables ;
* ;
* ============================================;
/*
The revised variables take into account more accurately past reports of HGC to
eliminate regressive changes in HGC (for instance, preventing someone who has
previously reported completing 18 years of schooling, and is now working on an
undergraduate level in some area from being coded lower than 18) */
/* maxGrd - the highest hgc value ever computed */
maxGrd=hgc_cur;
do i = 1 to dim(hgcA);
if (weightA(i) > 0 & hgcA(i) > maxGrd) then maxGrd = hgcA(i);
end;
if (hgc_cur = -5) then maxGrd = -5;
hgcRev_cur = maxGrd;
HIGHEST DEGREE EVER COMPLETED as of Most Recent Interview
/**Variable Names in program Variable Names in data release**/
PUBID CASEID
Q3-4_1979 Q3_4_1979
Q3-8_1979 Q3_8_1979
Q3-8A_1979 Q3_8A_1979
Q3-8C_M_1979 Q3_8C_M_1979
Q3-8C_Y_1979 Q3_8C_Y_1979
MIL-56A_1979 MIL_56A_1979
MIL-56B_1979 MIL_56B_1979
MIL-57A_1979 MIL_57A_1979
MIL-57B_1979 MIL_57B_1979
MIL-62A_1979 MIL_62A_1979
MIL-62B_1979 MIL_62B_1979
CPS-27B_1979 CPS_27B_1979
TRN-8_1979 TRN_8_1979
TRN-8A_1_1979 TRN_8A_1_1979
TRN-8A_2_1979 TRN_8A_2_1979
TRN-8A_3_1979 TRN_8A_3_1979
TRN-8A_4_1979 TRN_8A_4_1979
TRN-8B_1_1979 TRN_8B_1_1979
TRN-8B_2_1979 TRN_8B_2_1979
TRN-8B_3_1979 TRN_8B_3_1979
TRN-8B_4_1979 TRN_8B_4_1979
TRN-8C_1_1979 TRN_8C_1_1979
TRN-8C_2_1979 TRN_8C_2_1979
TRN-8C_3_1979 TRN_8C_3_1979
TRN-8C_4_1979 TRN_8C_4_1979
TRN-8D_1_1979 TRN_8D_1_1979
TRN-8D_2_1979 TRN_8D_2_1979
TRN-8D_3_1979 TRN_8D_3_1979
TRN-8D_4_1979 TRN_8D_4_1979
TRN-8E_1_M_1979 TRN_8E_1_M_1979
TRN-8E_1_Y_1979 TRN_8E_1_Y_1979
TRN-8E_2_M_1979 TRN_8E_2_M_1979
TRN-8E_2_Y_1979 TRN_8E_2_Y_1979
TRN-8E_3_M_1979 TRN_8E_3_M_1979
TRN-8E_3_Y_1979 TRN_8E_3_Y_1979
TRN-8E_4_M_1979 TRN_8E_4_M_1979
TRN-8E_4_Y_1979 TRN_8E_4_Y_1979
TRN-8F_1_1979 TRN_8F_1_1979
TRN-8F_2_1979 TRN_8F_2_1979
TRN-8F_3_1979 TRN_8F_3_1979
TRN-8F_4_1979 TRN_8F_4_1979
TRN-9_1979 TRN_9_1979
HGCREV79_1979 HGCREV79_1979
Q3-1_1980 Q3_1_1980
Q3-4_1980 Q3_4_1980
Q3-7_1980 Q3_7_1980
Q3-8_1980 Q3_8_1980
Q3-8A_1980 Q3_8A_1980
Q3-8C_M_1980 Q3_8C_M_1980
Q3-8C_Y_1980 Q3_8C_Y_1980
MIL-56_1980 MIL_56_1980
MIL-57_1980 MIL_57_1980
MIL-56A_1980 MIL_56A_1980
MIL-57A_1980 MIL_57A_1980
MIL-62_1980 MIL_62_1980
CPS-27B_1980 CPS_27B_1980
Q3-10A_1980 Q3_10A_1980
DEGREE-1A_1_1980 DEGREE_1A_1_1980
DEGREE-1B_1_1980 DEGREE_1B_1_1980
DEGREE-1C_1_1980 DEGREE_1C_1_1980
DEGREE-1D_1_1980 DEGREE_1D_1_1980
DEGREE-1E_1_M_1980 DEGREE_1E_1_M_1980
DEGREE-1E_1_Y_1980 DEGREE_1E_1_Y_1980
DEGREE-1F_1_1980 DEGREE_1F_1_1980
DEGREE-1A_2_1980 DEGREE_1A_2_1980
DEGREE-1B_2_1980 DEGREE_1B_2_1980
DEGREE-1C_2_1980 DEGREE_1C_2_1980
DEGREE-1D_2_1980 DEGREE_1D_2_1980
DEGREE-1E_2_M_1980 DEGREE_1E_2_M_1980
DEGREE-1E_2_Y_1980 DEGREE_1E_2_Y_1980
DEGREE-1F_2_1980 DEGREE_1F_2_1980
DEGREE-2_1980 DEGREE_2_1980
HGCREV80_1980 HGCREV80_1980
Q3-1_1981 Q3_1_1981
Q3-4_1981 Q3_4_1981
Q3-7_1981 Q3_7_1981
Q3-8_1981 Q3_8_1981
Q3-8A_1981 Q3_8A_1981
Q3-8C_M_1981 Q3_8C_M_1981
Q3-8C_Y_1981 Q3_8C_Y_1981
Q3-10A_1981 Q3_10A_1981
DEGREE-1A_1_1981 DEGREE_1A_1_1981
SCHOOL-33_1981 SCHOOL_33_1981
DEGREE-1A_2_1981 DEGREE_1A_2_1981
DEGREE-2_1981 DEGREE_2_1981
MIL-56_1981 MIL_56_1981
MIL-57_1981 MIL_57_1981
MIL-56A_1981 MIL_56A_1981
MIL-57A_1981 MIL_57A_1981
MIL-62_1981 MIL_62_1981
HGCREV81_1981 HGCREV81_1981
Q3-1_1982 Q3_1_1982
Q3-4_1982 Q3_4_1982
Q3-7_1982 Q3_7_1982
Q3-8_1982 Q3_8_1982
Q3-8A_1982 Q3_8A_1982
Q3-8C_M_1982 Q3_8C_M_1982
Q3-8C_Y_1982 Q3_8C_Y_1982
Q3-10A_1982 Q3_10A_1982
DEGREE-1A_1_1982 DEGREE_1A_1_1982
SCHOOL-33_1982 SCHOOL_33_1982
DEGREE-1A_2_1982 DEGREE_1A_2_1982
DEGREE-2_1982 DEGREE_2_1982
MIL-56_1982 MIL_56_1982
MIL-57_1982 MIL_57_1982
MIL-56A_1982 MIL_56A_1982
MIL-57A_1982 MIL_57A_1982
MIL-62_1982 MIL_62_1982
HGCREV82_1982 HGCREV82_1982
Q3-1_1983 Q3_1_1983
Q3-4_1983 Q3_4_1983
Q3-7_1983 Q3_7_1983
Q3-8_1983 Q3_8_1983
Q3-8A_1983 Q3_8A_1983
Q3-8C_M_1983 Q3_8C_M_1983
Q3-8C_Y_1983 Q3_8C_Y_1983
Q3-10A_1983 Q3_10A_1983
DEGREE-1A_1_1983 DEGREE_1A_1_1983
SCHOOL-33_1983 SCHOOL_33_1983
DEGREE-1A_2_1983 DEGREE_1A_2_1983
DEGREE-2_1983 DEGREE_2_1983
MIL-56_1983 MIL_56_1983
MIL-57_1983 MIL_57_1983
MIL-56A_1983 MIL_56A_1983
MIL-57A_1983 MIL_57A_1983
MIL-62_1983 MIL_62_1983
HGCREV83_1983 HGCREV83_1983
Q3-1_1984 Q3_1_1984
Q3-4_1984 Q3_4_1984
Q3-7_1984 Q3_7_1984
Q3-8_1984 Q3_8_1984
Q3-8A_1984 Q3_8A_1984
Q3-8C_M_1984 Q3_8C_M_1984
Q3-8C_Y_1984 Q3_8C_Y_1984
Q3-10A_1984 Q3_10A_1984
DEGREE-1A_1_1984 DEGREE_1A_1_1984
SCHOOL-33_1984 SCHOOL_33_1984
DEGREE-1A_2_1984 DEGREE_1A_2_1984
DEGREE-2_1984 DEGREE_2_1984
MIL-56_1984 MIL_56_1984
MIL-57_1984 MIL_57_1984
MIL-56A_1984 MIL_56A_1984
MIL-57A_1984 MIL_57A_1984
MIL-62_1984 MIL_62_1984
HGCREV84_1984 HGCREV84_1984
Q3-1_1985 Q3_1_1985
Q3-4_1985 Q3_4_1985
Q3-7_1985 Q3_7_1985
Q3-8_1985 Q3_8_1985
Q3-8A_1985 Q3_8A_1985
Q3-8C_M_1985 Q3_8C_M_1985
Q3-8C_Y_1985 Q3_8C_Y_1985
MIL-56_1985 MIL_56_1985
MIL-56A_1985 MIL_56A_1985
MIL-57A_1985 MIL_57A_1985
MIL-62_1985 MIL_62_1985
HGCREV85_1985 HGCREV85_1985
Q3-1_1986 Q3_1_1986
Q3-4_1986 Q3_4_1986
Q3-7_1986 Q3_7_1986
Q3-8_1986 Q3_8_1986
Q3-8A_1986 Q3_8A_1986
Q3-8C~M_1986 Q3_8C_M_1986
Q3-8C~Y_1986 Q3_8C_Y_1986
HGCREV86_1986 HGCREV86_1986
Q3-1_1987 Q3_1_1987
Q3-4_1987 Q3_4_1987
Q3-7_1987 Q3_7_1987
Q3-8_1987 Q3_8_1987
Q3-8A_1987 Q3_8A_1987
Q3-8C_M_1987 Q3_8C_M_1987
Q3-8C_Y_1987 Q3_8C_Y_1987
HGCREV87_1987 HGCREV87_1987
Q3-1_1988 Q3_1_1988
Q3-4_1988 Q3_4_1988
Q3-7_1988 Q3_7_1988
Q3-8_1988 Q3_8_1988
Q3-8A_1988 Q3_8A_1988
Q3-8C_M_1988 Q3_8C_M_1988
Q3-8C_Y_1988 Q3_8C_Y_1988
Q3-10B_1988 Q3_10B_1988
Q3-10C_M_1988 Q3_10C_M_1988
Q3-10C_Y_1988 Q3_10C_Y_1988
HGCREV88_1988 HGCREV88_1988
Q3-1_1989 Q3_1_1989
Q3-4_1989 Q3_4_1989
Q3-7_1989 Q3_7_1989
Q3-8_1989 Q3_8_1989
Q3-8A_1989 Q3_8A_1989
Q3-8C_M_1989 Q3_8C_M_1989
Q3-8C_Y_1989 Q3_8C_Y_1989
Q3-10A_1989 Q3_10A_1989
Q3-10B_1989 Q3_10B_1989
Q3-10C_M_1989 Q3_10C_M_1989
Q3-10C_Y_1989 Q3_10C_Y_1989
HGCREV89_1989 HGCREV89_1989
Q3-1_1990 Q3_1_1990
Q3-4_1990 Q3_4_1990
Q3-7_1990 Q3_7_1990
Q3-8_1990 Q3_8_1990
Q3-8A_1990 Q3_8A_1990
Q3-8C_M_1990 Q3_8C_M_1990
Q3-8C_Y_1990 Q3_8C_Y_1990
Q3-10A_1990 Q3_10A_1990
Q3-10B_1990 Q3_10B_1990
Q3-10C_M_1990 Q3_10C_M_1990
Q3-10C_Y_1990 Q3_10C_Y_1990
HGCREV90_1990 HGCREV90_1990
Q3-1_1991 Q3_1_1991
Q3-4_1991 Q3_4_1991
Q3-7_1991 Q3_7_1991
Q3-8_1991 Q3_8_1991
Q3-8A_1991 Q3_8A_1991
Q3-8C_M_1991 Q3_8C_M_1991
Q3-8C_Y_1991 Q3_8C_Y_1991
Q3-10A_1991 Q3_10A_1991
Q3-10B_1991 Q3_10B_1991
Q3-10C_M_1991 Q3_10C_M_1991
Q3-10C_Y_1991 Q3_10C_Y_1991
HGCREV91_1991 HGCREV91_1991
Q3-1_1992 Q3_1_1992
Q3-4_1992 Q3_4_1992
Q3-7_1992 Q3_7_1992
Q3-8_1992 Q3_8_1992
Q3-8A_1992 Q3_8A_1992
Q3-8C_M_1992 Q3_8C_M_1992
Q3-8C_Y_1992 Q3_8C_Y_1992
Q3-10A_1992 Q3_10A_1992
Q3-10B_1992 Q3_10B_1992
Q3-10C_M_1992 Q3_10C_M_1992
Q3-10C_Y_1992 Q3_10C_Y_1992
HGCREV92_1992 HGCREV92_1992
Q3-1_1993 Q3_1_1993
Q3-4_1993 Q3_4_1993
Q3-7_1993 Q3_7_1993
Q3-8_1993 Q3_8_1993
Q3-8A_1993 Q3_8A_1993
Q3-8B~M_1993 Q3_8B_M_1993
Q3-8B~Y_1993 Q3_8B_Y_1993
Q3-10A_1993 Q3_10A_1993
Q3-10B_1993 Q3_10B_1993
Q3-10C~M_1993 Q3_10C_M_1993
Q3-10C~Y_1993 Q3_10C_Y_1993
HGCREV93_1993 HGCREV93_1993
Q3-1_1994 Q3_1_1994
Q3-4_1994 Q3_4_1994
Q3-7_1994 Q3_7_1994
Q3-8_1994 Q3_8_1994
Q3-8A_1994 Q3_8A_1994
Q3-8B~M_1994 Q3_8B_M_1994
Q3-8B~Y_1994 Q3_8B_Y_1994
Q3-8C~M_1994 Q3_8C_M_1994
Q3-8C~Y_1994 Q3_8C_Y_1994
Q3-10A_1994 Q3_10A_1994
Q3-10B_1994 Q3_10B_1994
Q3-10C~M_1994 Q3_10C_M_1994
Q3-10C~Y_1994 Q3_10C_Y_1994
HGCREV94_1994 HGCREV94_1994
HGCREV96_1996 HGCREV96_1996
Q3-1_1996 Q3_1_1996
Q3-4_1996 Q3_4_1996
Q3-7_1996 Q3_7_1996
Q3-8_1996 Q3_8_1996
Q3-8A_1996 Q3_8A_1996
Q3-8B~M_1996 Q3_8B_M_1996
Q3-8B~Y_1996 Q3_8B_Y_1996
Q3-8C~M_1996 Q3_8C_M_1996
Q3-8C~Y_1996 Q3_8C_Y_1996
Q3-10A_1996 Q3_10A_1996
Q3-10B_1996 Q3_10B_1996
Q3-10C~M_1996 Q3_10C_M_1996
Q3-10C~Y_1996 Q3_10C_Y_1996
Q3-1_1998 Q3_1_1998
Q3-4_1998 Q3_4_1998
Q3-7_1998 Q3_7_1998
Q3-8_1998 Q3_8_1998
Q3-8A_1998 Q3_8A_1998
Q3-8B~M_1998 Q3_8B_M_1998
Q3-8B~Y_1998 Q3_8B_Y_1998
Q3-8C~M_1998 Q3_8C_M_1998
Q3-8C~Y_1998 Q3_8C_Y_1998
Q3-10A_1998 Q3_10A_1998
Q3-10B_1998 Q3_10B_1998
Q3-10C~M_1998 Q3_10C_M_1998
Q3-10C~Y_1998 Q3_10C_Y_1998
Q11-H40CHRC-13A_1998 Q11_H40CHRC_13A_1998
Q11-H40CHRC-13B_1998 Q11_H40CHRC_13B_1998
HGCREV98_1998 HGCREV98_1998
Q3-1_2000 Q3_1_2000
Q3-4_2000 Q3_4_2000
Q3-7_2000 Q3_7_2000
Q3-8_2000 Q3_8_2000
Q3-8A_2000 Q3_8A_2000
Q3-8B~M_2000 Q3_8B_M_2000
Q3-8B~Y_2000 Q3_8B_Y_2000
Q3-8C~M_2000 Q3_8C_M_2000
Q3-8C~Y_2000 Q3_8C_Y_2000
Q3-10A_2000 Q3_10A_2000
Q3-10B_2000 Q3_10B_2000
Q3-10C~M_2000 Q3_10C_M_2000
Q3-10C~Y_2000 Q3_10C_Y_2000
Q11-H40CHRC-13A_2000 Q11_H40CHRC_13A_2000
Q11-H40CHRC-13B_2000 Q11_H40CHRC_13B_2000
HGCREV00_2000 HGCREV00_2000
Q3-1_2002 Q3_1_2002
Q3-4_2002 Q3_4_2002
Q3-7_2002 Q3_7_2002
Q3-8_2002 Q3_8_2002
Q3-8A_2002 Q3_8A_2002
Q3-8B~M_2002 Q3_8B_M_2002
Q3-8B~Y_2002 Q3_8B_Y_2002
Q3-8C~M_2002 Q3_8C_M_2002
Q3-8C~Y_2002 Q3_8C_Y_2002
Q3-10A_2002 Q3_10A_2002
Q3-10B_2002 Q3_10B_2002
Q3-10C~M_2002 Q3_10C_M_2002
Q3-10C~Y_2002 Q3_10C_Y_2002
HGCREV02_2002 HGCREV02_2002
Q3-1_2004 Q3_1_2004
Q3-4_2004 Q3_4_2004
Q3-7_2004 Q3_7_2004
Q3-8_2004 Q3_8_2004
Q3-8A_2004 Q3_8A_2004
Q3-8B~M_2004 Q3_8B_M_2004
Q3-8B~Y_2004 Q3_8B_Y_2004
Q3-8C~M_2004 Q3_8C_M_2004
Q3-8C~Y_2004 Q3_8C_Y_2004
Q3-10A_2004 Q3_10A_2004
Q3-10B_2004 Q3_10B_2004
Q3-10C~M_2004 Q3_10C_M_2004
Q3-10C~Y_2004 Q3_10C_Y_2004
HGCREV04_2004 HGCREV04_2004
Q3-1_2006 Q3_1_2006
Q3-4_2006 Q3_4_2006
Q3-7_2006 Q3_7_2006
Q3-8_2006 Q3_8_2006
Q3-8A_2006 Q3_8A_2006
Q3-8B~M_2006 Q3_8B_M_2006
Q3-8B~Y_2006 Q3_8B_Y_2006
Q3-8C~M_2006 Q3_8C_M_2006
Q3-8C~Y_2006 Q3_8C_Y_2006
Q3-10A_2006 Q3_10A_2006
Q3-10B_2006 Q3_10B_2006
Q3-10C~M_2006 Q3_10C_M_2006
Q3-10C~Y_2006 Q3_10C_Y_2006
HGCREV06_2006 HGCREV06_2006
Q3-1_2008 Q3_1_2008
Q3-4_2008 Q3_4_2008
Q3-7_2008 Q3_7_2008
Q3-8_2008 Q3_8_2008
Q3-8A_2008 Q3_8A_2008
Q3-8B~M_2008 Q3_8B_M_2008
Q3-8B~Y_2008 Q3_8B_Y_2008
Q3-8C~M_2008 Q3_8C_M_2008
Q3-8C~Y_2008 Q3_8C_Y_2008
Q3-10A_2008 Q3_10A_2008
Q3-10B_2008 Q3_10B_2008
Q3-10C~M_2008 Q3_10C_M_2008
Q3-10C~Y_2008 Q3_10C_Y_2008
Q3-10D_2008 Q3_10D_2008
Q3-10E~M_2008 Q3_10E_M_2008
Q3-10E~Y_2008 Q3_10E_Y_2008
HGCREV08_2008 HGCREV08_2008
Q3-1_2010 Q3_1_2010
Q3-4_2010 Q3_4_2010
Q3-7_2010 Q3_7_2010
Q3-8_2010 Q3_8_2010
Q3-8A_2010 Q3_8A_2010
Q3-8B~M_2010 Q3_8B_M_2010
Q3-8B~Y_2010 Q3_8B_Y_2010
Q3-8C~M_2010 Q3_8C_M_2010
Q3-8C~Y_2010 Q3_8C_Y_2010
Q3-10A_2010 Q3_10A_2010
Q3-10B_2010 Q3_10B_2010
Q3-10C~M_2010 Q3_10C_M_2010
Q3-10C~Y_2010 Q3_10C_Y_2010
Q3-10D_2010 Q3_10D_2010
Q3-10E~M_2010 Q3_10E_M_2010
Q3-10E~Y_2010 Q3_10E_Y_2010
HGCREV10_2010 HGCREV10_2010
Q3-1_2012 Q3_1_2012
Q3-4_2012 Q3_4_2012
Q3-7_2012 Q3_7_2012
Q3-8_2012 Q3_8_2012
Q3-8A_2012 Q3_8A_2012
Q3-8B~M_2012 Q3_8B_M_2012
Q3-8B~Y_2012 Q3_8B_Y_2012
Q3-8C~M_2012 Q3_8C_M_2012
Q3-8C~Y_2012 Q3_8C_Y_2012
Q3-10A_2012 Q3_10A_2012
Q3-10B_2012 Q3_10B_2012
Q3-10C~M_2012 Q3_10C_M_2012
Q3-10C~Y_2012 Q3_10C_Y_2012
Q3-10D_2012 Q3_10D_2012
Q3-10E~M_2012 Q3_10E_M_2012
Q3-10E~Y_2012 Q3_10E_Y_2012
HGCREV12_2012 HGCREV12_2012
Q3-1_2014 Q3_1_2014
Q3-4_2014 Q3_4_2014
Q3-7_2014 Q3_7_2014
Q3-8_2014 Q3_8_2014
Q3-8A_2014 Q3_8A_2014
Q3-8B~M_2014 Q3_8B_M_2014
Q3-8B~Y_2014 Q3_8B_Y_2014
Q3-8C~M_2014 Q3_8C_M_2014
Q3-8C~Y_2014 Q3_8C_Y_2014
Q3-10A_2014 Q3_10A_2014
Q3-10B_2014 Q3_10B_2014
Q3-10C~M_2014 Q3_10C_M_2014
Q3-10C~Y_2014 Q3_10C_Y_2014
Q3-10C_CHK0_2014 Q3_10C_CHK0_2014
Q3-10D_2014 Q3_10D_2014
Q3-10E~M_2014 Q3_10E_M_2014
Q3-10E~Y_2014 Q3_10E_Y_2014
HGCREV14_2014 HGCREV14_2014
Q3-1_2016 Q3_1_2016
Q3-4_2016 Q3_4_2016
Q3-7_2016 Q3_7_2016
Q3-8_2016 Q3_8_2016
Q3-8A_2016 Q3_8A_2016
Q3-8B~M_2016 Q3_8B_M_2016
Q3-8B~Y_2016 Q3_8B_Y_2016
Q3-8C~M_2016 Q3_8C_M_2016
Q3-8C~Y_2016 Q3_8C_Y_2016
Q3-10A_2016 Q3_10A_2016
Q3-10B_2016 Q3_10B_2016
Q3-10C~M_2016 Q3_10C_M_2016
Q3-10C~Y_2016 Q3_10C_Y_2016
Q3-10C_CHK0_2016 Q3_10C_CHK0_2016
Q3-10D_2016 Q3_10D_2016
Q3-10E~M_2016 Q3_10E_M_2016
Q3-10E~Y_2016 Q3_10E_Y_2016
HGCREV16_2016 HGCREV16_2016
CURDATE~D_2018 CURDATE_D_2018
CURDATE~M_2018 CURDATE_M_2018
CURDATE~Y_2018 CURDATE_Y_2018
Q3-1_2018 Q3_1_2018
Q3-4_2018 Q3_4_2018
Q3-7_2018 Q3_7_2018
Q3-8_2018 Q3_8_2018
Q3-8A_2018 Q3_8A_2018
Q3-8B~M_2018 Q3_8B_M_2018
Q3-8B~Y_2018 Q3_8B_Y_2018
Q3-8C~M_2018 Q3_8C_M_2018
Q3-8C~Y_2018 Q3_8C_Y_2018
Q3-10A_2018 Q3_10A_2018
Q3-10B_2018 Q3_10B_2018
Q3-10C~M_2018 Q3_10C_M_2018
Q3-10C~Y_2018 Q3_10C_Y_2018
Q3-10C_CHK0_2018 Q3_10C_CHK0_2018
Q3-10D_2018 Q3_10D_2018
Q3-10E~M_2018 Q3_10E_M_2018
Q3-10E~Y_2018 Q3_10E_Y_2018
Q3-20B.01_2018 Q3_20B_01_2018
Q3-20B.02_2018 Q3_20B_02_2018
Q3-20B.03_2018 Q3_20B_03_2018
Q3-28.01_2018 Q3_28_01_2018
Q3-28.02_2018 Q3_28_02_2018
Q3-28.03_2018 Q3_28_03_2018
Q3-29.01~M_2018 Q3_29_01_M_2018
Q3-29.01~Y_2018 Q3_29_01_Y_2018
Q3-29.02~M_2018 Q3_29_02_M_2018
Q3-29.02~Y_2018 Q3_29_02_Y_2018
Q3-29.03~M_2018 Q3_29_03_M_2018
Q3-29.03~Y_2018 Q3_29_03_Y_2018
Q3-1_2020 Q3_1_2020
Q3-4_2020 Q3_4_2020
Q3-7_2020 Q3_7_2020
Q3-10A_2020 Q3_10A_2020
Q3-10B_2020 Q3_10B_2020
Q3-10C~M_2020 Q3_10C_M_2020
Q3-10C~Y_2020 Q3_10C_Y_2020
Q3-10D_2020 Q3_10D_2020
Q3-10E~M_2020 Q3_10E_M_2020
Q3-10E~Y_2020 Q3_10E_Y_2020
HGC_EVER_XRND HGC_EVER_XRND
HGC_EVER_YEAR_XRND HGC_EVER_YEAR_XRND
/*************************************/
/* highest degree 1979 */
/*************************************/
hidegree_1979 = -4;
hidegree_m_1979 = -4;
hidegree_y_1979 = -4;
hdged_m_1979 = -4;
hdged_y_1979 = -4;
degreenum_1979 = 0;
degreehi4_1979 = -4;
degreehi4_m_1979 = -4;
degreehi4_y_1979 = -4;
trn_8a_1_1979r = -4;
trn_8a_2_1979r = -4;
trn_8a_3_1979r = -4;
trn_8a_4_1979r = -4;
mil_57a_1979r = -4;
mil_57b_1979r = -4;
array trn_8a_79 (m) trn_8a_1_1979 trn_8a_2_1979 trn_8a_3_1979 trn_8a_4_1979;
array trn_8a_79r (m) trn_8a_1_1979r trn_8a_2_1979r trn_8a_3_1979r trn_8a_4_1979r;
do m = 1 to 4;
if (trn_8a_79 = 1) then trn_8a_79r = 2;
if (trn_8a_79 = 2) then trn_8a_79r = 3;
if (trn_8a_79 = 3) then trn_8a_79r = 5;
if (trn_8a_79 = 176) then trn_8a_79r = 7;
end;
array mil_57_79 (m) mil_57a_1979 mil_57b_1979;
array mil_57_79r (m) mil_57a_1979r mil_57b_1979r;
do m = 1 to 2;
if (mil_57_79 = 1) then mil_57_79r = mil_57_79;
if (mil_57_79 = 2) then mil_57_79r = mil_57_79;
if (mil_57_79 = 3) then mil_57_79r = mil_57_79;
if (mil_57_79 = 4) then mil_57_79r = 5;
if (mil_57_79 = 5) then mil_57_79r = 6;
if (mil_57_79 = 6) then mil_57_79r = 7;
if (mil_57_79 = 7) then mil_57_79r = 8;
end;
if (q3_8c_m_1979 > -4) then do;
hdged_m_1979 = q3_8c_m_1979;
hdged_y_1979 = q3_8c_y_1979;
end;
if (trn_8a_1_1979r > 0) then degreenum_1979 = (degreenum_1979 + 1);
if (trn_8a_2_1979r > 0) then degreenum_1979 = (degreenum_1979 + 1);
if (trn_8a_3_1979r > 0) then degreenum_1979 = (degreenum_1979 + 1);
if (trn_8a_4_1979r > 0) then degreenum_1979 = (degreenum_1979 + 1);
if (degreenum_1979 = 1) then do;
degreehi4_1979 = trn_8a_1_1979r;
degreehi4_m_1979 = trn_8e_1_m_1979;
degreehi4_y_1979 = trn_8e_1_y_1979;
end;
if (degreenum_1979 = 2) then do;
if (trn_8a_2_1979r > trn_8a_1_1979r) then do;
degreehi4_1979 = trn_8a_2_1979r;
degreehi4_m_1979 = trn_8e_2_m_1979;
degreehi4_y_1979 = trn_8e_2_y_1979;
end;
else if (trn_8a_2_1979r < trn_8a_1_1979r) then do;
degreehi4_1979 = trn_8a_1_1979r;
degreehi4_m_1979 = trn_8e_1_m_1979;
degreehi4_y_1979 = trn_8e_1_y_1979;
end;
end;
if (degreenum_1979 = 3) then do;
if (trn_8a_3_1979r > trn_8a_1_1979r & trn_8a_3_1979r > trn_8a_2_1979r) then do;
degreehi4_1979 = trn_8a_3_1979r;
degreehi4_m_1979 = trn_8e_3_m_1979;
degreehi4_y_1979 = trn_8e_3_y_1979;
end;
else if (trn_8a_2_1979r > trn_8a_1_1979r & trn_8a_2_1979r > trn_8a_3_1979r) then do;
degreehi4_1979 = trn_8a_2_1979r;
degreehi4_m_1979 = trn_8e_2_m_1979;
degreehi4_y_1979 = trn_8e_2_y_1979;
end;
else if (trn_8a_1_1979r > trn_8a_2_1979r & trn_8a_1_1979r > trn_8a_3_1979r) then do;
degreehi4_1979 = trn_8a_1_1979r;
degreehi4_m_1979 = trn_8e_1_m_1979;
degreehi4_y_1979 = trn_8e_1_y_1979;
end;
end;
if (degreenum_1979 = 4) then do;
if (trn_8a_4_1979r > trn_8a_1_1979r & trn_8a_4_1979r > trn_8a_2_1979r & trn_8a_4_1979r > trn_8a_3_1979r) then do;
degreehi4_1979 = trn_8a_4_1979r;
degreehi4_m_1979 = trn_8e_4_m_1979;
degreehi4_y_1979 = trn_8e_4_y_1979;
end;
else if (trn_8a_3_1979r > trn_8a_1_1979r & trn_8a_3_1979r > trn_8a_2_1979r & trn_8a_3_1979r > trn_8a_4_1979r) then do;
degreehi4_1979 = trn_8a_3_1979r;
degreehi4_m_1979 = trn_8e_3_m_1979;
degreehi4_y_1979 = trn_8e_3_y_1979;
end;
else if (trn_8a_2_1979r > trn_8a_1_1979r & trn_8a_2_1979r > trn_8a_3_1979r & trn_8a_2_1979r > trn_8a_4_1979r) then do;
degreehi4_1979 = trn_8a_2_1979r;
degreehi4_m_1979 = trn_8e_2_m_1979;
degreehi4_y_1979 = trn_8e_2_y_1979;
end;
else if (trn_8a_1_1979r > trn_8a_2_1979r & trn_8a_1_1979r > trn_8a_3_1979r & trn_8a_1_1979r > trn_8a_4_1979r) then do;
degreehi4_1979 = trn_8a_1_1979r;
degreehi4_m_1979 = trn_8e_1_m_1979;
degreehi4_y_1979 = trn_8e_1_y_1979;
end;
end;
if (degreehi4_1979 > 0) then do;
hidegree_1979 = degreehi4_1979;
hidegree_m_1979 = degreehi4_m_1979;
hidegree_y_1979 = degreehi4_y_1979;
end;
else if (mil_56a_1979 = 1) then do;
hidegree_1979 = mil_57a_1979r;
hidegree_m_1979 = -3;
hidegree_y_1979 = -3;
end;
else if (mil_56b_1979 = 1) then do;
hidegree_1979 = mil_57b_1979r;
hidegree_m_1979 = -3;
hidegree_y_1979 = -3;
end;
else if (q3_8a_1979 > -4) then do;
hidegree_1979 = 1;
hidegree_m_1979 = hdged_m_1979;
hidegree_y_1979 = hdged_y_1979;
end;
if (hidegree_1979 = 1 & hidegree_m_1979 = -3 & hdged_m_1979 > -4 & (mil_57a_1979 = 1 | mil_57b_1979 = 1)) then do;
hidegree_m_1979 = hdged_m_1979;
hidegree_y_1979 = hdged_y_1979;
end;
/*************************************/
/* highest degree 1980 */
/*************************************/
hidegree_1980 = -4;
hidegree_m_1980 = -4;
hidegree_y_1980 = -4;
hdged_m_1980 = -4;
hdged_y_1980 = -4;
mil_57_1980r = -4;
mil_57a_1980r = -4;
degree_1a_1_1980r = -4;
degree_1a_2_1980r = -4;
array mil_57_80 (m) mil_57_1980 mil_57a_1980;
array mil_57_80r (m) mil_57_1980r mil_57a_1980r;
do m = 1 to 2;
if (mil_57_80 = 1) then mil_57_80r = mil_57_80;
if (mil_57_80 = 2) then mil_57_80r = mil_57_80;
if (mil_57_80 = 3) then mil_57_80r = mil_57_80;
if (mil_57_80 = 4) then mil_57_80r = 5;
if (mil_57_80 = 5) then mil_57_80r = 6;
if (mil_57_80 = 6) then mil_57_80r = 7;
if (mil_57_80 = 7) then mil_57_80r = 8;
end;
array degree_1a_80 (m) degree_1a_1_1980 degree_1a_2_1980;
array degree_1a_80r (m) degree_1a_1_1980r degree_1a_2_1980r;
do m = 1 to 2;
if (degree_1a_80 = -3) then degree_1a_80r = -3;
if (degree_1a_80 = 1) then degree_1a_80r = 2;
if (degree_1a_80 = 2) then degree_1a_80r = 3;
if (degree_1a_80 = 3) then degree_1a_80r = 5;
if (degree_1a_80 = 4) then degree_1a_80r = 8;
end;
if (q3_8c_m_1980 > -4) then do;
hdged_m_1980 = q3_8c_m_1980;
hdged_y_1980 = q3_8c_y_1980;
end;
if (degree_1a_1_1980r > -4 & degree_1a_1_1980r > 0) then do;
hidegree_1980 = degree_1a_1_1980r;
hidegree_m_1980 = degree_1e_1_m_1980;
hidegree_y_1980 = degree_1e_1_y_1980;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r = -3 & degree_1a_2_1980r = -3) then do;
hidegree_1980 = -3;
hidegree_m_1980 = -3;
hidegree_y_1980 = -3;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r = -3 & degree_1a_2_1980r > 0) then do;
hidegree_1980 = degree_1a_2_1980r;
hidegree_m_1980 = degree_1e_2_m_1980;
hidegree_y_1980 = degree_1e_2_y_1980;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r > 0 & degree_1a_2_1980r = -3) then do;
hidegree_1980 = degree_1a_1_1980r;
hidegree_m_1980 = degree_1e_1_m_1980;
hidegree_y_1980 = degree_1e_1_y_1980;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r > 0 & degree_1a_2_1980r > 0 & degree_1a_2_1980r > degree_1a_1_1980r) then do;
hidegree_1980 = degree_1a_2_1980r;
hidegree_m_1980 = degree_1e_2_m_1980;
hidegree_y_1980 = degree_1e_2_y_1980;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r > 0 & degree_1a_2_1980r > 0 & degree_1a_1_1980r > degree_1a_2_1980r) then do;
hidegree_1980 = degree_1a_1_1980r;
hidegree_m_1980 = degree_1e_1_m_1980;
hidegree_y_1980 = degree_1e_1_y_1980;
end;
else if (degree_1f_1_1980 = 1 & degree_1a_1_1980r > 0 & degree_1a_2_1980r > 0 & degree_1a_1_1980r = degree_1a_2_1980r) then do;
hidegree_1980 = degree_1a_1_1980r;
hidegree_m_1980 = degree_1e_1_m_1980;
hidegree_y_1980 = degree_1e_1_y_1980;
end;
else if (mil_56_1980 = 1) then do;
hidegree_1980 = mil_57_1980r;
hidegree_m_1980 = -3;
hidegree_y_1980 = -3;
end;
else if (mil_56a_1980 = 1) then do;
hidegree_1980 = mil_57a_1980r;
hidegree_m_1980 = -3;
hidegree_y_1980 = -3;
end;
else if (q3_8a_1980 > -4) then do;
hidegree_1980 = 1;
hidegree_m_1980 = hdged_m_1980;
hidegree_y_1980 = hdged_y_1980;
end;
/*************************************/
/* highest degree 1981 */
/*************************************/
hidegree_1981 = -4;
hidegree_m_1981 = -4;
hidegree_y_1981 = -4;
hdged_m_1981 = -4;
hdged_y_1981 = -4;
mil_57_1981r = -4;
mil_57a_1981r = -4;
degree_1a_1_1981r = -4;
degree_1a_2_1981r = -4;
array mil_57_81 (m) mil_57_1981 mil_57a_1981;
array mil_57_81r (m) mil_57_1981r mil_57a_1981r;
do m = 1 to 2;
if (mil_57_81 = 1) then mil_57_81r = mil_57_81;
if (mil_57_81 = 2) then mil_57_81r = mil_57_81;
if (mil_57_81 = 3) then mil_57_81r = mil_57_81;
if (mil_57_81 = 4) then mil_57_81r = 5;
if (mil_57_81 = 5) then mil_57_81r = 6;
if (mil_57_81 = 6) then mil_57_81r = 7;
if (mil_57_81 = 7) then mil_57_81r = 8;
end;
array degree_1a_81 (m) degree_1a_1_1981 degree_1a_2_1981;
array degree_1a_81r (m) degree_1a_1_1981r degree_1a_2_1981r;
do m = 1 to 2;
if (degree_1a_81 = -3) then degree_1a_81r = -3;
if (degree_1a_81 = 1) then degree_1a_81r = 2;
if (degree_1a_81 = 2) then degree_1a_81r = 3;
if (degree_1a_81 = 3) then degree_1a_81r = 5;
if (degree_1a_81 = 4) then degree_1a_81r = 8;
end;
if (q3_8c_m_1981 > -4) then do;
hdged_m_1981 = q3_8c_m_1981;
hdged_y_1981 = q3_8c_y_1981;
end;
if (degree_1a_1_1981r > -4 & school_33_1981 = 0) then do;
hidegree_1981 = degree_1a_1_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r = -3 & degree_1a_2_1981r = -3) then do;
hidegree_1981 = -3;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r = -3 & degree_1a_2_1981r > 0) then do;
hidegree_1981 = degree_1a_2_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r > 0 & degree_1a_2_1981r = -3) then do;
hidegree_1981 = degree_1a_1_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r > 0 & degree_1a_2_1981r > 0 & degree_1a_2_1981r > degree_1a_1_1981r) then do;
hidegree_1981 = degree_1a_2_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r > 0 & degree_1a_2_1981r > 0 & degree_1a_1_1981r > degree_1a_2_1981r) then do;
hidegree_1981 = degree_1a_1_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (school_33_1981 = 1 & degree_1a_1_1981r > 0 & degree_1a_2_1981r > 0 & degree_1a_1_1981r = degree_1a_2_1981r) then do;
hidegree_1981 = degree_1a_1_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (mil_56_1981 = 1) then do;
hidegree_1981 = mil_57_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (mil_56a_1981 = 1) then do;
hidegree_1981 = mil_57a_1981r;
hidegree_m_1981 = -3;
hidegree_y_1981 = -3;
end;
else if (q3_8a_1981 > -4) then do;
hidegree_1981 = 1;
hidegree_m_1981 = hdged_m_1981;
hidegree_y_1981 = hdged_y_1981;
end;
/*************************************/
/* highest degree 1982 */
/*************************************/
hidegree_1982 = -4;
hidegree_m_1982 = -4;
hidegree_y_1982 = -4;
hdged_m_1982 = -4;
hdged_y_1982 = -4;
mil_57_1982r = -4;
mil_57a_1982r = -4;
degree_1a_1_1982r = -4;
degree_1a_2_1982r = -4;
array mil_57_82 (m) mil_57_1982 mil_57a_1982;
array mil_57_82r (m) mil_57_1982r mil_57a_1982r;
do m = 1 to 2;
if (mil_57_82 = 1) then mil_57_82r = mil_57_82;
if (mil_57_82 = 2) then mil_57_82r = mil_57_82;
if (mil_57_82 = 3) then mil_57_82r = mil_57_82;
if (mil_57_82 = 4) then mil_57_82r = 5;
if (mil_57_82 = 5) then mil_57_82r = 6;
if (mil_57_82 = 6) then mil_57_82r = 7;
if (mil_57_82 = 7) then mil_57_82r = 8;
end;
array degree_1a_82 (m) degree_1a_1_1982 degree_1a_2_1982;
array degree_1a_82r (m) degree_1a_1_1982r degree_1a_2_1982r;
do m = 1 to 2;
if (degree_1a_82 = -3) then degree_1a_82r = -3;
if (degree_1a_82 = 1) then degree_1a_82r = 2;
if (degree_1a_82 = 2) then degree_1a_82r = 3;
if (degree_1a_82 = 3) then degree_1a_82r = 5;
if (degree_1a_82 = 4) then degree_1a_82r = 8;
end;
if (q3_8c_m_1982 > -4) then do;
hdged_m_1982 = q3_8c_m_1982;
hdged_y_1982 = q3_8c_y_1982;
end;
if (degree_1a_1_1982r > -4 & school_33_1982 = 0) then do;
hidegree_1982 = degree_1a_1_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r = -3 & degree_1a_2_1982r = -3) then do;
hidegree_1982 = -3;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r = -3 & degree_1a_2_1982r > 0) then do;
hidegree_1982 = degree_1a_2_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r > 0 & degree_1a_2_1982r = -3) then do;
hidegree_1982 = degree_1a_1_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r > 0 & degree_1a_2_1982r > 0 & degree_1a_2_1982r > degree_1a_1_1982r) then do;
hidegree_1982 = degree_1a_2_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r > 0 & degree_1a_2_1982r > 0 & degree_1a_1_1982r > degree_1a_2_1982r) then do;
hidegree_1982 = degree_1a_1_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (school_33_1982 = 1 & degree_1a_1_1982r > 0 & degree_1a_2_1982r > 0 & degree_1a_1_1982r = degree_1a_2_1982r) then do;
hidegree_1982 = degree_1a_1_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (mil_56_1982 = 1) then do;
hidegree_1982 = mil_57_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (mil_56a_1982 = 1) then do;
hidegree_1982 = mil_57a_1982r;
hidegree_m_1982 = -3;
hidegree_y_1982 = -3;
end;
else if (q3_8a_1982 > -4) then do;
hidegree_1982 = 1;
hidegree_m_1982 = hdged_m_1982;
hidegree_y_1982 = hdged_y_1982;
end;
/*************************************/
/* highest degree 1983 */
/*************************************/
hidegree_1983 = -4;
hidegree_m_1983 = -4;
hidegree_y_1983 = -4;
hdged_m_1983 = -4;
hdged_y_1983 = -4;
mil_57_1983r = -4;
mil_57a_1983r = -4;
degree_1a_1_1983r = -4;
degree_1a_2_1983r = -4;
array mil_57_83 (m) mil_57_1983 mil_57a_1983;
array mil_57_83r (m) mil_57_1983r mil_57a_1983r;
do m = 1 to 2;
if (mil_57_83 = 1) then mil_57_83r = mil_57_83;
if (mil_57_83 = 2) then mil_57_83r = mil_57_83;
if (mil_57_83 = 3) then mil_57_83r = mil_57_83;
if (mil_57_83 = 4) then mil_57_83r = 5;
if (mil_57_83 = 5) then mil_57_83r = 6;
if (mil_57_83 = 6) then mil_57_83r = 7;
if (mil_57_83 = 7) then mil_57_83r = 8;
end;
array degree_1a_83 (m) degree_1a_1_1983 degree_1a_2_1983;
array degree_1a_83r (m) degree_1a_1_1983r degree_1a_2_1983r;
do m = 1 to 2;
if (degree_1a_83 = -3) then degree_1a_83r = -3;
if (degree_1a_83 = 1) then degree_1a_83r = 2;
if (degree_1a_83 = 2) then degree_1a_83r = 3;
if (degree_1a_83 = 3) then degree_1a_83r = 5;
if (degree_1a_83 = 4) then degree_1a_83r = 8;
end;
if (q3_8c_m_1983 > -4) then do;
hdged_m_1983 = q3_8c_m_1983;
hdged_y_1983 = q3_8c_y_1983;
end;
if (degree_1a_1_1983r > -4 & school_33_1983 = 0) then do;
hidegree_1983 = degree_1a_1_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r = -3 & degree_1a_2_1983r = -3) then do;
hidegree_1983 = -3;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r = -3 & degree_1a_2_1983r > 0) then do;
hidegree_1983 = degree_1a_2_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r > 0 & degree_1a_2_1983r = -3) then do;
hidegree_1983 = degree_1a_1_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r > 0 & degree_1a_2_1983r > 0 & degree_1a_2_1983r > degree_1a_1_1983r) then do;
hidegree_1983 = degree_1a_2_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r > 0 & degree_1a_2_1983r > 0 & degree_1a_1_1983r > degree_1a_2_1983r) then do;
hidegree_1983 = degree_1a_1_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (school_33_1983 = 1 & degree_1a_1_1983r > 0 & degree_1a_2_1983r > 0 & degree_1a_1_1983r = degree_1a_2_1983r) then do;
hidegree_1983 = degree_1a_1_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (mil_56_1983 = 1) then do;
hidegree_1983 = mil_57_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (mil_56a_1983 = 1) then do;
hidegree_1983 = mil_57a_1983r;
hidegree_m_1983 = -3;
hidegree_y_1983 = -3;
end;
else if (q3_8a_1983 > -4) then do;
hidegree_1983 = 1;
hidegree_m_1983 = hdged_m_1983;
hidegree_y_1983 = hdged_y_1983;
end;
/*************************************/
/* highest degree 1984 */
/*************************************/
hidegree_1984 = -4;
hidegree_m_1984 = -4;
hidegree_y_1984 = -4;
hdged_m_1984 = -4;
hdged_y_1984 = -4;
mil_57_1984r = -4;
mil_57a_1984r = -4;
degree_1a_1_1984r = -4;
degree_1a_2_1984r = -4;
array mil_57_84 (m) mil_57_1984 mil_57a_1984;
array mil_57_84r (m) mil_57_1984r mil_57a_1984r;
do m = 1 to 2;
if (mil_57_84 = 1) then mil_57_84r = mil_57_84;
if (mil_57_84 = 2) then mil_57_84r = mil_57_84;
if (mil_57_84 = 3) then mil_57_84r = mil_57_84;
if (mil_57_84 = 4) then mil_57_84r = 5;
if (mil_57_84 = 5) then mil_57_84r = 6;
if (mil_57_84 = 6) then mil_57_84r = 7;
if (mil_57_84 = 7) then mil_57_84r = 8;
end;
array degree_1a_84 (m) degree_1a_1_1984 degree_1a_2_1984;
array degree_1a_84r (m) degree_1a_1_1984r degree_1a_2_1984r;
do m = 1 to 2;
if (degree_1a_84 = -3) then degree_1a_84r = -3;
if (degree_1a_84 = 1) then degree_1a_84r = 2;
if (degree_1a_84 = 2) then degree_1a_84r = 3;
if (degree_1a_84 = 3) then degree_1a_84r = 5;
if (degree_1a_84 = 4) then degree_1a_84r = 8;
end;
if (q3_8c_m_1984 > -4) then do;
hdged_m_1984 = q3_8c_m_1984;
hdged_y_1984 = q3_8c_y_1984;
end;
if (degree_1a_1_1984r > -4 & school_33_1984 = 0) then do;
hidegree_1984 = degree_1a_1_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r = -3 & degree_1a_2_1984r = -3) then do;
hidegree_1984 = -3;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r = -3 & degree_1a_2_1984r > 0) then do;
hidegree_1984 = degree_1a_2_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r > 0 & degree_1a_2_1984r = -3) then do;
hidegree_1984 = degree_1a_1_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r > 0 & degree_1a_2_1984r > 0 & degree_1a_2_1984r > degree_1a_1_1984r) then do;
hidegree_1984 = degree_1a_2_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r > 0 & degree_1a_2_1984r > 0 & degree_1a_1_1984r > degree_1a_2_1984r) then do;
hidegree_1984 = degree_1a_1_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (school_33_1984 = 1 & degree_1a_1_1984r > 0 & degree_1a_2_1984r > 0 & degree_1a_1_1984r = degree_1a_2_1984r) then do;
hidegree_1984 = degree_1a_1_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (mil_56_1984 = 1) then do;
hidegree_1984 = mil_57_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (mil_56a_1984 = 1) then do;
hidegree_1984 = mil_57a_1984r;
hidegree_m_1984 = -3;
hidegree_y_1984 = -3;
end;
else if (q3_8a_1984 > -4) then do;
hidegree_1984 = 1;
hidegree_m_1984 = hdged_m_1984;
hidegree_y_1984 = hdged_y_1984;
end;
/*************************************/
/* highest degree 1985 */
/*************************************/
hidegree_1985 = -4;
hidegree_m_1985 = -4;
hidegree_y_1985 = -4;
hdged_m_1985 = -4;
hdged_y_1985 = -4;
mil_57a_1985r = -4;
if (mil_57a_1985 = 1) then mil_57a_1985r = mil_57a_1985;
if (mil_57a_1985 = 2) then mil_57a_1985r = mil_57a_1985;
if (mil_57a_1985 = 3) then mil_57a_1985r = mil_57a_1985;
if (mil_57a_1985 = 4) then mil_57a_1985r = 5;
if (mil_57a_1985 = 5) then mil_57a_1985r = 6;
if (mil_57a_1985 = 6) then mil_57a_1985r = 7;
if (mil_57a_1985 = 7) then mil_57a_1985r = 8;
if (q3_8c_m_1985 > -4) then do;
hdged_m_1985 = q3_8c_m_1985;
hdged_y_1985 = q3_8c_y_1985;
end;
if (mil_56_1985 = 1 | mil_56a_1985 = 1) then do;
hidegree_1985 = mil_57a_1985r;
hidegree_m_1985 = -3;
hidegree_y_1985 = -3;
end;
else if (q3_8a_1985 > -4) then do;
hidegree_1985 = 1;
hidegree_m_1985 = hdged_m_1985;
hidegree_y_1985 = hdged_y_1985;
end;
/*************************************/
/* highest degree 1986 */
/*************************************/
hidegree_1986 = -4;
hidegree_m_1986 = -4;
hidegree_y_1986 = -4;
hdged_m_1986 = -4;
hdged_y_1986 = -4;
if (q3_8c_m_1986 > -4) then do;
hdged_m_1986 = q3_8c_m_1986;
hdged_y_1986 = q3_8c_y_1986;
end;
if (q3_8a_1986 > -4) then do;
hidegree_1986 = 1;
hidegree_m_1986 = hdged_m_1986;
hidegree_y_1986 = hdged_y_1986;
end;
/*************************************/
/* highest degree 1987 */
/*************************************/
hidegree_1987 = -4;
hidegree_m_1987 = -4;
hidegree_y_1987 = -4;
hdged_m_1987 = -4;
hdged_y_1987 = -4;
if (q3_8c_m_1987 > -4) then do;
hdged_m_1987 = q3_8c_m_1987;
hdged_y_1987 = q3_8c_y_1987;
end;
if (q3_8a_1987 > -4) then do;
hidegree_1987 = 1;
hidegree_m_1987 = hdged_m_1987;
hidegree_y_1987 = hdged_y_1987;
end;
/*************************************/
/* highest degree 1988 */
/*************************************/
hidegree_1988 = -4;
hidegree_m_1988 = -4;
hidegree_y_1988 = -4;
hdged_m_1988 = -4;
hdged_y_1988 = -4;
if (q3_8c_m_1988 > -4) then do;
hdged_m_1988 = q3_8c_m_1988;
hdged_y_1988 = q3_8c_y_1988;
end;
if (q3_10b_1988 > -4) then do;
hidegree_1988 = q3_10b_1988;
hidegree_m_1988 = q3_10c_m_1988;
hidegree_y_1988 = q3_10c_y_1988;
end;
else if (q3_8a_1988 > -4) then do;
hidegree_1988 = 1;
hidegree_m_1988 = hdged_m_1988;
hidegree_y_1988 = hdged_y_1988;
end;
/*************************************/
/* highest degree 1989 */
/*************************************/
hidegree_1989 = -4;
hidegree_m_1989 = -4;
hidegree_y_1989 = -4;
hdged_m_1989 = -4;
hdged_y_1989 = -4;
if (q3_8c_m_1989 > -4) then do;
hdged_m_1989 = q3_8c_m_1989;
hdged_y_1989 = q3_8c_y_1989;
end;
if (q3_10b_1989 > -4) then do;
hidegree_1989 = q3_10b_1989;
hidegree_m_1989 = q3_10c_m_1989;
hidegree_y_1989 = q3_10c_y_1989;
end;
else if (q3_8a_1989 > -4) then do;
hidegree_1989 = 1;
hidegree_m_1989 = hdged_m_1989;
hidegree_y_1989 = hdged_y_1989;
end;
/*************************************/
/* highest degree 1990 */
/*************************************/
hidegree_1990 = -4;
hidegree_m_1990 = -4;
hidegree_y_1990 = -4;
hdged_m_1990 = -4;
hdged_y_1990 = -4;
if (q3_8c_m_1990 > -4) then do;
hdged_m_1990 = q3_8c_m_1990;
hdged_y_1990 = q3_8c_y_1990;
end;
if (q3_10b_1990 > -4) then do;
hidegree_1990 = q3_10b_1990;
hidegree_m_1990 = q3_10c_m_1990;
hidegree_y_1990 = q3_10c_y_1990;
end;
else if (q3_8a_1990 > -4) then do;
hidegree_1990 = 1;
hidegree_m_1990 = hdged_m_1990;
hidegree_y_1990 = hdged_y_1990;
end;
/*************************************/
/* highest degree 1991 */
/*************************************/
hidegree_1991 = -4;
hidegree_m_1991 = -4;
hidegree_y_1991 = -4;
hdged_m_1991 = -4;
hdged_y_1991 = -4;
if (q3_8c_m_1991 > -4) then do;
hdged_m_1991 = q3_8c_m_1991;
hdged_y_1991 = q3_8c_y_1991;
end;
if (q3_10b_1991 > -4) then do;
hidegree_1991 = q3_10b_1991;
hidegree_m_1991 = q3_10c_m_1991;
hidegree_y_1991 = q3_10c_y_1991;
end;
else if (q3_8a_1991 > -4) then do;
hidegree_1991 = 1;
hidegree_m_1991 = hdged_m_1991;
hidegree_y_1991 = hdged_y_1991;
end;
/*************************************/
/* highest degree 1992 */
/*************************************/
hidegree_1992 = -4;
hidegree_m_1992 = -4;
hidegree_y_1992 = -4;
hdged_m_1992 = -4;
hdged_y_1992 = -4;
if (q3_8c_m_1992 > -4) then do;
hdged_m_1992 = q3_8c_m_1992;
hdged_y_1992 = q3_8c_y_1992;
end;
if (q3_10b_1992 > -4) then do;
hidegree_1992 = q3_10b_1992;
hidegree_m_1992 = q3_10c_m_1992;
hidegree_y_1992 = q3_10c_y_1992;
end;
else if (q3_8a_1992 > -4) then do;
hidegree_1992 = 1;
hidegree_m_1992 = hdged_m_1992;
hidegree_y_1992 = hdged_y_1992;
end;
/*************************************/
/* highest degree 1993 */
/*************************************/
hidegree_1993 = -4;
hidegree_m_1993 = -4;
hidegree_y_1993 = -4;
hdged_m_1993 = -4;
hdged_y_1993 = -4;
if (q3_8b_m_1993 > -4) then do;
hdged_m_1993 = q3_8b_m_1993;
hdged_y_1993 = q3_8b_y_1993;
end;
if (q3_10b_1993 > -4) then do;
hidegree_1993 = q3_10b_1993;
hidegree_m_1993 = q3_10c_m_1993;
hidegree_y_1993 = q3_10c_y_1993;
end;
else if (q3_8a_1993 > -4) then do;
hidegree_1993 = 1;
hidegree_m_1993 = hdged_m_1993;
hidegree_y_1993 = hdged_y_1993;
end;
/*************************************/
/* highest degree 1994 */
/*************************************/
hidegree_1994 = -4;
hidegree_m_1994 = -4;
hidegree_y_1994 = -4;
hdged_m_1994 = -4;
hdged_y_1994 = -4;
if (q3_8b_m_1994 > -4) then do;
hdged_m_1994 = q3_8b_m_1994;
hdged_y_1994 = q3_8b_y_1994;
end;
else if (q3_8c_m_1994 > -4) then do;
hdged_m_1994 = q3_8c_m_1994;
hdged_y_1994 = q3_8c_y_1994;
end;
if (q3_10b_1994 > -4) then do;
hidegree_1994 = q3_10b_1994;
hidegree_m_1994 = q3_10c_m_1994;
hidegree_y_1994 = q3_10c_y_1994;
end;
else if (q3_8a_1994 > -4) then do;
hidegree_1994 = 1;
hidegree_m_1994 = hdged_m_1994;
hidegree_y_1994 = hdged_y_1994;
end;
/*************************************/
/* highest degree 1996 */
/*************************************/
hidegree_1996 = -4;
hidegree_m_1996 = -4;
hidegree_y_1996 = -4;
hdged_m_1996 = -4;
hdged_y_1996 = -4;
if (q3_8b_m_1996 > -4) then do;
hdged_m_1996 = q3_8b_m_1996;
hdged_y_1996 = q3_8b_y_1996;
end;
else if (q3_8c_m_1996 > -4) then do;
hdged_m_1996 = q3_8c_m_1996;
hdged_y_1996 = q3_8c_y_1996;
end;
if (q3_10b_1996 > -4) then do;
hidegree_1996 = q3_10b_1996;
hidegree_m_1996 = q3_10c_m_1996;
hidegree_y_1996 = q3_10c_y_1996;
end;
else if (q3_8a_1996 > -4) then do;
hidegree_1996 = 1;
hidegree_m_1996 = hdged_m_1996;
hidegree_y_1996 = hdged_y_1996;
end;
/*************************************/
/* highest degree 1998 */
/*************************************/
hidegree_1998 = -4;
hidegree_m_1998 = -4;
hidegree_y_1998 = -4;
hdged_m_1998 = -4;
hdged_y_1998 = -4;
if (q3_8b_m_1998 > -4) then do;
hdged_m_1998 = q3_8b_m_1998;
hdged_y_1998 = q3_8b_y_1998;
end;
else if (q3_8c_m_1998 > -4) then do;
hdged_m_1998 = q3_8c_m_1998;
hdged_y_1998 = q3_8c_y_1998;
end;
if (q3_10b_1998 > -4) then do;
hidegree_1998 = q3_10b_1998;
hidegree_m_1998 = q3_10c_m_1998;
hidegree_y_1998 = q3_10c_y_1998;
end;
else if (q3_8a_1998 > -4) then do;
hidegree_1998 = 1;
hidegree_m_1998 = hdged_m_1998;
hidegree_y_1998 = hdged_y_1998;
end;
/*************************************/
/* highest degree 2000 */
/*************************************/
hidegree_2000 = -4;
hidegree_m_2000 = -4;
hidegree_y_2000 = -4;
hdged_m_2000 = -4;
hdged_y_2000 = -4;
if (q3_8b_m_2000 > -4) then do;
hdged_m_2000 = q3_8b_m_2000;
hdged_y_2000 = q3_8b_y_2000;
end;
else if (q3_8c_m_2000 > -4) then do;
hdged_m_2000 = q3_8c_m_2000;
hdged_y_2000 = q3_8c_y_2000;
end;
if (q3_10b_2000 > -4) then do;
hidegree_2000 = q3_10b_2000;
hidegree_m_2000 = q3_10c_m_2000;
hidegree_y_2000 = q3_10c_y_2000;
end;
else if (q3_8a_2000 > -4) then do;
hidegree_2000 = 1;
hidegree_m_2000 = hdged_m_2000;
hidegree_y_2000 = hdged_y_2000;
end;
/*************************************/
/* highest degree 2002 */
/*************************************/
hidegree_2002 = -4;
hidegree_m_2002 = -4;
hidegree_y_2002 = -4;
hdged_m_2002 = -4;
hdged_y_2002 = -4;
if (q3_8b_m_2002 > -4) then do;
hdged_m_2002 = q3_8b_m_2002;
hdged_y_2002 = q3_8b_y_2002;
end;
else if (q3_8c_m_2002 > -4) then do;
hdged_m_2002 = q3_8c_m_2002;
hdged_y_2002 = q3_8c_y_2002;
end;
if (q3_10b_2002 > -4) then do;
hidegree_2002 = q3_10b_2002;
hidegree_m_2002 = q3_10c_m_2002;
hidegree_y_2002 = q3_10c_y_2002;
end;
else if (q3_8a_2002 > -4) then do;
hidegree_2002 = 1;
hidegree_m_2002 = hdged_m_2002;
hidegree_y_2002 = hdged_y_2002;
end;
/*************************************/
/* highest degree 2004 */
/*************************************/
hidegree_2004 = -4;
hidegree_m_2004 = -4;
hidegree_y_2004 = -4;
hdged_m_2004 = -4;
hdged_y_2004 = -4;
if (q3_8b_m_2004 > -4) then do;
hdged_m_2004 = q3_8b_m_2004;
hdged_y_2004 = q3_8b_y_2004;
end;
else if (q3_8c_m_2004 > -4) then do;
hdged_m_2004 = q3_8c_m_2004;
hdged_y_2004 = q3_8c_y_2004;
end;
if (q3_10b_2004 > -4) then do;
hidegree_2004 = q3_10b_2004;
hidegree_m_2004 = q3_10c_m_2004;
hidegree_y_2004 = q3_10c_y_2004;
end;
else if (q3_8a_2004 > -4) then do;
hidegree_2004 = 1;
hidegree_m_2004 = hdged_m_2004;
hidegree_y_2004 = hdged_y_2004;
end;
/*************************************/
/* highest degree 2006 */
/*************************************/
hidegree_2006 = -4;
hidegree_m_2006 = -4;
hidegree_y_2006 = -4;
hdged_m_2006 = -4;
hdged_y_2006 = -4;
if (q3_8b_m_2006 > -4) then do;
hdged_m_2006 = q3_8b_m_2006;
hdged_y_2006 = q3_8b_y_2006;
end;
else if (q3_8c_m_2006 > -4) then do;
hdged_m_2006 = q3_8c_m_2006;
hdged_y_2006 = q3_8c_y_2006;
end;
if (q3_10b_2006 > -4) then do;
hidegree_2006 = q3_10b_2006;
hidegree_m_2006 = q3_10c_m_2006;
hidegree_y_2006 = q3_10c_y_2006;
end;
else if (q3_8a_2006 > -4) then do;
hidegree_2006 = 1;
hidegree_m_2006 = hdged_m_2006;
hidegree_y_2006 = hdged_y_2006;
end;
/*************************************/
/* highest degree 2008 */
/*************************************/
hidegree_2008 = -4;
hidegree_m_2008 = -4;
hidegree_y_2008 = -4;
hdged_m_2008 = -4;
hdged_y_2008 = -4;
if (q3_8b_m_2008 > -4) then do;
hdged_m_2008 = q3_8b_m_2008;
hdged_y_2008 = q3_8b_y_2008;
end;
else if (q3_8c_m_2008 > -4) then do;
hdged_m_2008 = q3_8c_m_2008;
hdged_y_2008 = q3_8c_y_2008;
end;
if (q3_10d_2008 > -4 & q3_10d_2008 ~= 0) then do;
hidegree_2008 = q3_10d_2008;
hidegree_m_2008 = q3_10e_m_2008;
hidegree_y_2008 = q3_10e_y_2008;
end;
else if (q3_10b_2008 > -4 & q3_10b_2008 ~= 0) then do;
hidegree_2008 = q3_10b_2008;
hidegree_m_2008 = q3_10c_m_2008;
hidegree_y_2008 = q3_10c_y_2008;
end;
else if (q3_8a_2008 > -4) then do;
hidegree_2008 = 1;
hidegree_m_2008 = hdged_m_2008;
hidegree_y_2008 = hdged_y_2008;
end;
/*************************************/
/* highest degree 2010 */
/*************************************/
hidegree_2010 = -4;
hidegree_m_2010 = -4;
hidegree_y_2010 = -4;
hdged_m_2010 = -4;
hdged_y_2010 = -4;
if (q3_8b_m_2010 > -4) then do;
hdged_m_2010 = q3_8b_m_2010;
hdged_y_2010 = q3_8b_y_2010;
end;
else if (q3_8c_m_2010 > -4) then do;
hdged_m_2010 = q3_8c_m_2010;
hdged_y_2010 = q3_8c_y_2010;
end;
if (q3_10d_2010 > -4 & q3_10d_2010 ~= 0) then do;
hidegree_2010 = q3_10d_2010;
hidegree_m_2010 = q3_10e_m_2010;
hidegree_y_2010 = q3_10e_y_2010;
end;
else if (q3_10b_2010 > -4 & q3_10b_2010 ~= 0) then do;
hidegree_2010 = q3_10b_2010;
hidegree_m_2010 = q3_10c_m_2010;
hidegree_y_2010 = q3_10c_y_2010;
end;
else if (q3_8a_2010 > -4) then do;
hidegree_2010 = 1;
hidegree_m_2010 = hdged_m_2010;
hidegree_y_2010 = hdged_y_2010;
end;
/*************************************/
/* highest degree 2012 */
/*************************************/
hidegree_2012 = -4;
hidegree_m_2012 = -4;
hidegree_y_2012 = -4;
hdged_m_2012 = -4;
hdged_y_2012 = -4;
if (q3_8b_m_2012 > -4) then do;
hdged_m_2012 = q3_8b_m_2012;
hdged_y_2012 = q3_8b_y_2012;
end;
else if (q3_8c_m_2012 > -4) then do;
hdged_m_2012 = q3_8c_m_2012;
hdged_y_2012 = q3_8c_y_2012;
end;
if (q3_10d_2012 > -4 & q3_10d_2012 ~= 0) then do;
hidegree_2012 = q3_10d_2012;
hidegree_m_2012 = q3_10e_m_2012;
hidegree_y_2012 = q3_10e_y_2012;
end;
else if (q3_10b_2012 > -4 & q3_10b_2012 ~= 0) then do;
hidegree_2012 = q3_10b_2012;
hidegree_m_2012 = q3_10c_m_2012;
hidegree_y_2012 = q3_10c_y_2012;
end;
else if (q3_8a_2012 > -4) then do;
hidegree_2012 = 1;
hidegree_m_2012 = hdged_m_2012;
hidegree_y_2012 = hdged_y_2012;
end;
/*************************************/
/* highest degree 2014 */
/*************************************/
hidegree_2014 = -4;
hidegree_m_2014 = -4;
hidegree_y_2014 = -4;
hdged_m_2014 = -4;
hdged_y_2014 = -4;
if (q3_8b_m_2014 > -4) then do;
hdged_m_2014 = q3_8b_m_2014;
hdged_y_2014 = q3_8b_y_2014;
end;
else if (q3_8c_m_2014 > -4) then do;
hdged_m_2014 = q3_8c_m_2014;
hdged_y_2014 = q3_8c_y_2014;
end;
if (q3_10d_2014 > -4 & q3_10d_2014 ~= 0) then do;
hidegree_2014 = q3_10d_2014;
hidegree_m_2014 = q3_10e_m_2014;
hidegree_y_2014 = q3_10e_y_2014;
end;
else if (q3_10b_2014 > -4 & q3_10b_2014 ~= 0) then do;
hidegree_2014 = q3_10b_2014;
hidegree_m_2014 = q3_10c_m_2014;
hidegree_y_2014 = q3_10c_y_2014;
end;
else if (q3_8a_2014 > -4) then do;
hidegree_2014 = 1;
hidegree_m_2014 = hdged_m_2014;
hidegree_y_2014 = hdged_y_2014;
end;
/*************************************/
/* highest degree 2016 */
/*************************************/
hidegree_2016 = -4;
hidegree_m_2016 = -4;
hidegree_y_2016 = -4;
hdged_m_2016 = -4;
hdged_y_2016 = -4;
if (q3_8b_m_2016 > -4) then do;
hdged_m_2016 = q3_8b_m_2016;
hdged_y_2016 = q3_8b_y_2016;
end;
else if (q3_8c_m_2016 > -4) then do;
hdged_m_2016 = q3_8c_m_2016;
hdged_y_2016 = q3_8c_y_2016;
end;
if (q3_10d_2016 > -4 & q3_10d_2016 ~= 0) then do;
hidegree_2016 = q3_10d_2016;
hidegree_m_2016 = q3_10e_m_2016;
hidegree_y_2016 = q3_10e_y_2016;
end;
else if (q3_10b_2016 > -4 & q3_10b_2016 ~= 0) then do;
hidegree_2016 = q3_10b_2016;
hidegree_m_2016 = q3_10c_m_2016;
hidegree_y_2016 = q3_10c_y_2016;
end;
else if (q3_8a_2016 > -4) then do;
hidegree_2016 = 1;
hidegree_m_2016 = hdged_m_2016;
hidegree_y_2016 = hdged_y_2016;
end;
if (hidegree_2016 = 9) then hidegree_2016 = 8;
/*************************************/
/* highest degree 2018 */
/*************************************/
hidegree_2018 = -4;
hidegree_m_2018 = -4;
hidegree_y_2018 = -4;
hdged_m_2018 = -4;
hdged_y_2018 = -4;
q3_20b_01_2018r = -4;
q3_20b_02_2018r = -4;
q3_20b_03_2018r = -4;
array q3_20b_2018 (m) q3_20b_01_2018 q3_20b_02_2018 q3_20b_03_2018;
array q3_20b_2018r (m) q3_20b_01_2018r q3_20b_02_2018r q3_20b_03_2018r;
do m = 1 to 3;
if (q3_20b_2018 = 1) then q3_20b_2018r = 2;
if (q3_20b_2018 = 3) then q3_20b_2018r = 3;
if (q3_20b_2018 = 4) then q3_20b_2018r = 5;
if (q3_20b_2018 = 5) then q3_20b_2018r = 6;
if (q3_20b_2018 = 6) then q3_20b_2018r = 7;
if (q3_20b_2018 = 8) then q3_20b_2018r = 8;
if (q3_20b_2018 = 9) then q3_20b_2018r = 1;
if (q3_20b_2018 = 10) then q3_20b_2018r = 5;
end;
if (q3_8b_m_2018 > -4) then do;
hdged_m_2018 = q3_8b_m_2018;
hdged_y_2018 = q3_8b_y_2018;
end;
else if (q3_8c_m_2018 > -4) then do;
hdged_m_2018 = q3_8c_m_2018;
hdged_y_2018 = q3_8c_y_2018;
end;
if (q3_10d_2018 > -4 & q3_10d_2018 ~= 0) then do;
hidegree_2018 = q3_10d_2018;
hidegree_m_2018 = q3_10e_m_2018;
hidegree_y_2018 = q3_10e_y_2018;
end;
else if (q3_10b_2018 > -4 & q3_10b_2018 ~= 0) then do;
hidegree_2018 = q3_10b_2018;
hidegree_m_2018 = q3_10c_m_2018;
hidegree_y_2018 = q3_10c_y_2018;
end;
else if (q3_20b_01_2018r > -4 & q3_20b_02_2018r = -4 & q3_20b_03_2018r = -4) then do;
hidegree_2018 = q3_20b_01_2018r;
hidegree_m_2018 = q3_29_01_m_2018;
hidegree_y_2018 = q3_29_01_y_2018;
end;
else if (q3_8a_2018 > -4) then do;
hidegree_2018 = 1;
hidegree_m_2018 = hdged_m_2018;
hidegree_y_2018 = hdged_y_2018;
end;
/*************************************/
/* highest degree 2020 */
/*************************************/
hidegree_2020 = -4;
hidegree_m_2020 = -4;
hidegree_y_2020 = -4;
if (q3_10d_2020 > -4 & q3_10d_2020 ~= 0) then do;
hidegree_2020 = q3_10d_2020;
hidegree_m_2020 = q3_10e_m_2020;
hidegree_y_2020 = q3_10e_y_2020;
end;
else if (q3_10b_2020 > -4 & q3_10b_2020 ~= 0) then do;
hidegree_2020 = q3_10b_2020;
hidegree_m_2020 = q3_10c_m_2020;
hidegree_y_2020 = q3_10c_y_2020;
end;
/*************************************/
/* adjust years for y2k compliance */
/*************************************/
if (hidegree_y_1979 > 0 & hidegree_y_1979 < 100) then hidegree_y_1979 = (hidegree_y_1979 + 1900);
if (hidegree_y_1980 > 0 & hidegree_y_1980 < 100) then hidegree_y_1980 = (hidegree_y_1980 + 1900);
if (hidegree_y_1981 > 0 & hidegree_y_1981 < 100) then hidegree_y_1981 = (hidegree_y_1981 + 1900);
if (hidegree_y_1982 > 0 & hidegree_y_1982 < 100) then hidegree_y_1982 = (hidegree_y_1982 + 1900);
if (hidegree_y_1983 > 0 & hidegree_y_1983 < 100) then hidegree_y_1983 = (hidegree_y_1983 + 1900);
if (hidegree_y_1984 > 0 & hidegree_y_1984 < 100) then hidegree_y_1984 = (hidegree_y_1984 + 1900);
if (hidegree_y_1985 > 0 & hidegree_y_1985 < 100) then hidegree_y_1985 = (hidegree_y_1985 + 1900);
if (hidegree_y_1986 > 0 & hidegree_y_1986 < 100) then hidegree_y_1986 = (hidegree_y_1986 + 1900);
if (hidegree_y_1987 > 0 & hidegree_y_1987 < 100) then hidegree_y_1987 = (hidegree_y_1987 + 1900);
if (hidegree_y_1988 > 0 & hidegree_y_1988 < 100) then hidegree_y_1988 = (hidegree_y_1988 + 1900);
if (hidegree_y_1989 > 0 & hidegree_y_1989 < 100) then hidegree_y_1989 = (hidegree_y_1989 + 1900);
if (hidegree_y_1990 > 0 & hidegree_y_1990 < 100) then hidegree_y_1990 = (hidegree_y_1990 + 1900);
if (hidegree_y_1991 > 0 & hidegree_y_1991 < 100) then hidegree_y_1991 = (hidegree_y_1991 + 1900);
if (hidegree_y_1992 > 0 & hidegree_y_1992 < 100) then hidegree_y_1992 = (hidegree_y_1992 + 1900);
if (hidegree_y_1993 > 0 & hidegree_y_1993 < 100) then hidegree_y_1993 = (hidegree_y_1993 + 1900);
if (hidegree_y_1994 > 0 & hidegree_y_1994 < 100) then hidegree_y_1994 = (hidegree_y_1994 + 1900);
if (hidegree_y_1996 > 0 & hidegree_y_1996 < 100) then hidegree_y_1996 = (hidegree_y_1996 + 1900);
if (hidegree_y_1998 > 0 & hidegree_y_1998 < 100) then hidegree_y_1998 = (hidegree_y_1998 + 1900);
if (hidegree_y_2000 > 0 & hidegree_y_2000 < 100) then hidegree_y_2000 = (hidegree_y_2000 + 1900);
if (hidegree_y_2002 > 0 & hidegree_y_2002 < 100) then hidegree_y_2002 = (hidegree_y_2002 + 1900);
if (hidegree_y_2004 > 0 & hidegree_y_2004 < 100) then hidegree_y_2004 = (hidegree_y_2004 + 1900);
if (hidegree_y_2006 > 0 & hidegree_y_2006 < 100) then hidegree_y_2006 = (hidegree_y_2006 + 1900);
if (hidegree_y_2008 > 0 & hidegree_y_2008 < 100) then hidegree_y_2008 = (hidegree_y_2008 + 1900);
if (hidegree_y_2010 > 0 & hidegree_y_2010 < 100) then hidegree_y_2010 = (hidegree_y_2010 + 1900);
if (hidegree_y_2012 > 0 & hidegree_y_2012 < 100) then hidegree_y_2012 = (hidegree_y_2012 + 1900);
if (hidegree_y_2014 > 0 & hidegree_y_2014 < 100) then hidegree_y_2014 = (hidegree_y_2014 + 1900);
if (hidegree_y_2016 > 0 & hidegree_y_2016 < 100) then hidegree_y_2016 = (hidegree_y_2016 + 1900);
if (hidegree_y_2018 > 0 & hidegree_y_2018 < 100) then hidegree_y_2018 = (hidegree_y_2018 + 1900);
if (hidegree_y_2020 > 0 & hidegree_y_2020 < 100) then hidegree_y_2020 = (hidegree_y_2020 + 1900);
/*********************************************/
/* compute highest_degree_ever/_m_y */
/*********************************************/
highest_degree_ever = -4;
highest_degree_ever_m = -4;
highest_degree_ever_y = -4;
highest_degree_ever_rept_y = -4;
if (hidegree_1979 > -4 & hidegree_1979 ~= 8) then do;
highest_degree_ever = hidegree_1979;
highest_degree_ever_m = hidegree_m_1979;
highest_degree_ever_y = hidegree_y_1979;
highest_degree_ever_rept_y = 1979;
end;
if (hidegree_1980 > -4 & hidegree_1980 > highest_degree_ever & hidegree_1980 ~= 8) then do;
highest_degree_ever = hidegree_1980;
highest_degree_ever_m = hidegree_m_1980;
highest_degree_ever_y = hidegree_y_1980;
highest_degree_ever_rept_y = 1980;
end;
if (hidegree_1981 > -4 & hidegree_1981 > highest_degree_ever & hidegree_1981 ~= 8) then do;
highest_degree_ever = hidegree_1981;
highest_degree_ever_m = hidegree_m_1981;
highest_degree_ever_y = hidegree_y_1981;
highest_degree_ever_rept_y = 1981;
end;
if (hidegree_1982 > -4 & hidegree_1982 > highest_degree_ever & hidegree_1982 ~= 8) then do;
highest_degree_ever = hidegree_1982;
highest_degree_ever_m = hidegree_m_1982;
highest_degree_ever_y = hidegree_y_1982;
highest_degree_ever_rept_y = 1982;
end;
if (hidegree_1983 > -4 & hidegree_1983 > highest_degree_ever & hidegree_1983 ~= 8) then do;
highest_degree_ever = hidegree_1983;
highest_degree_ever_m = hidegree_m_1983;
highest_degree_ever_y = hidegree_y_1983;
highest_degree_ever_rept_y = 1983;
end;
if (hidegree_1984 > -4 & hidegree_1984 > highest_degree_ever & hidegree_1984 ~= 8) then do;
highest_degree_ever = hidegree_1984;
highest_degree_ever_m = hidegree_m_1984;
highest_degree_ever_y = hidegree_y_1984;
highest_degree_ever_rept_y = 1984;
end;
if (hidegree_1985 > -4 & hidegree_1985 > highest_degree_ever & hidegree_1985 ~= 8) then do;
highest_degree_ever = hidegree_1985;
highest_degree_ever_m = hidegree_m_1985;
highest_degree_ever_y = hidegree_y_1985;
highest_degree_ever_rept_y = 1985;
end;
if (hidegree_1986 > -4 & hidegree_1986 > highest_degree_ever & hidegree_1986 ~= 8) then do;
highest_degree_ever = hidegree_1986;
highest_degree_ever_m = hidegree_m_1986;
highest_degree_ever_y = hidegree_y_1986;
highest_degree_ever_rept_y = 1986;
end;
if (hidegree_1987 > -4 & hidegree_1987 > highest_degree_ever & hidegree_1987 ~= 8) then do;
highest_degree_ever = hidegree_1987;
highest_degree_ever_m = hidegree_m_1987;
highest_degree_ever_y = hidegree_y_1987;
highest_degree_ever_rept_y = 1987;
end;
if (hidegree_1988 > -4 & hidegree_1988 > highest_degree_ever & hidegree_1988 ~= 8) then do;
highest_degree_ever = hidegree_1988;
highest_degree_ever_m = hidegree_m_1988;
highest_degree_ever_y = hidegree_y_1988;
highest_degree_ever_rept_y = 1988;
end;
if (hidegree_1989 > -4 & hidegree_1989 > highest_degree_ever & hidegree_1989 ~= 8) then do;
highest_degree_ever = hidegree_1989;
highest_degree_ever_m = hidegree_m_1989;
highest_degree_ever_y = hidegree_y_1989;
highest_degree_ever_rept_y = 1989;
end;
if (hidegree_1990 > -4 & hidegree_1990 > highest_degree_ever & hidegree_1990 ~= 8) then do;
highest_degree_ever = hidegree_1990;
highest_degree_ever_m = hidegree_m_1990;
highest_degree_ever_y = hidegree_y_1990;
highest_degree_ever_rept_y = 1990;
end;
if (hidegree_1991 > -4 & hidegree_1991 > highest_degree_ever & hidegree_1991 ~= 8) then do;
highest_degree_ever = hidegree_1991;
highest_degree_ever_m = hidegree_m_1991;
highest_degree_ever_y = hidegree_y_1991;
highest_degree_ever_rept_y = 1991;
end;
if (hidegree_1992 > -4 & hidegree_1992 > highest_degree_ever & hidegree_1992 ~= 8) then do;
highest_degree_ever = hidegree_1992;
highest_degree_ever_m = hidegree_m_1992;
highest_degree_ever_y = hidegree_y_1992;
end;
if (hidegree_1993 > -4 & hidegree_1993 > highest_degree_ever & hidegree_1993 ~= 8) then do;
highest_degree_ever = hidegree_1993;
highest_degree_ever_m = hidegree_m_1993;
highest_degree_ever_y = hidegree_y_1993;
highest_degree_ever_rept_y = 1993;
end;
if (hidegree_1994 > -4 & hidegree_1994 > highest_degree_ever & hidegree_1994 ~= 8) then do;
highest_degree_ever = hidegree_1994;
highest_degree_ever_m = hidegree_m_1994;
highest_degree_ever_y = hidegree_y_1994;
highest_degree_ever_rept_y = 1994;
end;
if (hidegree_1996 > -4 & hidegree_1996 > highest_degree_ever & hidegree_1996 ~= 8) then do;
highest_degree_ever = hidegree_1996;
highest_degree_ever_m = hidegree_m_1996;
highest_degree_ever_y = hidegree_y_1996;
highest_degree_ever_rept_y = 1996;
end;
if (hidegree_1998 > -4 & hidegree_1998 > highest_degree_ever & hidegree_1998 ~= 8) then do;
highest_degree_ever = hidegree_1998;
highest_degree_ever_m = hidegree_m_1998;
highest_degree_ever_y = hidegree_y_1998;
highest_degree_ever_rept_y = 1998;
end;
if (hidegree_2000 > -4 & hidegree_2000 > highest_degree_ever & hidegree_2000 ~= 8) then do;
highest_degree_ever = hidegree_2000;
highest_degree_ever_m = hidegree_m_2000;
highest_degree_ever_y = hidegree_y_2000;
highest_degree_ever_rept_y = 2000;
end;
if (hidegree_2002 > -4 & hidegree_2002 > highest_degree_ever & hidegree_2002 ~= 8) then do;
highest_degree_ever = hidegree_2002;
highest_degree_ever_m = hidegree_m_2002;
highest_degree_ever_y = hidegree_y_2002;
highest_degree_ever_rept_y = 2002;
end;
if (hidegree_2004 > -4 & hidegree_2004 > highest_degree_ever & hidegree_2004 ~= 8) then do;
highest_degree_ever = hidegree_2004;
highest_degree_ever_m = hidegree_m_2004;
highest_degree_ever_y = hidegree_y_2004;
highest_degree_ever_rept_y = 2004;
end;
if (hidegree_2006 > -4 & hidegree_2006 > highest_degree_ever & hidegree_2006 ~= 8) then do;
highest_degree_ever = hidegree_2006;
highest_degree_ever_m = hidegree_m_2006;
highest_degree_ever_y = hidegree_y_2006;
highest_degree_ever_rept_y = 2006;
end;
if (hidegree_2008 > -4 & hidegree_2008 > highest_degree_ever & hidegree_2008 ~= 8) then do;
highest_degree_ever = hidegree_2008;
highest_degree_ever_m = hidegree_m_2008;
highest_degree_ever_y = hidegree_y_2008;
highest_degree_ever_rept_y = 2008;
end;
if (hidegree_2010 > -4 & hidegree_2010 > highest_degree_ever & hidegree_2010 ~= 8) then do;
highest_degree_ever = hidegree_2010;
highest_degree_ever_m = hidegree_m_2010;
highest_degree_ever_y = hidegree_y_2010;
highest_degree_ever_rept_y = 2010;
end;
if (hidegree_2012 > -4 & hidegree_2012 > highest_degree_ever & hidegree_2012 ~= 8) then do;
highest_degree_ever = hidegree_2012;
highest_degree_ever_m = hidegree_m_2012;
highest_degree_ever_y = hidegree_y_2012;
highest_degree_ever_rept_y = 2012;
end;
if (hidegree_2014 > -4 & hidegree_2014 > highest_degree_ever & hidegree_2014 ~= 8) then do;
highest_degree_ever = hidegree_2014;
highest_degree_ever_m = hidegree_m_2014;
highest_degree_ever_y = hidegree_y_2014;
highest_degree_ever_rept_y = 2014;
end;
if (hidegree_2016 > -4 & hidegree_2016 > highest_degree_ever & hidegree_2016 ~= 8) then do;
highest_degree_ever = hidegree_2016;
highest_degree_ever_m = hidegree_m_2016;
highest_degree_ever_y = hidegree_y_2016;
highest_degree_ever_rept_y = 2016;
end;
if (hidegree_2018 > -4 & hidegree_2018 > highest_degree_ever & hidegree_2018 ~= 8) then do;
highest_degree_ever = hidegree_2018;
highest_degree_ever_m = hidegree_m_2018;
highest_degree_ever_y = hidegree_y_2018;
highest_degree_ever_rept_y = 2018;
end;
if (hidegree_2020 > -4 & hidegree_2020 > highest_degree_ever & hidegree_2020 ~= 8) then do;
highest_degree_ever = hidegree_2020;
highest_degree_ever_m = hidegree_m_2020;
highest_degree_ever_y = hidegree_y_2020;
highest_degree_ever_rept_y = 2020;
end;
if (highest_degree_ever = 8 & highest_degree_ever = -4) then do;
highest_degree_ever = highest_degree_ever;
highest_degree_ever_m = highest_degree_ever_m;
highest_degree_ever_y = highest_degree_ever_y;
highest_degree_ever_rept_y = highest_degree_ever_rept_y;
end;
if (highest_degree_ever_y > 0 & highest_degree_ever_y < 100) then highest_degree_ever_y = (highest_degree_ever_y + 1900);
/*********************************************/
/* fill in missing (-3) dates */
/*********************************************/
do m = 1 to 29;
if (highest_degree_ever_y in(-1, -2, -3)) then do;
if (hidegreeeach_y_1979 > 0) then do;
highest_degree_ever_m = hidegree_m_1979;
highest_degree_ever_y = hidegree_y_1979;
end;
else if (hidegreeeach_y_1980 > 0) then do;
highest_degree_ever_m = hidegree_m_1980;
highest_degree_ever_y = hidegree_y_1980;
end;
else if (hidegreeeach_y_1981 > 0) then do;
highest_degree_ever_m = hidegree_m_1981;
highest_degree_ever_y = hidegree_y_1981;
end;
else if (hidegreeeach_y_1982 > 0) then do;
highest_degree_ever_m = hidegree_m_1982;
highest_degree_ever_y = hidegree_y_1982;
end;
else if (hidegreeeach_y_1983 > 0) then do;
highest_degree_ever_m = hidegree_m_1983;
highest_degree_ever_y = hidegree_y_1983;
end;
else if (hidegreeeach_y_1984 > 0) then do;
highest_degree_ever_m = hidegree_m_1984;
highest_degree_ever_y = hidegree_y_1984;
end;
else if (hidegreeeach_y_1985 > 0) then do;
highest_degree_ever_m = hidegree_m_1985;
highest_degree_ever_y = hidegree_y_1985;
end;
else if (hidegreeeach_y_1986 > 0) then do;
highest_degree_ever_m = hidegree_m_1986;
highest_degree_ever_y = hidegree_y_1986;
end;
else if (hidegreeeach_y_1987 > 0) then do;
highest_degree_ever_m = hidegree_m_1987;
highest_degree_ever_y = hidegree_y_1987;
end;
else if (hidegreeeach_y_1988 > 0) then do;
highest_degree_ever_m = hidegree_m_1988;
highest_degree_ever_y = hidegree_y_1988;
end;
else if (hidegreeeach_y_1989 > 0) then do;
highest_degree_ever_m = hidegree_m_1989;
highest_degree_ever_y = hidegree_y_1989;
end;
else if (hidegreeeach_y_1990 > 0) then do;
highest_degree_ever_m = hidegree_m_1990;
highest_degree_ever_y = hidegree_y_1990;
end;
else if (hidegreeeach_y_1991 > 0) then do;
highest_degree_ever_m = hidegree_m_1991;
highest_degree_ever_y = hidegree_y_1991;
end;
else if (hidegreeeach_y_1992 > 0) then do;
highest_degree_ever_m = hidegree_m_1992;
highest_degree_ever_y = hidegree_y_1992;
end;
else if (hidegreeeach_y_1993 > 0) then do;
highest_degree_ever_m = hidegree_m_1993;
highest_degree_ever_y = hidegree_y_1993;
end;
else if (hidegreeeach_y_1994 > 0) then do;
highest_degree_ever_m = hidegree_m_1994;
highest_degree_ever_y = hidegree_y_1994;
end;
else if (hidegreeeach_y_1996 > 0) then do;
highest_degree_ever_m = hidegree_m_1996;
highest_degree_ever_y = hidegree_y_1996;
end;
else if (hidegreeeach_y_1998 > 0) then do;
highest_degree_ever_m = hidegree_m_1998;
highest_degree_ever_y = hidegree_y_1998;
end;
else if (hidegreeeach_y_2000 > 0) then do;
highest_degree_ever_m = hidegree_m_2000;
highest_degree_ever_y = hidegree_y_2000;
end;
else if (hidegreeeach_y_2002 > 0) then do;
highest_degree_ever_m = hidegree_m_2002;
highest_degree_ever_y = hidegree_y_2002;
end;
else if (hidegreeeach_y_2004 > 0) then do;
highest_degree_ever_m = hidegree_m_2004;
highest_degree_ever_y = hidegree_y_2004;
end;
else if (hidegreeeach_y_2006 > 0) then do;
highest_degree_ever_m = hidegree_m_2006;
highest_degree_ever_y = hidegree_y_2006;
end;
else if (hidegreeeach_y_2008 > 0) then do;
highest_degree_ever_m = hidegree_m_2008;
highest_degree_ever_y = hidegree_y_2008;
end;
else if (hidegreeeach_y_2010 > 0) then do;
highest_degree_ever_m = hidegree_m_2010;
highest_degree_ever_y = hidegree_y_2010;
end;
else if (hidegreeeach_y_2012 > 0) then do;
highest_degree_ever_m = hidegree_m_2012;
highest_degree_ever_y = hidegree_y_2012;
end;
else if (hidegreeeach_y_2014 > 0) then do;
highest_degree_ever_m = hidegree_m_2014;
highest_degree_ever_y = hidegree_y_2014;
end;
else if (hidegreeeach_y_2016 > 0) then do;
highest_degree_ever_m = hidegree_m_2016;
highest_degree_ever_y = hidegree_y_2016;
end;
else if (hidegreeeach_y_2018 > 0) then do;
highest_degree_ever_m = hidegree_m_2018;
highest_degree_ever_y = hidegree_y_2018;
end;
else if (hidegreeeach_y_2020 > 0) then do;
highest_degree_ever_m = hidegree_m_2020;
highest_degree_ever_y = hidegree_y_2020;
end;
end;
end;
/**************************************/
/* write out final data */
/**************************************/
data hidegreeever2022_final (keep=pubid highest_degree_ever);
endsas;