Appendix 1: Education Variable Creation

• Enrollment Status, Highest Grade Completed, and Highest Degree Received
• Current or Most Recent School Private or Parochial
• Date Received Diploma or Degree
• Number of Grades Repeated or Skipped
• Number of Schools Attended
• Total Fraction of Credits Earned towards Bachelors/Associate Degree
• QED Data: School Size and Student-Teacher Ratio
• Training: Receipt of Certificate or Vocational License

Return to Table of Contents

Enrollment Status, Highest Grade Completed, and Highest Degree Received

Variables Created:

• CV_ENROLLSTAT (ENCAT)

• CV_HGC_EVER (GRSURV)

• CV_HIGHEST_DEGREE_EVER (DEGSURV)

• CV_HGC_YR (GRJUNE)

• CV_HIGHEST_DEGREE_YR (DEGJUNE)

Variables Used

Codes for Created Variables

This program first creates an enrollment status variable for each respondent.  It then identifies the highest grade completed by the respondent as of the  round 7 interview date and as of June 30, 2004.  Finally, it determines the highest degree or diploma received by the respondent as of the same two dates.

1. Rs who report receiving both a GED and a H. S. Diploma are coded as receiving a H. S. Diploma
2. Rs who report completing 12th grade but do not report receiving a H. S. Diploma or GED are coded as having completed 12th grade (in GRSURV and GRJUNE, if applicable) but are not credited with a H. S. Diploma/GED on ENCAT, DEGSURV, or DEGJUNE. Researchers interested in diploma receipt should use the DEGSURV or ENCAT variables, not HGC as of survey date since 12th grade completion does not necessarily signify H.S. Diploma completion.
3. Due to conflicting reports from a small number of Rs (N=36) regarding their school attendance in the loops versus in single items, invalid skips (-3) have been filled in since no reasonable determination on the enrollment and grades completed can be made (ENCAT, GRSURV, GRJUNE). Specifically, Rs are assigned a -3 if they:
   a) report being not enrolled and
   b) report a HGC on the single items (e3112) that is greater than the cv_highest_degree_ever  for the prior round (but do not indicate completing this grade in a loop) and
   c) report that their HGA (e2857) is two or more greater than the HGC reported in r2. Since  these Rs provide inconsistent information multiple times, they have been assigned a -3.  If they provide valid information on degrees earned, that variable will have a value
4. Some respondents provide conflicting information of grades attended/completed in the  schooling loops (e8416 and e9589) versus the single items (e3112, e2857). In round 6,  approximately ? respondents have conflicting grade reports, these Rs were identified as below where (ENROLL=0 and 12>=e3112^=GRSURV>0 and DEGSURV not in (1,2) and GRSURV^=95) or (0<maxgrade=GRSURV<95 and GRSURV^=e3112 and e3112<=12)
   This program gives priority to information provided in the schooling loops over that provided on single item questions. Users may wish to check the CV_HGC_EVER variable against student single item self-reports of HGC (e3112), which in many cases indicates a higher grade was completed than that reported in the loops.
5. Even if we do not have a date for the degree received (or we have an invalid date) we code the DEGSURV for that degree.
6. If R reports being in a 4year college or university (this is one category) and pursuing a degree higher than a bachelor's we code their enrollment status as enrolled in a graduate program (ENCAT=11). The problem here is that since we are not sure whether they are in a 4-year college or a university, we are not sure whether their they are actually in a graduate program or in a bachelor's program but their ultimate academic goal is a graduate program. There are 54 cases in this category who do not have an Associates or Bachelor's degree. We could have used that criterion to identify those actually in a graduate program. The problem is that there are programs which give only a graduate degree without a master's degree. So we code all these as ENCAT=11. Once the questionnaire is changed to accommodate the graduate program option, we can recode these in later rounds.

**** SECTION I *****;

** Initialize and define variables;


ENROLL=-3; * Indicates if R currently enrolled;

ENCAT=-3; * Enrollment status variable (including educational attainment);

HSD=0; * Indicates if R has a H. S. Diploma (check previous rounds);

GED=0; * Indicates if R has a GED (check previous rounds);

hgsch=0; * Indicates if R is currently attending grades 1-12 & no HSD or GED;

college=0; * Indicates if R is in college and working towards a undergrad (=1) or grad degree (=2);

flagcoll=0; * Indicates if Rs currently attending grades 1-12, no HSD or GED but enrolled in college
and working towards a grad or undergrad degree;

flaghs=0; * Indicates if Rs who have a H.S. Diploma and HGC=12 but still report enrollment in school;

flagloop=0; * Indicates if Rs going through old school re-enrollment loop twice;

somecoll=0; * Indicates if Rs having attended a college (in a degree program) in current or previous
rounds;

prevcoll=0; * Indicates if Rs having attended a college (in a degree program) in previous rounds. This
pertains to those actually enrolled in a degree program in college only;

currcoll=0; * Indicates if Rs having attended a college (in a degree program) in current round. This
pertains to those enrolled in a college and reporting to be working towards a degree
program. They may or may not be enrolled in a degree program.;

clg_ok=-4; * Indicates if R being in college (as reported in this round) w/o GED/HSD is OK. That is if
R is actually enrolled in a degree program. This pertains to currcoll and not prevcoll.;

last_enr=0; * Identifies the last round when R was enrolled;

ungraded=0; * Indicates Rs with no H.S. Diploma or GED have HGA=95 (ungraded);

same_mth=0; * Indicates Rs who received a degree in the same month as the interview.;

both=0; * Indicates that R reports receiving both GED and H. S. Diploma;

enr_deg=0; * Indicates if R is "currently" enrolled in a degree program but a non-degree program is
reported after this degree-program in the new school loops;

rosprb1=0; * Indicates Rs with scode(i) in (4,5) but e27337(i)=-4;

rosprb2=0; * Indicates Rs with scode(i)=-4 but e27337(i)>-4;

fill=-4; * These are filler variables that are used in arrays to match the number of elements.;

chk_comm=0; * Indicates if reports college in this round although R does not report receiving GED or
H.S. Diploma, by this round. Check the comments in current round to see whether they
were actually enrolled in a degree program in a college.;

chk_commP=0; * Indicates if ENCAT in any prior rounds shows college although R does not report
receiving GED or HS Diploma, by those rounds. Check the comments in current and earlier
rounds for these cases to see whether they were actually enrolled in a degree program in
a college.;

hgc_hga=0; * Indicates if Rs reporting HGC greater than HGA;

hgc_hga_n=-4; * Indicates if Rs reporting HGC greater than HGA, after HGC and HGA were edited for those
never enrolled at or since DLI such that they remained the same as those at DLI.;

prev_deg=0; * Indicates if the highest degree attained is lower than what it was in last round;

**************************************************************
** dlicm: date of last interview                                                                          **
** dli_rnd: the last round that R was interviewed                                               **
** doicm: date of current interview                                                                   **
** enroll_Rx: whether enrolled in earlier rounds                                                **
** encatP: ENCAT when last interviewed                                                        **
** hgaloop: highest grade attended (from loops)                                               **
** hgcloop: highest grade completed (from loops)                                            **
** hgcdt: date of completion of hgcloop                                                           **
**************************************************************;

JUNEYR=294;
YEAR=2004;
MONTH=6;
doicm_LR=doicmr7;

*** Define arrays to be used later in the program;

array e6784 (4) e6784r8_1-e6784r8_4;
array e6938 (4) e6938r8_1-e6938r8_3 dum;
array e7192 (4) e7192r8_1-e7192r8_4;
array e7142 (4,2) e7142r8_11 e7142r8_12
e7142r8_21 dum
e7142r8_31 dum
dum dum;
array e6943 (4,2) e6943r8_11 e6943r8_12
e6943r8_21 dum
dum dum
dum dum;

array scode (5) scoder8_1-scoder8_5;
array e27337 (5) e27337r8_1-e27337r8_5;

array strtm (*) strtmr8_11 strtmr8_21 strtmr8_31
strtmr8_12 strtmr8_22 strtmr8_32
strtmr8_13 strtmr8_23
strtmr8_14
strtmr8_15;
array strty (*) strtyr8_11 strtyr8_21 strtyr8_31
strtyr8_12 strtyr8_22 strtyr8_32
strtyr8_13 strtyr8_23
strtyr8_14
strtyr8_15;
array stopm (*) stopmr8_11 stopmr8_21 stopmr8_31
stopmr8_12 stopmr8_22 stopmr8_32
stopmr8_13 stopmr8_23
stopmr8_14
stopmr8_15;
array stopy (*) stopyr8_11 stopyr8_21 stopyr8_31
stopyr8_12 stopyr8_22 stopyr8_32
stopyr8_13 stopyr8_23
stopyr8_14
stopyr8_15;
array degre (*) e27337r8_1 e27337r8_1 e27337r8_1
e27337r8_2 e27337r8_2 e27337r8_2
e27337r8_3 e27337r8_3
e27337r8_4
e27337r8_5;
array codes (*) scoder8_1 scoder8_1 scoder8_1
scoder8_2 scoder8_2 scoder8_2
scoder8_3 scoder8_3
scoder8_4
scoder8_5;
array reasn (*) lftscr8_1 dum dum
lftscr8_2 dum dum
lftscr8_3 dum
lftscr8_4
lftscr8_5;
array strcm (*) strcm11 strcm21 strcm31
strcm12 strcm22 strcm32
strcm13 strcm23
strcm14
strcm51;
array stpcm (*) stpcm11 stpcm21 stpcm31
stpcm12 stpcm22 stpcm32
stpcm13 stpcm23
stpcm14
stpcm15;

array gratnd (*) e8416r8_11 e8416r8_12
e8416r8_21
e8416r8_31
e8416r8_41
e8416r8_51

e9589r8_111-e9589r8_113 e9589r8_121
e9589r8_211-e9589r8_213
e9589r8_311-e9589r8_313
e9589r8_511;

array grcomp (*) e9131r8_11 e9131r8_12
e9131r8_21
e9131r8_31
e9131r8_41
e9131r8_51

e9946r8_111-e9946r8_113 e9946r8_121
e9946r8_211-e9946r8_213
e9946r8_311-e9946r8_313
e9946r8_511;

array yrcomp (*) e9335yr8_11 dum
e9335yr8_21
e9335yr8_31
e9335yr8_41
e9335yr8_51

e10099yr8_111-e10099yr8_113 dum
e10099yr8_211-e10099yr8_213
e10099yr8_311-e10099yr8_313
e10099yr8_511;

array mocomp (*) e9335mr8_11 dum
e9335mr8_21
e9335mr8_31
e9335mr8_41
e9335mr8_51

e10099mr8_111-e10099mr8_113 dum
e10099mr8_211-e10099mr8_213
e10099mr8_311-e10099mr8_313
e10099mr8_511;

array t7000A (*) t7000:;

array doicmR (*) doicmr1-doicmr7;
array intmR (*) intmr1-intmr7;
array intyR (*) intyr1-intyr7;
array encatR (*) encatr1-encatr7;
array enrollR (*) enrollr1-enrollr7;
array grsurvR (*) grsurvr1-grsurvr7;
array grjuneR (*) grjuner1-grjuner7;
array degsurvR (*) degsurvr1-degsurvr7;
array hgaR (*) e3500r1 e2857r2-e2857r7;
array hgcR (*) e5000r1 e3112r2-e3112r7;
array hsrR (*) hsr1-hsr7;
array gdrR (*) gdr1-gdr7;

array scoder [7,7] dum dum dum dum dum dum dum
scoder2_1-scoder2_6 dum
scoder3_1-scoder3_7
scoder4_1-scoder4_5 dum dum
scoder5_1-scoder5_6 dum
scoder6_1-scoder6_4 dum dum dum
scoder7_1-scoder7_5 dum dum;
handedit=0;
*** HANDEDITS (1);
** In R7 R said R was allowed to enroll in college w/o diploma and so we coded ENCAT=9. But in R8 said R
was working towards a GED.;
if pubid=6646 then do;
encatr7=8;
handedit=1;
end;
** In R2 these Rs said they were pursuing GED at that college or in an adult education program.;
if pubid in (2154 3466) then do;
encatr2=8;
handedit=1;
end;
** This R does not seems to be getting H.S. credits at college.;
if pubid=440 then do;
encatr2=1;
encatr4=1;
encatr6=1;
encatr7=1;
handedit=1;
end;
** They reported YSCH-3878 as Refuse/Don'tKnow and so we have no schooling information.;
if pubid in (1219 1594 8484 9011) then do;
e3878r8=0;
handedit=1;
end;
** R mentioned in comments that R was not working towards any degree & YSCH-27337=-2;
if pubid=199 then do;
e27337r8_1=7;
handedit=1;
end;
** R mentioned in comments that R was undecided on degree & YSCH-27337=-2;
if pubid=3039 then do;
e27337r8_1=7;
handedit=1;
end;
** R mentioned in comments that R undecided on major and enrolled in online courses & YSCH-27337=-2.;
if pubid=6374 then do;
e27337r8_2=7;
handedit=1;
end;

*** Create intermediate variables to be used in the program later.;

* Create variable indicating Highest Degree Received by DLI;
do i=1 to dim(degsurvR); * MODIFIED;
if degsurvR(i)~=-5 then degsurvP=degsurvR(i);
end;

* Compute dlicm and dli_rnd;
do j=1 to dim(intmR);
if intmR(j)~=-5 then do;
dlicm=((intyR(j)-1980)*12)+intmR(j);
dlim=intmr(j); * NEW;
dliy=intyr(j); * NEW;
dli_rnd=j;
do k=1 to 7;
if scoder(j,k) in (4,5) then wasinclg_DLI=1; * NEW;
end;
hsrP=hsrR(j); * NEW;
gdrP=gdrR(j); * NEW;
end;
end;

if intmr8~=-5 then doicm=((intyr8-1980)*12)+intmr8;

/* DELETED
rosprb1=0; rosprb2=0;
do i=1 to dim(scode);
if (scode(i)=4|scode(i)=5) & e27337(i)=-4 then rosprb1=1;
if scode(i)=-4 & e27337(i)>-4 then rosprb2=1;
end;
*/

* Create variable indicating HGC by DLI;
if dli_rnd=1 then do;
if hsr1>-4 & grsurvr1<12 then grsurvP=12; * MODIFIED;
end;
do i=1 to dim(grsurvR);
if grsurvR(i)>-5 then grsurvP=grsurvR(i); * MODIFIED;
if grjuneR(i)>-5 then grjuneP=grjuneR(i); * NEW;
end;


corr_grsP=0; * NEW;
if e3061r8>=0 then do; corr_grsP=1; grsurvP=e3061r8; end;
if 0<=e3061r8<12 & (hsrP>-4|gdrP>-4) then do; corr_grsP=2; grsurvP=12; end;

** Checking int dates; * NEW;
if doicmr8~=-5 then doicm=doicmr8;

* Expected date of graduation; * NEW;

if e24889mr8>-4 & e24889yr8>-4 then do;
grady=e24889yr8;
gradm=e24889mr8;
if e24889mr8>0 & e24889yr8>0 then gradcm=(((e24889yr8-1980)*12)+e24889mr8);
if -3<=e24889mr8<=-1 & e24889yr8>0 then gradcm=(((e24889yr8-1980)*12)+6);
if -3<=e24889yr8<=-1 then gradcm=-3;
end;
if e24940mr8>-4 & e24940yr8>-4 then do;
grady=e24940yr8;
gradm=e24940mr8;
if e24940mr8>0 & e24940yr8>0 then gradcm=(((e24940yr8-1980)*12)+e24940mr8);
if -3<=e24940mr8<=-1 & e24940yr8>0 then gradcm=(((e24940yr8-1980)*12)+6);
if -3<=e24940yr8<=-1 then gradcm=-3;
end;

** Start and stop dates of enrollment in continuous month scheme;
do i=1 to dim(degre);
if stopm(i)>0 & stopy(i)>0 then stpcm(i)=((stopy(i)-1980)*12)+stopm(i);
if -4<stopm(i)<0|-4<stopy(i)<0 then stpcm(i)=-3;
if strtm(i)>0 & strty(i)>0 then strcm(i)=((strty(i)-1980)*12)+strtm(i);
if -4<strtm(i)<0|-4<strty(i)<0 then strcm(i)=-3;
end;

* Whether received GED, ever;
if CDTGD>-4 then GED=1;
* Whether received HS Diploma, ever;
if CDTHS>-4 then HSD=1;
* Whether received both GED and HS Diploma, ever;
if HSD=1 & GED=1 then both=1;


** Data and quex problems w/ roster information; * NEW;
rosprb1=0; rosprb2=0;
do i=1 to dim(scode);
if (scode(i)=4|scode(i)=5) & e27337(i)=-4 then rosprb1=1;
if scode(i)=-4 & e27337(i)>-4 then rosprb2=1;
if scode(i) in (-1,-2,-3,6) then INV1=1;
if scode(i) in (4,5) & e27337(i) in (-1,-2,-3) then INV2=1;
end;
do i=1 to dim(strcm);
if strcm(i)=-3 then INV3=1;
if stpcm(i)=-3 then INV3=2;
if strcm(i)=-3 & stpcm(i)=-3 then INV3=3;
end;

* Enrollment status at each interview and ENCAT at last interview;
do i=1 to dim(intmR);
if encatR(i) in (8,9,10,11) then enrollR(i)=1;
if encatR(i) in (1,2,3,4,5,6,7) then enrollR(i)=0;
if -5<encatR(i)<0 then enrollR(i)=encatR(i);
if encatR(i)~=-5 then encatP=encatR(i);
if enrollR(i)~=-5 then enrollP=enrollR(i);
if enrollR(i)=1 then last_enr=i;
if hgaR(i)~=-5 then hgaP=hgaR(i);
end;

* Last regular school enrolled in, its start and stop date of enrollmnet, type of school and degree
working towards & school loop number; * MODIFIED;
STOP=-4;
do i=1 to dim(degre);
if stpcm(i)>STOP then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=1;
end;
if stpcm(i)=STOP & sch in (4,5) & codes(i)=sch & deg in (1,3,4,5,6,10) & degre(i)=deg then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=2;
end;
if 0<stpcm(i)<STOP & 0<cdths<STOP & STOP=doicm & 0<STRT<strcm(i) & 0<cdths<=strcm(i)
& codes(i) in (4,5) & sch in (1,2,3)
& degre(i) in (1,3,4,5,6,10) & deg not in (1,3,4,5,6,10) then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=3.1;
end;
if 0<stpcm(i)<STOP & 0<cdtgd<STOP & STOP=doicm & 0<STRT<strcm(i) & 0<cdtgd<=strcm(i)
& codes(i) in (4,5) & sch in (1,2,3)
& degre(i) in (1,3,4,5,6,10) & deg not in (1,3,4,5,6,10) then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=3.2;
end;
if stpcm(i)=STOP & codes(i)=5 & sch=4 & degre(i) in (1,3,4,5,6,10) & deg in (1,3,4,5,6,10) then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=4;
end;
if stpcm(i)=STOP & codes(i)=5 & sch=5 & degre(i) in (4,5,6,10) & deg in (1,3) then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=5;
end;
if stpcm(i)=STOP & codes(i) in (4,5) & sch in (1,2,3) & (HSD=1|GED=1) then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=6;
end;
if 0<stpcm(i)<=STOP & codes(i)in (1,2,3) & sch in (1,2,3) & STOP=doicm & strcm(i)>=STRT>0 then do;
STOP=stpcm(i);
STRT=strcm(i);
sch=codes(i);
deg=degre(i);
rosnum=i;
STOP_loc=7;
end;
end;
if STOP>0 then diff=doicm-STOP;
do i=1 to dim(degre);
if rosnum=i then do;
if STOP=doicm & stpcm(i)=doicm & reasn(i)>-4 then diff=10000;
end;
end;
do i=1 to dim(degre);
if strcm(i)>=-3 & stpcm(i)>=-3 then lastloopnum=i;
end;

* Whether the last school attended was High School or College, and if the latter then for what degree?;
if sch in (-1,-2,-3) then lastsch=-3;
if sch=6 then lastsch=6; * NEW;
if sch in (1,2,3) then lastsch=1;
if sch in (4,5) and deg in (1,3,4,5,6,10) then lastsch=2;
if sch in (4,5) and deg in (2,7,8,999) then lastsch=2.1;
if sch in (4,5) and deg=9 then lastsch=2.2;
if sch in (4,5) and deg in (-1,-2,-3) then lastsch=2.3;
if sch in (4,5) and deg=-4 then lastsch=2.4;

** Handedit; * NEW;
** We matched the unique IDs of the college they were attending in this round but for which we did not
ask the degree working towards question to the unique school IDs in prior rounds and round 9. If we
found that they reported working towards a college degree or not - we used that information to code
LASTSCH below. Out of the cases that we could not do this type of matching 5 had a single-tem HGC<=12
and single-item HGC<12. These we coded as LASTSCH=2.3, i.e., they were working towards a GED. Of the
remaining three cases:
(1) 2390: Received a GED from the college reported in the month after he/she stopped being
enrolled in that college - we coded this as lastsch=2.2
(2) 4746: Reported receiving a H.S. Diploma in YSCH-3113, although did not report one in
YSCH-11700. Reported HGC=14 in R8 and HGC=13 in R7. Was in a college degree program in R6.
This we coded as lastsch=2.
Note: see program R8degmiss.sas;

if lastsch=2.4 then do;
if pubid in (89 794 3121 4053 4289 4746 1695 2258 3388) then do;
lastsch=2;
deg=3;
end;
if pubid=579 then do;
lastsch=2;
deg=1;
end;
if pubid=4875 then do;
lastsch=4;
deg=1;
end;
if pubid=4724 then do;
lastsch=2;
deg=6;
end;
if pubid in (1124 1706 1843 3506 4396 5292 7737) then do;
lastsch=2.1;
end;
if pubid in (2390) then do;
lastsch=2.2;
end;
end;

** Some Rs reported no information about the last school they were enrolled in at current interview.
These Rs had received their BA/BS and were working towards their MA/MBA/MS/MSW/. We concluded that
they were in a legitimate college/university.;
if lastsch=6 & deg in (4,5,6,10) & cdtba>-4 then do;
sch=5;
lastsch=2;
end;


/* DELETED
* Whether received GED, ever;
if CDTGD>-4 then GED=1;
* Whether received HS Diploma, ever;
if CDTHS>-4 then HSD=1;
* Whether received both GED and HS Diploma, ever;
if HSD=1 & GED=1 then both=1;
*/

* - When R attended college (in a degree program) in a previous round; * MODIFIED;
do i=1 to dim(encatR);
if encatR(i) in (4,5,6,7,9,10,11) & degsurvR(i)>=1 then prevcoll=1;
if encatR(i) in (4,5,6,7,9,10,11) & degsurvR(i)<1 then do;
prevcoll=1;
chk_commP=1;
if hsrR(i)>-4|gdrR(i)>-4 then chk_commP=2;
end;
end;
* - When R attended college (in a degree program) in a previous round and did not correct HGA as of
last interview (e2806) to <13 i.e. accepts being in college as of last interview;
do i=1 to dim(encatR);
if (e2806r8=-4|e2806r8>=13) & encatR(i) in (4,5,6,7,9,10,11) & (hsrR(i)=1|gdrR(i)=1) then prevcoll=1;
if (e2806r8=-4|e2806r8>=13) & encatR(i) in (4,5,6,7,9,10,11) & hsrR(i)=-4 & gdrR(i)=-4 then do;
prevcoll=1;
chk_commP=1;
if 0<CDTHS<=doicmR(i) then chk_commP=2;
if 0<CDTGD<=doicmR(i) then chk_commP=2;
end;
end;
** Comments show R was in a valid college degree program;
if pubid=607 then chk_commP=0;

* - When R attended college (in a degree program) in this round;
do i=1 to dim(scode);
if scode(i) in (4,5) & e27337(i) in (1,3,4,5,6,10) then currcoll=1;
end;
if hsd=0 & ged=0 & currcoll=1 then chk_comm=1;
if hsd=0 & ged=0 & currcoll=1 & clg_ok=-4 then clg_ok=0;
if (hsd=1|ged=1) & currcoll=1 then clg_ok=1;
if prevcoll=1|currcoll=1 then somecoll=1;


*** Handedits.;

* IMP: check the comments and YSCH-13900 reports for this round for chk_comm=1 cases, to see whether
they are actaully enrolled in a degree program in a college. Also check the comments and
YSCH-13900 reports for all rounds for chk_commP=1 cases, to see whether their ENCAT in college
(w/o GED or HSD) in earlier rounds was justified.;

if pubid in (902 1915 4444 6650 7417 7575) & currcoll=1 then do;
clg_ok=1;
FLG_13900r8=1;
end;

if pubid in (81 83 589 1260 1708 2122 3333 3508 3688 4182 4315
4650 5499 5918 5929 5937 5940 5984 6505 6587 6646 6811
6906 7165 7391 7638 7710 7816 7828 8182 8722 9018 6491
8698)
then do;
clg_ok=0;
FLG_13900r8=1;
end;

* Grade information from loops;
hgaloop=e8416r8_11;
do i=2 to dim(gratnd);
if gratnd(i)>hgaloop then do;
hgaloop=gratnd(i);
end;
end;

hgcloop=-16;
do i=1 to dim(gratnd);
if gratnd(i)>=0 & gratnd(i)>hgcloop then do;
if grcomp(i)=1 then do;
hgcloop=gratnd(i);
if mocomp(i)>0 & yrcomp(i)>0 then hgcdt=((yrcomp(i)-1980)*12)+mocomp(i);
if mocomp(i)>0 & yrcomp(i)>0 then hgcdt=-3;
end;
else if grcomp(i) in (-1,-2,-3) then do;
hgcloop=grcomp(i);
end;
end;
if gratnd(i) in (0,-1, -2, -3,-4) & grcomp(i)>-4 then do;
hgcloop=-55;
end;
end;

if (1<=e2857r8<=12) & HSD=0 & GED=0 then hgsch=1;

do i=1 to dim(e27337);
if e27337(i) in (1,3) then college=1;
if e27337(i) in (4,5,6,10) then college=2;
if e27337(i) in (-1,-2,-3) then college=-3;
end;

if 0<=e2857r8<e3112r8<95 then hgc_hga=1;
if (0<=e2857r8<12) & e3112r8=12 then hgc_hga=2;
if 0<=e2857r8<=12<e3112r8<95 & hsd=0 & ged=0 then hgc_hga=3.1;
if 0<=e2857r8<=12<e3112r8<95 & (hsd=1|ged=1) then hgc_hga=3.2;
if 12<e2857r8<e3112r8<95 then hgc_hga=4;

/** VERY IMP: When R was not enrolled at DLI and has not been enrolled since DLI, I put HGA (YSCH-2857)
and HGC (YSCH-3112) as that reported at DLI unless corrected. **/
if e3878r8=0 & hgc_hga>=1 then do;
hgc_hga_n=0;
if e3103r8~=0 then e2857r8=hgaR(dli_rnd);
if e3103r8=0 then e2857r8=e3104r8;
if e3010r8~=0 then e3112r8=hgcR(dli_rnd);
if e3010r8=0 then e3112r8=e3061r8;
if 0<=e2857r8<e3112r8<95 then hgc_hga_n=1;
end;

***********************************************************
*** (I) CREATED VARIABLE - ENROLLMENT STATUS (ENCAT) ***
***********************************************************;

*** [IA] Determining whether the respondent is enrolled or not.
Note: Summer vacations are included as part of the enrollment period;

if diff=0 then enroll=1;
if diff>0 then enroll=0;
if -3<=STOP<=-1 then enroll=0;
if e3878r8=0 then enroll=0;

** If respondent has received a H.S. Diploma, HGA & HGC is 12 and there is a valid end date for
the completed 12th grade then we check whether R should be coded as enrolled or not. If R reports
a 2-yr or 4-yr college then R is coded as enrolled irrespective of the type of degree working
towards;

if HSD=1 & hgcloop=12 & hgcdt>0 & ENROLL=1 then do;
chk_enr2=1;
ENROLL=0;
do i=1 to dim(scode);
if scode(i) in (4,5) then ENROLL=1;
end;
end;

** Computing ENROLL by another method - ENROLLx; * NEW;
if e1624r8_1=1 then flagloop=1; * flag those who re-enroll;

** not enrolled at and sdli;
if e3878r8=0 then enrollx=0;

** old school;
* enrolled at dli, continuously enrolled in old school sdli, no new schools;
if e4795r8=1 & e4951r8=0 then enrollx=1;
* not enrolled at dli but re-enrolled in old school sdli, continuously re-enrolled in old school
sdli, no new schools;
if e4793r8=1 & e4951r8=0 then enrollx=1;

* not continuously enrolled in old school SDLI;
if (e4795r8=0 or e4793r8=0) then do;
*left school upon completing coursework or receiving degree;
if e1605r8=-4 & e4951r8=0 then enrollx=0;
* re-enrolled in old school;
if e1605r8=1 then do;
* continuously re-enrolled in old school, no new schools;
if e1615r8_1=1 & e4951r8=0 then enrollx=1;
* not continuously re-enrolled in old school, first time through loop, no other re-enrollments
at old school, and no new schools;
if e1615r8_1=0 & e1624r8_1=0 & e1627r8_1=0 & e4951r8=0 then enrollx=0;
* continuously re-re-enrolled in old school, no new schools;
if e1615r8_2=1 & e4951r8=0 then enrollx=1;
* not continuously re-re-enrolled in old school, second time through loop;
if e1615r8_2=0 then chk_enrprd=1;
end;
* not re-enrolled in old school, no new schools;
if e1605r8=0 and e4951r8=0 then enrollx=0;
end;

** new school;

* enrolled or not enrolled at dli but enrolled in new school sdli;
if (e4951r8=1 or e3878r8=1) then do;

* continuously enrolled in new school, no other new schools reported;
do i=1 to dim(e6784);
if e6784(i)=1 & e7192(i)=0 then enrollx=1;
end;

* not continuously enrolled in new school, re-enrolled, continuously re-enrolled, no other
new schools reported;
do i=1 to dim(e6784);
if e6784(i)=0 & e7192(i)=0 then do;
do j=1 to 2;
if e6943(i,j)=1 then enrollx=1;
end;
end;
end;

* not continuously enrolled in new school -
(1) re-enrolled, not continuously re-enrolled
(2) left school because completed coursework or received degree,
No other enrollment periods, no other new school;
do i=1 to dim(e6784);
do j=1 to 2;
if e7142(i,j)=0 & e7192(i)=0 then enrollx=0;
end;
end;

* not continuously enrolled in new school, did not re-enroll, no new schools;
do i=1 to dim(e6784);
if e6938(i)=0 & e7192(i)=0 then enrollx=0;
end;

end;

*** (IB) Determining the sub-categories of not enrolled;

if ENROLL=0 then do;

** No H.S. Diploma, no GED - ENCAT=1;
if (GED<=0) & (HSD<=0) then ENCAT=1;

** GED - ENCAT=2;
if GED=1 then ENCAT=2;

** High school degree - ENCAT=3;
if HSD=1 then ENCAT=3;

** R (now not enrolled) attended some college & was enrolled in a degree program (i.e. e27337
is 1,3,4,5 or 6), - ENCAT=4.
Note: those who indicated attending a college and working toward a "vocational or technical
certificate" (e27337=2) are coded as not having attended college because these credits
typically won't transfer for a Bachelors or an Associates Degree. R attended some college,
perhaps in a prior round, or in current round;

tmpENCAT=ENCAT;
if prevcoll=1 then ENCAT=4;
if currcoll=1 & ((13<=e2857r8<=20)|e3112r8>=12|HSD=1|GED=1|hgcloop=12|clg_ok=1) then ENCAT=4;
if prevcoll=0 & currcoll=1 & clg_ok=0 then ENCAT=tmpENCAT; * NEW;

** Received junior college or 2 year associate degree - ENCAT=5;
if CDTAA>-4 then ENCAT=5;

** Received bachelor's degree - ENCAT=6;
if CDTBA>-4 then ENCAT=6;

** Received master's, doctoral or professional degree - ENCAT=7;
if CDTMA>-4|CDTDC>-4|CDTPF>-4 then ENCAT=7;

end;

*** (IC) Determining the sub-categories of enrolled;

if ENROLL=1 then do;

if lastsch=1 then do;
if CDTHS>0 & (e3112r8=12|hgcloop=12) then flaghs=1;
if (1<=e2857r8<=12) & HSD<=0 & GED<=0 then ENCAT=8;
if e2857r8=13 & HSD=0 & GED=0 then ENCAT=8;
if e2857r8=95 & HSD=0 & GED=0 then do;
ENCAT=8;
ungraded=1;
end;
end;

if lastsch=2 then do;

if sch=4 & deg in (1,3,4,5,6,10) & ((13<=e2857r8<95)|e3112r8>=12|GED=1|HSD=1|hgcloop=12|clg_ok=1)
then ENCAT=9;

if sch=5 & deg in (1,3,4,5,6,10) & ((13<=e2857r8<95)|e3112r8>=12|GED=1|HSD=1|hgcloop=12|clg_ok=1)
then ENCAT=10;

if sch=5 & deg in (4,5,6,10) & ((16<e2857r8<95)|e3112r8>=16) then ENCAT=11;

if prevcoll=0 & currcoll=1 & clg_ok=0 then do; * NEW;
if GED=1 then ENCAT=2;
if HSD=1 then ENCAT=3;
if GED=0 & HSD=0 then ENCAT=8;
end;
if prevcoll=1 & currcoll=1 & clg_ok=0 then ENCAT=4; * NEW;

if (1<=e2857r8<=12) & HSD=0 & GED=0 & clg_ok~=1 then do;
ENCAT=8;
flagcoll=1;
end;

end;

if lastsch>2 then do;
if GED=0 & HSD=0 & somecoll=0 then ENCAT=8;
if currcoll=0 & prevcoll=1 then do;
*if HSD=1|GED=1 then ENCAT=4; * DELETED;
ENCAT=4; * NEW;
if CDTAA>-4 then ENCAT=5;
if CDTBA>-4 then ENCAT=6;
if CDTMA>-4|CDTDC>-4|CDTPF>-4 then ENCAT=7;
end;
if currcoll=1 & (HSD=1|GED=1|clg_ok=1) then ENCAT=4;
end;
if GED=1 & HSD=0 & somecoll=0 then ENCAT=2;
if HSD=1 & somecoll=0 then ENCAT=3;
if (HSD=1|GED=1|clg_ok=1) & currcoll=1 & lastsch=-3 then ENCAT=4;
if (HSD=1|GED=1) & prevcoll=1 & lastsch=-3 then ENCAT=4;

end;

oldencat=ENCAT;

** Respondents receiving the bachelor's degree degree in and around the month of the interview are
coded as being enrolled by the program. So the ENCAT is not correct. We recode the ENCAT;

if CDTHS>0 & doicm=CDTHS & ENCAT in (-3,1,2,8) then do;
ENCAT=3;
same_mth=1;
end;

if CDTGD>0 & doicm=CDTGD & ENCAT in (-3,1,8) then do;
ENCAT=2;
same_mth=1;
end;

if CDTAA>0 & doicm=CDTAA & ENCAT in (-3,1,2,8,3,4,9) then do;
ENCAT=5;
same_mth=1;
end;

if CDTBA>0 & doicm=CDTBA & ENCAT in (-3,1,2,8,3,4,5,10) then do;
ENCAT=6;
same_mth=1;
end;

if ((CDTMA>0 & doicm=CDTMA)|(CDTDC>0 & doicm=CDTDC)) & ENCAT~=7 then do;
ENCAT=7;
same_mth=1;
end;

** If R was enrolled since DLI although may not be currently enrolled;

if ENROLL=1|(ENROLL=0 & e3878r8~=0) then do;

if lastsch=-3 & ENCAT<0 then do; * MODIFIED;
ENCAT=-3;
reason=1;
end;

if INV2=1 then do;
flagcoll=-3;
college=-3;
if enroll=1 & lastsch=2.3 then do;
ENCAT=-3;
reason=2.1;
end;
if enroll=0 & somecoll=0 & lastsch=2.3 then do;
ENCAT=-3;
reason=2.2;
end;
end;

* Those who completed high school (or a GED), report HGA>12 but do not indentify a college on the
school rosters.;
if (HSD=1|GED=1) & (13<=e2857r8<95) & (13<=e3112r8<95) then do;
tmpvar1=ENCAT;
tmpvar2=reason;
ENCAT=-3;
reason=3;
do i=1 to dim(scode);
if scode(i) in (-1,-2,-3,4,5,6) then do;
ENCAT=tmpvar1;
reason=tmpvar2;
end;
end;
end;

* DELETED;
/* Those who received a H.S. Diploma, but report HGA<=12 & HGC<12.;
if HSD=1 & e2857r8<=12 & e3112r8<12 & hgcloop<12 & handedit=0 then do;
chk_hgc=1;
if hsrP=-4 then do;
ENCAT=-3;
reason=4;
end;
end;*/

* If R has neither GED nor H.S. Diploma but reports going to a college, in a degree program,
& HGA>=13, and we have no additional evidence that R was given special permission to do so
we code ENCAT=-3.;
if (13<=e2857r8<=20) & GED=0 & HSD=0 & clg_ok~=1 & currcoll=1 then do;
ENCAT=-3;
reason=5;
end;

* Those who reported being in a 2-yr or 4-yr college but were not asked what type of degree
working towards;
if rosprb1=1 & ENCAT=-3 & reason=. then reason=6;

end;

** HANDEDITS (2);
** Had a GED and was in college last round. This round discontinued going to that college and went
to a school to get High School Diploma.;
if pubid=6754 then do;
ENCAT=4;
handedit=1;
end;

** The second school type was -2. R is currently enrolled in this school. We identified the school
as a community center.;
if pubid=6743 then do;
ENCAT=8;
handedit=1;
end;
** The second school type was -2. R is currently enrolled in this school. We identified the school
as a vocational institute. R was in a GED program in an earlier school which R left as R moved
away.;
if pubid=7828 then do;
ENCAT=1;
handedit=1;
end;

** R left college in last round bcos of poor grades. At that time R was working towards an AA degree.
In this round R reported re-enrolling in that same college and currently enrolled but did not
know what degree R was working towards and had no major.;
if pubid=2377 then do;
ENCAT=4;
handedit=1;
end;
** R reported being enrolled in this college since Round 6 and reported not working towards any
diploma or degree in Rounds 6, 7 and 9. In this round R reported not knowing what degree R was
working towards;
if pubid=395 then do;
ENCAT=3;
handedit=1;
end;
** In this round R reported not knowing what degree R was working towards. R reported being enrolled
in this college in Round 9 as well and in that round reported R was not working towards any
diploma or degree. R was also enrolled in this college in Rounds 4 and 5 when R reported working
towards an AA degree.;
if pubid=4171 then do;
ENCAT=4;
handedit=1;
end;
** In this round R reported not knowing what degree R was working towards. This is the only round R
reports being enrolled in any college.;
if pubid=5379 then do;
ENCAT=3;
handedit=1;
end;
** R received H.S.Diploma in June 2000 and then enrolled in college in September 2000. R refused
to report the degree R was working towards. The last time R was interview was in May 1997 and
so we do not have any additional information about this college.;
if pubid=6948 then do;
ENCAT=-3;
handedit=1;
end;
** In this round R reported not knowing what degree R was working towards. R has been continuously
enrolled at this college since Round 4 (except for 1 vacation term reported in Round 5) and also
reported being enrolled at this college in Round 9. Also R has reported working towards an AA
degree in all rounds other than this round.;
if pubid=7519 then do;
ENCAT=9;
handedit=1;
end;
** In this round R reported not knowing what degree R was working towards. R was last enrolled in a
high school in May 1999 (reported in Round 3). After that R was not enrolled until this round. In
Round 5 R reported receiving a H.S. Diploma in June 2000.;
if pubid=8491 then do;
ENCAT=3;
handedit=1;
end;

** encat_r2=9, reports a college enrollment in Round 2 but has neither GED nor HSD. ENCAT is 1 or 8
since that round. Is not enrolled in college in this round.;
if pubid in (3508, 8952) then do;
ENCAT=1;
handedit=1;
end;

** Degree working towards was missing and was not interviewed in R9;
if pubid=1346 then do;
ENCAT=-3;
reason=7;
handedit=1;
end;

oldenroll=enroll;
***** SECTION II *****;
data mrg2; set mrg1;

** Must fix "ENROLL" flag because this flag is used in the grades skipped/repeated program;
if ENCAT in (1,2,3,4,5,6,7) & ENROLL~=0 then do;
ENROLL=0;
enr_chg=1;
end;
if ENCAT in (8,9,10,11) & ENROLL~=1 then do;
ENROLL=1;
enr_chg=2;
end;

** State the arrays to be used in the rest of the program;

array gratnd (*) e8416r8_11 e8416r8_12
e8416r8_21
e8416r8_31
e8416r8_41
e8416r8_51

e9589r8_111-e9589r8_113 e9589r8_121
e9589r8_211-e9589r8_213
e9589r8_311-e9589r8_313
e9589r8_511;

array grcomp (*) e9131r8_11 e9131r8_12
e9131r8_21
e9131r8_31
e9131r8_41
e9131r8_51

e9946r8_111-e9946r8_113 e9946r8_121
e9946r8_211-e9946r8_213
e9946r8_311-e9946r8_313
e9946r8_511;

array yrcomp (*) e9335yr8_11 dum
e9335yr8_21
e9335yr8_31
e9335yr8_41
e9335yr8_51

e10099yr8_111-e10099yr8_113 dum
e10099yr8_211-e10099yr8_213
e10099yr8_311-e10099yr8_313
e10099yr8_511;

array mocomp (*) e9335mr8_11 dum
e9335mr8_21
e9335mr8_31
e9335mr8_41
e9335mr8_51

e10099mr8_111-e10099mr8_113 dum
e10099mr8_211-e10099mr8_213
e10099mr8_311-e10099mr8_313
e10099mr8_511;

array e23450 (5) e23450r8_1-e23450r8_3 dum dum;

maxgrade=-16;
comp_mo=-16;
comp_yr=-16;
assign='unassigned';

evrloop=0; * Flag to indicate respondents who go through a grade loop at least once;
subsitm=0; * Flag to indicate e3112 (single item) is being used to compute GRSURV;
subhgam=0; * Flag to hgaloop (HGA from loop) minus 1 is being used to compute GRSURV;
subprev=0; * Flag to indicate grade from last interviewed round is being used to compute GRSURV;
setto12=0; * Flag to indicate GRSURV being set to 12;

dateitm=0; * Flag to indicate date of grade completion missing;
disagre=0; * Flag to indicate that GRSURV from previous rounds is greater than from the current round;
datedeg=0; * Flag to indicate date of degree received is invalid;
mxg_inv=0; * Flag to indicate that the completed grade from loops is 0 or invalid;

*******************************************************************************************
*** [II] CREATED VARIABLE - HIGHEST GRADE COMPLETED AS OF THE SURVEY DATE (GRSURV) ***
*******************************************************************************************;

*** [IIA] Enrolled or not enrolled;

** Compute maximum grade completed using information in this round (grade loops);
do i=1 to dim(gratnd);
if gratnd(i)>=0 & gratnd(i)>maxgrade then do; ** Select cases where there is a valid grade and it
is greater than the previously recorded grade;
if grcomp(i)=1 then do;
assign='FROM LOOP';
maxgrade=gratnd(i);
comp_mo=mocomp(i);
comp_yr=yrcomp(i);
if (0<yrcomp(i)<YEAR)|(yrcomp(i)=YEAR & 0<mocomp(i)<=MONTH) then do;
CJUMON=mocomp(i);
CJUYR=yrcomp(i);
CJUGR=gratnd(i); * NEW;
GRJUNE=gratnd(i);
LOC=1;
end;
end;
else if grcomp(i) in (-1,-2,-3) then do;
maxgrade=grcomp(i);
assign='GRCOMP MISSING ';
end;
end;
if gratnd(i) in (0,-1,-2,-3,-4) & grcomp(i)>-4 then do; * MODIFIED;
mxg_inv=1;
*assign='GRADE INVALID';
end;
if gratnd(i) in (0,-1,-2,-3,-4) & grcomp(i)=1 then do; * MODIFIED;
mxg_inv=2;
maxgrade=-55;
end;
if grcomp(i)>-4 then evrloop=1;
end;

/* DELETED
** Create variable indicating maximum grade completed from previous rounds;
grsurvP=GRSURV_r6;
if GRSURV_r6=-5 then do;
grsurvP=GRSURV_r5;
if GRSURV_r5=-5 then do;
grsurvP=GRSURV_r4;
if GRSURV_r4=-5 then do;
grsurvP=GRSURV_r3;
if GRSURV_r3=-5 then do;
grsurvP=GRSURV_r2;
if GRSURV_r2=-5 then do;
grsurvP=GRSURV_r1;
end;
end;
end;
end;
end;
if e3061>=0 then grsurvP=e3061;
*/

** Make GRSURV equal to maximum completed grade reported in the loops;
GRSURV=maxgrade;
LOCATOR=1;


** R reports YSCH-3112 to be in (1,2,3,4) and as being in college. Then it may be possible that R
is reporting the completed years of college rather than years of schooling. Here we identify
these cases; * NEW;
if ENCAT in (4,5,6,7,9,10,11) & e3112r8 in (1,2,3,4,5,6) then do;
inclg_lowHGC=1;
e3112r8_imp=e3112r8+12;
end;

** If invalid or incorrect grade data was read into loop or if R never goes through the loops
(usually because they now attend 2 or 4 year colleges, sometimes because of infosheet mistake) and
they attended school at some time either at DLI or SDLI, then replace GRSURV with single item;
** However: this single item must be checked against the roster data: if R completed high school,
never reports attending a college in the loop/roster information, but indicates
enrollment in a grade > 12 in the single item measure, the GRSURV variable is set to 12
since no college degree program has been reported.;

if (((e8416r8_11<=0) & e9131r8_11~=-4)|GRSURV=-55|evrloop=0) & e3878r8~=0 & e3112r8~=-4 then do;
subsitm=1;
if e3112r8<=12 & HSD=0 & GED=0 & clg_ok~=1 then do;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=2.1;
LOC=2.1;
if e8416r8_11<=0 & e9131r8_11~=-4 then assign='ENROLLED, BAD GRADE: SUBS. ITEM';
else if evrloop=0 then assign='ENROLLED, NOT THRU LOOPS: SUBS. ITEM';
else if maxgrade=-55 then assign='ENROLLED, BAD GRADE: SUBS. ITEM';
end;
end;
if mxg_inv=1 & -55<maxgrade<0 & e3878r8~=0 & e3112r8~=-4 then do; * NEW
subsitm=1;
if HSD=0 & clg_ok~=1 then do;
GRSURV=e3112r8;
LOCATOR=2.2;
LOC=2.2;
end;
end;

/*****
** If someone confirmed completing a grade in the loop & didn't know the year of completion, then
use the loop data or the single item (ysch-3112) whichever is lower.;

if maxgrade=GRSURV & comp_yr=-2 then do;
if maxgrade>e3112r8 & e3112r8>=0 then do;
dateitm=1;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=3;
LOC=3.1;
assign='SUBS. ITEM: NO DATE ITEM lower';
end;
end;

if maxgrade=GRSURV & comp_yr~=-2 & comp_mo=-2 then do;
if comp_yr<YEAR then do;
GRJUNE=GRSURV;
LOC=3.21;
end;
if comp_yr>=YEAR then do;
GRJUNE=-3;
LOC=3.22;
end;
end;

else if (comp_yr~=-2 & comp_mo~=-2) then do;
dateitm=.;
end;

*** Major modification on 10-13-2005;
** If R was enrolled SDLI but didn't confirm completing a grade

If single item HGA and HGA from loop are equal
then we substitute HGC single item if HGA from loop is one or more grades higher than
HGC single item. Otherwise if HGC single item greater than or equal to HGA from loop then use
HGC from DLI.

If single item HGA and HGA from loop are not equal
then we substitute HGC from DLI if single item HGC is equal to HGC from DLI or
single item HGC if it is 1 grade higher than HGC from DLI;

if GRSURV=-16 & e3878r8~=0 then do;
if (hgaloop=e2857r8) & (e2857r8>=0) then do;
if (hgaloop-1)>=e3112r8 & e3112r8>=0 then do;
gr_ncomp1=1;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=4.1;
LOC=4.1;
assign='ENROLLED-NO LOOP HGC-hgaloop-1=e3112r8: SUBS hgaloop-1';
end;
else if e3112r8>(hgaloop-1) & e3112r8>=grsurvP>=0 & hgaloop>=0 then do;
gr_ncomp2=1;
subprev=1;
GRSURV=grsurvP;
GRJUNE=grsurvP;
LOCATOR=4.2;
LOC=4.2;
assign='ENROLLED-NO LOOP HGC-SAID NO to GRADE: SUBS PREV';
end;
else if e3112r8>(hgaloop-1) & 0<=e3112r8<grsurvP & hgaloop>=0 then gr_ncomp2=2;
end;
if hgaloop~=e2857r8 & e2857r8>=0 & hgaloop>=0 then do;
if hgaloop<e2857r8 then gr_ncomp3=1;
if hgaloop>e2857r8 then gr_ncomp3=2;
if e3112r8<=grsurvP then do;
GRSURV=grsurvP;
GRJUNE=grsurvP;
locator=4.3;
LOC=4.3;
assign='ENROLLED-NO LOOP HGC-SAID NO to GRADE: SUBS PREV';
end;
end;
end;

*****/

** If R was enrolled SDLI but didn't confirm completing a grade, we substitute a value equal to one
less than HGA from loop using a conservative approach:
if the HGA from loop(hgaloop) is equal to the single item HGA (e2857) then must have completed
hgaloop-1 and so substitute hgaloop-1.
else if hgaloop-1 >= e3112 or grsurvP=e3112 then e3112 makes sense and so substitute single item
(e3112).
else if hgaloop-1 < e3112 and grsurvP < e3112 then e3112 becomes suspect and so substitute
grsurvP;

if GRSURV=-16 & e3878r8~=0 then do;
if (hgaloop=e2857r8) & (e2857r8>=0) then do;
subhgam=1;
GRSURV=hgaloop-1;
GRJUNE=-3;
LOCATOR=3.1;
LOC=3.1;
assign='ENROLLED-NO LOOP HGC-hgaloop=2857: SUBS hgaloop-1';
end;
else if (hgaloop-1)=e3112r8 & e3112r8>=0 then do;
subsitm=1;
subhgam=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=3.2;
LOC=3.2;
assign='ENROLLED-NO LOOP HGC-hgaloop-1=e3112: SUBS hgaloop-1';
end;
else if (hgaloop-1)>e3112r8 & e3112r8>=0 then do;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=3.3;
LOC=3.3;
assign='ENROLLED-NO LOOP HGC-hgaloop-1=e3112: SUBS hgaloop-1';
end;
else if e3112r8>(hgaloop-1) & e3112r8>=grsurvP>=0 & hgaloop>=0 then do;
subprev=1;
GRSURV=grsurvP;
GRJUNE=grsurvP;
LOCATOR=3.4;
LOC=3.4;
assign='ENROLLED-NO LOOP HGC-SAID NO to GRADE: SUBS PREV';
end;
end;

** If someone confirmed completing a grade in the loop & didn't know the year of completion, then
use the loop data or the single item (ysch-3112) whichever is lower.;

if maxgrade=GRSURV & comp_yr=-2 then do;
if maxgrade>e3112r8 & e3112r8>=0 then do;
dateitm=1;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=4;
LOC=4.1;
assign='SUBS. ITEM: NO DATE ITEM lower';
end;
end;

if maxgrade=GRSURV & comp_yr~=-2 & comp_mo=-2 then do;
if comp_yr<YEAR then do;
GRJUNE=GRSURV;
LOC=4.21;
end;
if comp_yr>=YEAR then do;
GRJUNE=-3;
LOC=4.22;
end;
end;

else if (comp_yr~=-2 & comp_mo~=-2) then do;
dateitm=.;
end;

** If R reported receiving a GED or H.S. Diploma, but GRSURV<12 then set GRSURV=12. If date of
receipt of GED or HS Diploma is on or before June 2004 then GRJUNE is also set to 12. If not
then GRJUNE is set to grsurvP if maxgrade is invalid. If maxgrade is valid then GRJUNE has
already been set by the code above. If dates are invalid then GRJUNE is set to -3.;

setto12=0;
if (HSD=1|GED=1) & GRSURV<=12 then do;
setto12=1;
GRSURV=12;
LOCATOR=5;
if 0<=GRJUNE<grsurvP<95 then do;
GRJUNE=grsurvP;
LOC=5.10;
end;
if (CDTGD=-3 & gdrP=-4 & hsrP=-4)|(CDTHS=-3 & hsrP=-4 & gdrP=-4) then do; * NEW;
GRJUNE=-3;
LOC=5.11;
end;
if ((CDTGD=-3 & gdrP>-4)|(CDTHS=-3 & hsrP>-4)) & dlicm>JUNEYR then do; * NEW;
GRJUNE=-3;
LOC=5.12;
end;
if ((CDTGD=-3 & gdrP>-4)|(CDTHS=-3 & hsrP>-4)) & 0<dlicm<=JUNEYR then do; * NEW;
GRJUNE=12;
LOC=5.13;
end;
if CDTGD>JUNEYR & maxgrade<=0 then do;
GRJUNE=grsurvP;
LOC=5.14;
end;
if CDTHS>JUNEYR & maxgrade<=0 then do;
GRJUNE=grsurvP;
LOC=5.15;
end;
if 0<CDTGD<=JUNEYR then do;
GRJUNE=12;
LOC=5.16;
end;
if 0<CDTHS<=JUNEYR then do;
GRJUNE=12;
LOC=5.17;
end;
assign='set to 12: HSD or GED';
end;

/*****
*** Modified on 10-13-2005;
** If college attendance is not reported in the loops then use should be made of the single item HGC
(e3112), but only if enrollment in a college degree program (aa, ba, ma, etc) is reported
(e27337) in the current or a previous round. Use ENCAT to determine whether R was ever in college.
Given that R attends college then
(a) if e3112>=12 then set that.
(b) if R reports not attending college in this round but had attended college by DLI then set
to HGC by DLI.
(c) otherwise if e3112<12 and none of the above conditions hold then it is unclear what HGC is so
HGC=-3. Check these cases carefully, using comments to see whether R was actually enrolled in
a degree program in college. If so then leave those cases out.;

if ENCAT in (4,5,6,7,9,10,11) then do;
if 12<=e3112r8<95 then do;
subsitm=1;
GRSURV=e3112r8;
LOCATOR=6.1;
assign='college';
end;
if e3112r8<12 then inclg_lt12=1;
if e3112r8<grsurvP then inclg_ltDLI=1;
if currcoll=0 & prevcoll=1 & encatP in (4,5,6,7,9,10,11) & 95>e3112r8>grsurvP
then wasinclg_dfDLI=e3112r8-grsurvP;
end;
*****/

** If college attendance is not reported in the loops then use should be made of the single item HGC
(e3112), but only if enrollment in a college degree program (aa, ba, ma, etc) is reported
(e27337) in the current or a previous round. Use ENCAT to determine whether R was ever in college.
Given that R attends college then
(a) if e3112>=12 then set HGC=e3112
(b) if e3112<12 and R reports completing a grade>12 in a previous round and also attending college
in that round then set the previous round HGC
(c) otherwise if e3112<12 and R reports completing a H.S. Diploma or GED then GRSURV is
set equal to 12.
(d) otherwise if e3112<12 and none of the above conditions hold then it is unclear what HGC is so
HGC=-3. Check these cases (locator=6.1) carefully, using comments to see whether R was
actually enrolled in a degree program in college. If so then leave those cases out.;

if ENCAT in (4,5,6,7,9,10,11) then do;
if e3112r8<12 & clg_ok~=1 then do;
GRSURV=-3;
LOCATOR=6.1;
assign='college, UNCLEAR';
end;
if e3112r8<12 & (HSD=1|GED=1|clg_ok=1) then do; * MODIFIED;
inclg_grlt12=1;
subsitm=1;
GRSURV=e3112r8;
LOCATOR=6.21;
if e3112r8_imp>12 then do;
GRSURV=e3112r8_imp;
LOCATOR=6.22;
end;
end;
if GRSURV<=12<grsurvP & e3112r8<12 & encatP in (4,5,6,7,9,10,11) then do;
subprev=1;
GRSURV=grsurvP;
LOCATOR=6.3;
assign='college, PREVIOUS round';
end;
if 12<=e3112r8<95 then do;
subsitm=1;
GRSURV=e3112r8;
LOCATOR=6.4;
assign='college';
end;
end;

** If R reports completing a grade in a previous round that is greater than GRSURV for the current
round and the single item provides a more consistent grade, the single item is used. If the
single item is also inconsistent, then GRSURV value from the previous round is used.
Note: don't use single item if it is greater than 12 and no college is reported;

if 0<grsurvP<95 & 0<GRSURV<grsurvP then disagre=1;

if disagre=1 then do;

rnd_dif=7-dli_rnd+1;
sitm_pr=e3112r8-grsurvP;

if 0<=e3112r8<=12 then do;
subprev=1;
GRSURV=grsurvP;
GRJUNE=grsurvP;
LOCATOR=7.11;
LOC=7.11;
assign='disagre: REPLACE WITH SINGLE ITEM or PREV';
if (0<=sitm_pr<=rnd_dif)|grsurvP=95 then do;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=7.12;
LOC=7.12;
if grsurvP=e3112r8 then do;
GRJUNE=grsurvP;
LOC=7.13;
end;
end;
end;

if ((12<e3112r8<95)|(12<grsurvP<95)) & ENCAT in (4,5,6,7,9,10,11) then do;
GRSURV=grsurvP;
subprev=1;
LOCATOR=7.21;
assign='disagre: college REPORTED, SINGLE ITEM or PRIOR round';
if 0<=sitm_pr<=rnd_dif then do;
subsitm=1;
GRSURV=e3112r8;
LOCATOR=7.22;
end;
end;

if ((12<e3112r8<95)|(12<grsurvP<95)) & ENCAT in (1,8,-3) then do;
GRSURV=-3;
GRJUNE=-3;
LOCATOR=7.3;
LOC=7.3;
assign='disagre: NO college REPORTED';
end;

if ((12<e3112r8<95)|(12<grsurvP<95)) & ENCAT in (2,3) then do;
GRSURV=12;
GRJUNE=-3;
if 12<=grsurvP<95 then do;
GRJUNE=12;
LOC=7.41;
end;
LOCATOR=7.4;
if setto12~=1 then loc=7.42;
end;
end;


*** [IIB] If not enrolled SDLI;

** Assign previous HGC. If previous HGC is missing, then assign single item (e3112).;

* Note for USER'S GUIDE: every R who reports not being enrolled SDLI is given the HGC at DLI except
for those who report receiving a GED or H.S. Diploma during the interim. The latter are assigned a
highest grade completed of 12. Some of these Rs who were not enrolled SDLI report HGC higher than
HGC from last interview. We do not use this new information for the computation of their HGC as
this information is not consistent.;

if e3878r8=0 & locator~=5 then do;*& grsurvP>=0;
subprev=1;
GRSURV=grsurvP;
GRJUNE=grsurvP;
LOCATOR=8.1;
LOC=8.1;
end;
if e3878r8=0 & grsurvP<=0 & locator~=5 & locator_LR~=11 then do;
subsitm=1;
GRSURV=e3112r8;
GRJUNE=-3;
LOCATOR=8.2;
LOC=8.2;
end;

** If R doesn't report any college but reports a completed grade higher than 12, we code GRSURV=12
as long as R has at least a GED or a H.S. Diploma. If R does not have either we code GRSURV=-3. A
person reporting going to a 2/4-yr college for a vocational training but reporting a highest
grade completed of more than 12 would also fall in this category. If date of receipt of GED or HS
Diploma is on or before June 2004 then GRJUNE is also set to 12. If not and maxgrade is invalid
then GRJUNE is set to grsurvP. If maxgrade is valid then GRJUNE has already been set by the code
above. If dates are invalid then GRJUNE is set to -3.;

if 12<GRSURV<95 & ENCAT in (1,2,3,8,-3) then do;
if GED=1|HSD=1 then do;
setto12=1;
GRSURV=12;
LOCATOR=9.1;
if CDTGD=-3|CDTHS=-3 then do;
GRJUNE=-3;
LOC=9.11;
end;
if CDTGD>JUNEYR & maxgrade<=0 then do;
GRJUNE=grsurvP;
LOC=9.12;
end;
if CDTHS>JUNEYR & maxgrade<=0 then do;
GRJUNE=grsurvP;
LOC=9.13;
end;
if 0<CDTGD<=JUNEYR then do;
GRJUNE=12;
LOC=9.14;
end;
if 0<CDTHS<=JUNEYR then do;
GRJUNE=12;
LOC=9.15;
end;
if ENCAT=-3 & encatP in (4,5,6,7,9,10,11) then do; ** Modified on 10-13-2005;
GRSURV=grsurvP;
GRJUNE=grsurvP;
LOCATOR=9.2;
LOC=9.2;
end;
end;
if GED=0 & HSD=0 then do;
GRSURV=-3;
GRJUNE=-3;
LOCATOR=9.3;
LOC=9.3;
end;
end;

if GRSURV=-3 then do;
GRJUNE=-3;
LOC=10.1;
end;

if GRSURV in (-55,-2,-16,0) then do;
GRSURV=-3;
GRJUNE=-3;
LOCATOR=10;
LOC=10.2;
end;


if GRJUNE=. then do;
if e3878r8=0 then do;
GRJUNE=GRSURV;
LOC=11;
end;
if maxgrade=GRSURV & ((comp_yr=YEAR & comp_mo>MONTH)|comp_yr>YEAR) then do;
GRJUNE=grsurvP;
LOC=12;
end;
if maxgrade=GRSURV & 0<comp_yr<YEAR & comp_mo=-2 then do;
GRJUNE=grsurv;
LOC=13;
end;
if comp_yr=-2 & comp_mo=-2 then do;
GRJUNE=-3;
LOC=14;
end;
end;

if grsurvP=GRSURV & GRJUNE~=grsurvP then do;
GRJUNE=grsurvP;
LOC=15;
end;
if GRJUNE=. then do;
GRJUNE=-3;
LOC=16;
end;
if ENCAT in (4,5,6,7,9,10,11) then do;
GRJUNE=-4;
LOC=17;
end;

** Cases where R reported a higher grade in e3112 (HGC) than was reported in the last round that
they were interviewed and who indicate their e2857 (HGA) is at least two grade higher than the
grsurvP value, but for those who indicated that they were not enrolled GRSURV should be coded -3
since the R is providing conflicting information.;

if e3878r8=0 & (GRSURV=grsurvP<e3112r8<=12) & e2857r8-2>=GRSURV>0 & e2857r8~=hgaP then do;
GRSURV=-3;
GRJUNE=-3;
LOCATOR=11;
LOC=18;
assign='CONFLICTING INFORMATION';
end;

** chkgrjune is a problem and must be handedited. chkgrjune is ok;
if subprev=1 & grsurv=grsurvP & grjune=grsurvP then do;
if dlicm>JUNEYR then do;
chkgrjune=1;
if e3878r7=0 then chkgrjune=2;
end;
*if 0<compyr<=YEAR then chkgrjune=0;
end;


********************************************************************************************
*** [IV] CREATED VARIABLE - HIGHEST DEGREE RECEIVED AS OF THE SURVEY DATE (DEGSURV) ***
********************************************************************************************;
DEGSURV=0;

** GED;
if GED=1 then DEGSURV=1;
if GED=-3 then DEGSURV=-3;

** High School Diploma;
if HSD=1 then DEGSURV=2;
if HSD=-3 then DEGSURV=-3;

** Junior College or two-year Associate Degree;
if CDTAA>-4 then DEGSURV=3;

** Bachelor's Degree;
if CDTBA>-4 then DEGSURV=4;

** Master's Degree;
if CDTMA>-4 then DEGSURV=5;

** Doctoral Degree;
if CDTDC>-4 then DEGSURV=6;

** Professional Degree;
if CDTPF>-4 then DEGSURV=7;

** If degree received cannot determine what degree received;
do i=1 to dim(e23450);
if e23450(i) in (-1, -2, -3) then DEGSURV=-3;
end;

/* DELETED
** To constrain degsurv by the degsurv from the last interviewed round;
degsurvP=DEGSURV_r6;
if DEGSURV_r6=-5 then do;
degsurvP=DEGSURV_r5;
if DEGSURV_r5=-5 then do;
degsurvP=DEGSURV_r4;
if DEGSURV_r4=-5 then do;
degsurvP=DEGSURV_r3;
if DEGSURV_r3=-5 then do;
degsurvP=DEGSURV_r2;
if DEGSURV_r2=-5 then do;
degsurvP=DEGSURV_r1;
end;
end;
end;
end;
end;
*/
** Check these cases as they should not occur;
if 0<=DEGSURV<degsurvP & e3112r8~=-5 then prev_deg=1;

** HANDEDITS (): The DEGSURV in the previous round is wrong and so cannot use that information to
overwrite the DEGSURV computed in this round.;


****************************************************************************************
*** [V] CREATED VARIABLE - HIGHEST DEGREE COMPLETED AS OF JUNE 30, 2004 (DEGJUNE) ***
****************************************************************************************;

DEGJUNE=0;

** GED;
if 0<CDTGD<=JUNEYR then DEGJUNE=1;
if CDTGD in (-3, -2, -1) then DEGJUNE=-3;

** High School Diploma;
if 0<CDTHS<=JUNEYR then DEGJUNE=2;
if CDTHS in (-3, -2, -1) then DEGJUNE=-3;

** Junior College or 2-year Associate Degree;
if 0<CDTAA<=JUNEYR then DEGJUNE=3;
if CDTAA in (-3, -2, -1) then DEGJUNE=-3;

** Bachelor's Degree;
if 0<CDTBA<=JUNEYR then DEGJUNE=4;
if CDTBA in (-3, -2, -1) then DEGJUNE=-3;

** Master's Degree;
if 0<CDTMA<=JUNEYR then DEGJUNE=5;
if CDTMA in (-3, -2, -1) then DEGJUNE=-3;

** Doctoral Degree;
if 0<CDTDC<=JUNEYR then DEGJUNE=6;
if CDTDC in (-3, -2, -1) then DEGJUNE=-3;

** Professional Degree;
if 0<CDTPF<=JUNEYR then DEGJUNE=7;
if CDTPF in (-3, -2, -1) then DEGJUNE=-3;


** Constrain degjune by prevdegsruv if the latter is equal to degsruv in this round;
if DEGJUNE~=DEGSURV & DEGSURV=degsurvP & DEGSURV>=0 & DEGJUNE>=0 then do;
DEGJUNE=degsurvP;
end;

if DEGSURV=-3 then DEGJUNE=-3;

if (DEGSURV=1 & -4<CDTGD<=0)|(DEGSURV=2 & -4<CDTHS<=0)|(DEGSURV=3 & -4<CDTAA<=0)
|(DEGSURV=4 & -4<CDTBA<=0)|(DEGSURV=5 & -4<CDTMA<=0)|(DEGSURV=6 & -4<CDTDC<=0)
|(DEGSURV=7 & -4<CDTPF<=0) then datedeg=1;

if datedeg=1 then DEGJUNE=-3;


if ENCAT in (-1,-2) then ENCAT=-3;
if GRSURV in (-1,-2) then GRSURV=-3;
if GRJUNE in (-1,-2) then GRJUNE=-3;
if DEGSURV in (-1,-2) then DEGSURV=-3;
if DEGJUNE in (-1,-2) then DEGJUNE=-3;

if e3112r8=-5 then do;
ENROLL=-5;
ENCAT=-5;
GRSURV=-5;
GRJUNE=-5;
DEGSURV=-5;
DEGJUNE=-5;
assign ='NON-INTERVIEW';
GED=-5;
HSD=-5;
LOCATOR=-5;
LOC=-5;
end;

if e3112r8~=-5 then do;
chkdeg2=0;
if HGDEGr8-degsurv~=1 then chkdeg2=1;
if HGDEGr8=degsurv & HGDEGr8=-3 then chkdeg2=0;
end;


chk1=.; chk2=.; chk3=.; chk4=.; chk5=.; chk6=.;

if ENCAT in (4,5,6,7,9,10,11) then do;
if 0<=grsurv<12 then chk1=1;
if grsurv=95 then chk1=2;
end;

if ENCAT in (1,2,3,8) then do;
if 12<grsurv<95 then chk2=1;
if grsurv=95 then chk2=2;
end;

if ENCAT in (4,5,6,7,9,10,11) & currcoll=0 & 0<=grsurvP<grsurv & wasinclg_DLI~=1 then chk3=1;

if 0<=e2857r8<grsurv then do;
if 0<=e2857r8<grsurvP & e3878r8~=0 then chk4=1.1;
if 0<=e2857r8<maxgrade then chk4=1.2;
if 0<=e2857r8<e3112r8 then chk4=1.3;
if (hsd=1|ged=1) & grsurv=12 then chk4=.;
end;

if degsurv=0 & ENCAT in (2,3,4,5,6,7,9,10,11) then chk5=1;
if degsurv=1 & ENCAT in (1,8,3,5,6,7) then chk5=2;
if degsurv=2 & ENCAT in (1,8,2,5,6,7) then chk5=3;
if degsurv=3 & ENCAT in (1,8,2,3,6,7) then chk5=4;
if degsurv=4 & ENCAT in (1,8,2,3,5,7) then chk5=5;
if degsurv in (5,6,7) & ENCAT in (1,8,2,3,5,6) then chk5=6;

if ENCAT=-3 & grsurv~=-3 then do;
chk6=1;
if locator=11 then chk6=2;
end;

if 0<=e2857r8<6 & ENCAT in (4,5,6,7,9,10,11) then z=e2857r8+12;
if z=. then chk4z=chk4;
if 0<=z<grsurv then do;
if 0<=z<grsurvP & e3878r8~=0 then chk4z=1.1;
if 0<=z<maxgrade then chk4z=1.2;
if 0<=z<e3112r8 then chk4z=1.3;
if (hsd=1|ged=1) & grsurv=12 then chk4z=.;
end;

ENDSAS;
 

Return to top

Current or Most Recent School Private or Parochial

Variables Created:  CV_SCHOOL_TYPE (SLTYPE)

Variables Used

Codes for Created Variable

1 = Public school
2 = Private, not parochial 
3 = Parochial
4 = Other

Code for new school
1='Elementary school'
2='Middle school/intermediate school/junior high sch
3='High school'
4='Two-year college, community college, or junior co
5='Four year college or university'
6='No information'

Code for new school type
1='1. Public school'
2='2. Technical or vocational high school'
3='3. Catholic school'
4='4. Private school-other religious affiliation'
5='5. Private school-no religious affiliation'
6='6. Alternative school'
9='9. OTHER (SPECIFY)'
10='10. Home School'
11='11. Detention/Rehab'
12='12. Charter School'
13='13. Magnet School'

This program is used to create the school type variables from Round 8, i.e. the current or most recent schools that the youth attended are public, private, parochial or other. This is completed in the following steps:

1) We first decide which school is the most recent school (non-college) that the youth participated by the ending date for different enrollment periods.
2) We can get the school type from the new school roster. However, in the program, these two steps can not be separated.

/* create the array variables.*/

* # of enrollment periods;
array speriod speriod1-speriod5;

* ending date for each period;
array sstop1m sstop1m1-sstop1m5;
array sstop1y sstop1y1-sstop1y5;
array sstop2m sstop2m1-sstop2m2;
array sstop2y sstop2y1-sstop2y2;
array sstop3m sstop3m1 sstop3m2;
array sstop3y sstop3y1 sstop3y2;

* school code, i.e. elementary school, high school or college;
array scode scode1-scode5;

*school type for round 8;
array stype stype1-stype5;

* ending time for each school;
array srecm srecm1-srecm5;
array srecy srecy1-srecy5;

* school length counting both month&year: the month length from jan. 1990 to the ending month for each school;
array mlength mlength1-mlength5;

* school length counting only year: the year length from 1990 to the ending year for each school;
* this variable is to take care of the situation where ending year is invalid;
array ylength ylength1-ylength5;

/***** step 1).In the process to decide the most recent school. *****/

do i=1 to 5;

srecm[i]=-4;
srecy[i]=-4;

if speriod[i]=1 and scode[i] in (1,2,3) then do;
srecm[i]=sstop1m[i];
srecy[i]=sstop1y[i];
end;

if speriod[i]=2 and scode[i] in (1,2,3) then do;
srecm[i]=sstop2m[i];
srecy[i]=sstop2y[i];
end;

if speriod[i]=3 and scode[i] in (1,2,3) then do;
srecm[i]=sstop3m[i];
srecy[i]=sstop3y[i];
end;

if srecm[i] gt 0 and srecy[i] gt 0 then mlength[i]=12*(srecy[i]-1990)+srecm[i];
else mlength[i]=-4;

if srecy[i] gt 0 then ylength[i]=srecy[i]-1990;
else ylength[i]=-4;

end;


maxmleng=max(mlength1,mlength2, mlength3, mlength4, mlength5 );
if stype1=-5 then maxmleng=-5;

maxyleng=max(ylength1,ylength2, ylength3, ylength4, ylength5);
if stype1=-5 then maxyleng=-5;


/***** step 2). Decide the latest non-college school and its type*****/
type1=-4;

***** create the flag variables;

* flag the cases where multiple schools' ending year/month are same as "maxmleng";
maxmeq=0;
do i=1 to 5;
if maxmleng>0 and mlength[i]=maxmleng then maxmeq=maxmeq+1;
end;

* flag the cases where multiple schools' ending year are the same as "maxyleng" and ending months are invalid answer;
invalidm=0; maxyeq=0;
do i=1 to 5;
if maxyleng>0 and ylength[i]=maxyleng and srecm[i] in (-1,-2,-3) then invalidm=invalidm+1;
if maxyleng>0 and ylength[i]=maxyleng then maxyeq=maxyeq+1;
end;

***** first step to create school type;

* use only the year information first;
do i=1 to 5;
if maxyleng>0 and ylength[i]=maxyleng then type1=stype[i];
end;



* then use the month information to make it more precise;


do i=1 to 5;
if maxmleng>0 and mlength[i]=maxmleng then type1=stype[i];
end;



***** Fix the special cases where multiple schools' ending years are same as maxyleng;

/* go back to fix the case such as 97.12 and 99.-2. because if "maxmleng" cover "maxyleng", the codes above
will pick up the school ending on 97.12 as most recent school.*/

if maxyeq=1 then do;
do i=1 to 5;
if ylength[i]=maxyleng then type1=stype[i];
end;
end;

if invalidm ge 2 then type1=-3;






* flag the cases which has 98.02 and 98.-3;
flag=0;
if maxyeq ge 2 and invalidm ge 1 then flag=1;

if flag=1 then type1=-3; /* There were no such cases in round 4, but there are a couple of cases in round 5*/






* fix the case such as 99.12, 99.-2 99.-3 or 2000.12 2000.-2;

if maxyeq ge 2 then do;
do i=1 to 5;
if ylength[i]=maxyleng and srecm[i]=12 then do;
type1=stype[i];
flag2=1;
end;
end;
end;


***** Fix the special cases where multiple schools ending year/months are same as maxmleng;
/*This loop assigns value of PUBLIC schools (1) to TYPE1 in cases where one reported school type=public
and one reported school type="other". In cases where one reported school type=PRIVATE and one reported
type="other", value for PRIVATE school type is assigned. Cases where one school type=PUBLIC and another
school type=PRIVATE are flagged and looked into. */

*dummy for one school is public school and the other is religious school;
pubrelg=0;

*dummy for one school is public school and the other is private school;
pubpriv=0;

*dummy for one school is private and the other is religious school;
privrelg=0;





if maxmeq ge 2 then do;
do i=1 to 5;
if mlength(i)=maxmleng and stype(i)^=type1 then do;
if stype(i) in (6,9,10,11,-1,-2,-3) and type1 in (1,2,12,13) then type1=type1;
if stype(i) in (1,2,12,13) and type1 in (6,9,10,11,-1,-2,-3) then type1=stype[i];
if stype(i) in (6,9,10,11,-1,-2,-3) and type1 in (3,4) then type1=type1;
if stype(i) in (3,4) and type1 in (6,9,10,11,-1,-2,-3) then type1=stype[i];
if stype(i) in (6,9,10,11,-1,-2,-3) and type1=5 then type1=5;
if stype(i)=5 and type1 in (6,9,10,11,-1,-2,-3) then type1=5;
if (stype(i) in (1,2,12,13) and type1 in (3,4)) or
(stype(i) in (3,4) and type1 in (1,2,12,13)) then pubrelg=1;
if (stype(i) in (1,2,12,13) and type1=5) or
(stype(i)=5 and type1 in (1,2,12,13)) then pubpriv=1;
if (stype(i)=5 and type1 in (3,4)) or
(stype(i) in (3,4) and type1=5) then privrelg=1;
end;
end;
end;




***** Invalid answers;

* for the invalid answers;
if scode1 in (-1,-2,-3)
or scode2 in (-1,-2,-3)
or scode3 in (-1,-2,-3)
or scode4 in (-1,-2,-3)
then type1=-3;

if (scode1 in (1,2,3) and srecy1 in (-1,-2,-3))
or (scode2 in (1,2,3) and srecy2 in (-1,-2,-3))
or (scode3 in (1,2,3) and srecy3 in (-1,-2,-3))
or (scode4 in (1,2,3) and srecy4 in (-1,-2,-3))
then type1=-3;

* if the respondent only goes to one school in r8,input that school type;
if scode1 in (1,2,3)
and scode2 in (-4, 4, 5)
and scode3 in (-4, 4, 5)
and scode4 in (-4, 4, 5)
then type1=stype1;


/***** recode the type variable.*****/

sltype=-4;
if type1 in (1,2,12,13) then sltype=1;
if type1=5 then sltype=2;
if type1 in (3,4) then sltype=3;
if type1 in (6,9,10,11) then sltype=4;
if -4<type1<0 then sltype=-3;
if stype1=-5 then sltype=-5;





* Hand edit other cases who got "-3" because of stopping date but have same school type for all valid schools
or the most recent school is detectable from the other information such as intervieww date;
flag1=0;
flag2=0;
if sltype=-3 and stype1=stype2 and stype1>0 then flag1=1;
if flag1=1 then sltype=1;
if int_y=-5 then sltype=-5;

/* fix special cases. There are 12 cases. Respondents attented two schools.
The school type for later one is missing. Coded created variable as -3;*/
if pubid in
(552,
1197,
1346,
1695,
2258,
3218,
3388,
4667,
6162,
7339,
7529,
8319) then sltype=-3;




endsas;

Return to top

Date Received Diploma or Degree

Variables Created: 

• CV_GED (CDTGED)

• CV_HS_DIPLOMA (CDTHS)

• CV_AA_DEGREE (CDTAA)

• CV_BA_DEGREE (CDTBA)

• CV_MA_DEGREE (CDTMA)

• CV_DC_DEGREE (CDTDC)

• CV_PROF_DEGREE (CDTPF)

 Variables Used

This program creates the variables that indicate the dates on which the youth received GED, High School Diploma, Associate Degree, Bachelor's Degree, Master's Degree, Doctoral Degree and Professional Degree from NLSY97 round 8 (2004). The dates will be calculated as the number of accumulated months from 1980. Also, the program will check if there is some conflict in these answers between round 8 and earlier rounds.

Descriptions of the variables created are the following:

CDTGD Date that the respondent received GED.
CDTHS Date that the respondent received the high school diploma
CDTAA Date that the respondent received associate degree.
CDTBA Date that the respondent received Bachelor's degree.
CDTMA Date that the respondent received Master's degree.
CDTDC Date that the respondent received doctoral degree.
CDTPF Date that the respondent received professional degree.

Note: If there are two or more valid but different dates for a degree receipt then we take the date reported in the earlier round as that would have been closer to the actual date.
Note: If R attends college without a High School diploma or GED then R is asked for an explanation in question, YSCH-13900. If R reports receiving a HS diploma or GED but gives no date of receipt then give corresponding date of degree received as -3.

***** Create dataset for those not interviewed in current round.;
data nonint; set merged;
if e11700r8=-5;
CDTGD=-5; CDTHS=-5; CDTAA=-5; CDTBA=-5; CDTMA=-5; CDTDC=-5; CDTPF=-5; hgdegr8=-5;
data nonint; set nonint; proc sort; by pubid;

***** Create dataset for those interviewed in current round.;
data int; set merged;
if e11700r8~=-5;


*** Define all arrays to be used in this program:;

array CR1 (7) gdr1 hsr1 aar1 bar1 mar1 dcr1 pfr1;
array CR2 (7) gdr2 hsr2 aar2 bar2 mar2 dcr2 pfr2;
array CR3 (7) gdr3 hsr3 aar3 bar3 mar3 dcr3 pfr3;
array CR4 (7) gdr4 hsr4 aar4 bar4 mar4 dcr4 pfr4;
array CR5 (7) gdr5 hsr5 aar5 bar5 mar5 dcr5 pfr5;
array CR6 (7) gdr6 hsr6 aar6 bar6 mar6 dcr6 pfr6;
array CR7 (7) gdr7 hsr7 aar7 bar7 mar7 dcr7 pfr7;
array CRP (7) gdrP hsrP aarP barP marP dcrP pfrP;

array CRC (7) gdrC hsrC aarC barC marC dcrC pfrC;

array CDT (7) CDTGD CDTHS CDTAA CDTBA CDTMA CDTDC CDTPF;
array YDT (7) ydtGD ydtHS ydtAA ydtBA ydtMA ydtDC ydtPF;

array HED (7) hedGD hedHS hedAA hedBA hedMA hedDC hedPF;
array FLG (7) flgGD flgHS flgAA flgBA flgMA flgDC flgPF;
array QUX (7) quxGD quxHS quxAA quxBA quxMA quxDC quxPF;
array DEG (7) degGD degHS degAA degBA degMA degDC degPF;

array TMPDG (5) TMPDG1-TMPDG5;

array e27388r8 (5) e27388r8_1-e27388r8_5;
array e23400r8 (5) e23400r8_1-e23400r8_5;
array e23460mr8 (5) e23460mr8_1-e23460mr8_5;
array e23460yr8 (5) e23460yr8_1-e23460yr8_5;

array t7000r8 (7) t7000r8_1-t7000r8_7;

array scoder1 (2) scoder1_1-scoder1_2;
array scoder2 (6) scoder2_1-scoder2_6;
array scoder3 (7) scoder3_1-scoder3_7;
array scoder4 (5) scoder4_1-scoder4_5;
array scoder5 (6) scoder5_1-scoder5_6;
array scoder6 (5) scoder6_1-scoder6_5;
array scoder7 (5) scoder7_1-scoder7_5;
array scoder8 (5) scoder8_1-scoder8_5;

array lftscr1 (2) lftscr1_1-lftscr1_2;
array lftscr2 (6) lftscr2_1-lftscr2_6;
array lftscr3 (7) lftscr3_1-lftscr3_7;
array lftscr4 (5) lftscr4_1-lftscr4_5;
array lftscr5 (6) lftscr5_1-lftscr5_6;
array lftscr6 (5) lftscr6_1-lftscr6_5;
array lftscr7 (5) lftscr7_1-lftscr7_5;
array lftscr8 (5) lftscr8_1-lftscr8_5;

array lftsc2r2 (6) lftsc2r2_1-lftsc2r2_6;
array lftsc2r3 (7) lftsc2r3_1-lftsc2r3_7;
array lftsc2r4 (5) lftsc2r4_1-lftsc2r4_5;
array lftsc2r5 (6) lftsc2r5_1-lftsc2r5_6;
array lftsc2r6 (5) lftsc2r6_1-lftsc2r6_5;
array lftsc2r7 (5) lftsc2r7_1-lftsc2r7_5;
array lftsc2r8 (5) lftsc2r8_1-lftsc2r8_5;

array e27337r2 (6) e27337r2_1-e27337r2_6;
array e27337r3 (7) e27337r3_1-e27337r3_7;
array e27337r4 (5) e27337r4_1-e27337r4_5;
array e27337r5 (6) e27337r5_1-e27337r5_6;
array e27337r6 (5) e27337r6_1-e27337r6_5;
array e27337r7 (5) e27337r7_1-e27337r7_5;
array e27337r8 (5) e27337r8_1-e27337r8_5;

array e23450r2 (6) e23450r2_1-e23450r2_6;
array e23450r3 (7) e23450r3_1-e23450r3_7;
array e23450r4 (5) e23450r4_1-e23450r4_5;
array e23450r5 (6) e23450r5_1-e23450r5_6;
array e23450r6 (5) e23450r6_1-e23450r6_5;
array e23450r7 (5) e23450r7_1-e23450r7_5;
array e23450r8 (5) e23450r8_1-e23450r8_5;

array schidr1 (2) schidr1_1-schidr1_2;
array schidr2 (6) schidr2_1-schidr2_6;
array schidr3 (7) schidr3_1-schidr3_7;
array schidr4 (5) schidr4_1-schidr4_5;
array schidr5 (6) schidr5_1-schidr5_6;
array schidr6 (5) schidr6_1-schidr6_5;
array schidr7 (5) schidr7_1-schidr7_5;
array schidr8 (5) schidr8_1-schidr8_5;

array major1 (*) e21300r1_101 e21400r1_101;

array major21 (*) e21300r2_101-e21300r2_105 e21400r2_101-e21400r2_105;
array major22 (*) e21300r2_201-e21300r2_205 e21400r2_201-e21400r2_205;
array major23 (*) e21300r2_301-e21300r2_305 e21400r2_301-e21400r2_305;
array major24 (*) e21300r2_401 e21400r2_401;
array major25 (*) e21300r2_501 e21400r2_501;

array major31 (*) e21300r3_101-e21300r3_105 e21400r3_101-e21400r3_105;
array major32 (*) e21300r3_201-e21300r3_205 e21400r3_201-e21400r3_205;
array major33 (*) e21300r3_301-e21300r3_303 e21400r3_301-e21400r3_303;
array major34 (*) e21300r3_401 e21400r3_401;

array major41 (*) e21300r4_101-e21300r4_108 e21400r4_101-e21400r4_108;
array major42 (*) e21300r4_201-e21300r4_206 e21400r4_201-e21400r4_206;
array major43 (*) e21300r4_301-e21300r4_302 e21400r4_301-e21400r4_302;
array major44 (*) e21300r4_401-e21300r4_402 e21400r4_401-e21400r4_402;

array major51 (*) e21300r5_101-e21300r5_107 e21400r5_101-e21400r5_107;
array major52 (*) e21300r5_201-e21300r5_207 e21400r5_201-e21400r5_207;
array major53 (*) e21300r5_301-e21300r5_304 e21400r5_301-e21400r5_304;
array major54 (*) e21300r5_401 e21400r5_401;
array major55 (*) e21300r5_501-e21300r5_502 e21400r5_501-e21400r5_502;
array major56 (*) e21300r5_601 e21400r5_601;

array major61 (*) e21300r6_101-e21300r6_111 e21400r6_101-e21400r6_111;
array major62 (*) e21300r6_201-e21300r6_212 e21400r6_201-e21400r6_212;
array major63 (*) e21300r6_301-e21300r6_304 e21400r6_301-e21400r6_304;
array major64 (*) e21300r6_401-e21300r6_403 e21400r6_401-e21400r6_403;
array major65 (*) e21300r6_501 e21400r6_501;

array major71 (*) e21300r7_101-e21300r7_109 e21400r7_101-e21400r7_109;
array major72 (*) e21300r7_201-e21300r7_209 e21400r7_201-e21400r7_209;
array major73 (*) e21300r7_301-e21300r7_303 e21400r7_301-e21400r7_303;
array major74 (*) e21300r7_401 e21400r7_401;
array major75 (*) e21300r7_501 e21400r7_501;

array major81 (*) e21300r8_101-e21300r8_113 e21400r8_101-e21400r8_113;
array major82 (*) e21300r8_201-e21300r8_208 e21400r8_201-e21400r8_208;
array major83 (*) e21300r8_301-e21300r8_305 e21400r8_301-e21400r8_305;
array major84 (*) e21300r8_401 e21400r8_401;

array stopmr2 (6,3) stopmr2_11 stopmr2_21 stopmr2_31
stopmr2_12 stopmr2_22 stopmr2_32
stopmr2_13 stopmr2_23 stopmr2_33
stopmr2_14 stopmr2_24 stopmr2_34
stopmr2_15 stopmr2_25 stopmr2_35
stopmr2_16 stopmr2_26 stopmr2_36;

array stopyr2 (6,3) stopyr2_11 stopyr2_21 stopyr2_31
stopyr2_12 stopyr2_22 stopyr2_32
stopyr2_13 stopyr2_23 stopyr2_33
stopyr2_14 stopyr2_24 stopyr2_34
stopyr2_15 stopyr2_25 stopyr2_35
stopyr2_16 stopyr2_26 stopyr2_36;

array stopmr3 (7,3) stopmr3_11 stopmr3_21 stopmr3_31
stopmr3_12 stopmr3_22 stopmr3_32
stopmr3_13 stopmr3_23 stopmr3_33
stopmr3_14 stopmr3_24 stopmr3_34
stopmr3_15 stopmr3_25 stopmr3_35
stopmr3_16 stopmr3_26 stopmr3_36
stopmr3_17 stopmr3_27 stopmr3_37;

array stopyr3 (7,3) stopyr3_11 stopyr3_21 stopyr3_31
stopyr3_12 stopyr3_22 stopyr3_32
stopyr3_13 stopyr3_23 stopyr3_33
stopyr3_14 stopyr3_24 stopyr3_34
stopyr3_15 stopyr3_25 stopyr3_35
stopyr3_16 stopyr3_26 stopyr3_36
stopyr3_17 stopyr3_27 stopyr3_37;

array stopmr4 (5,2) stopmr4_11 stopmr4_21
stopmr4_12 stopmr4_22
stopmr4_13 stopmr4_23
stopmr4_14 stopmr4_24
stopmr4_15 stopmr4_25;

array stopyr4 (5,2) stopyr4_11 stopyr4_21
stopyr4_12 stopyr4_22
stopyr4_13 stopyr4_23
stopyr4_14 stopyr4_24
stopyr4_15 stopyr4_25;

array stopmr5 (6,3) stopmr5_11 stopmr5_21 stopmr5_31
stopmr5_12 stopmr5_22 stopmr5_32
stopmr5_13 stopmr5_23 stopmr5_33
stopmr5_14 stopmr5_24 stopmr5_34
stopmr5_15 stopmr5_25 stopmr5_35
stopmr5_16 stopmr5_26 stopmr5_36;

array stopyr5 (6,3) stopyr5_11 stopyr5_21 stopyr5_31
stopyr5_12 stopyr5_22 stopyr5_32
stopyr5_13 stopyr5_23 stopyr5_33
stopyr5_14 stopyr5_24 stopyr5_34
stopyr5_15 stopyr5_25 stopyr5_35
stopyr5_16 stopyr5_26 stopyr5_36;

array stopmr6 (5,2) stopmr6_11 stopmr6_21
stopmr6_12 stopmr6_22
stopmr6_13 stopmr6_23
stopmr6_14 stopmr6_24
stopmr6_15 stopmr6_25;

array stopyr6 (5,2) stopyr6_11 stopyr6_21
stopyr6_12 stopyr6_22
stopyr6_13 stopyr6_23
stopyr6_14 stopyr6_24
stopyr6_15 stopyr6_25;

array stopmr7 (5,3) stopmr7_11 stopmr7_21 stopmr7_31
stopmr7_12 stopmr7_22 stopmr7_32
stopmr7_13 stopmr7_23 stopmr7_33
stopmr7_14 stopmr7_24 stopmr7_34
stopmr7_15 stopmr7_25 stopmr7_35;

array stopyr7 (5,3) stopyr7_11 stopyr7_21 stopyr7_31
stopyr7_12 stopyr7_22 stopyr7_32
stopyr7_13 stopyr7_23 stopyr7_33
stopyr7_14 stopyr7_24 stopyr7_34
stopyr7_15 stopyr7_25 stopyr7_35;

array stopmr8 (5,3) stopmr8_11 stopmr8_21 stopmr8_31
stopmr8_12 stopmr8_22 stopmr8_32
stopmr8_13 stopmr8_23 stopmr8_33
stopmr8_14 stopmr8_24 stopmr8_34
stopmr8_15 stopmr8_25 stopmr8_35;

array stopyr8 (5,3) stopyr8_11 stopyr8_21 stopyr8_31
stopyr8_12 stopyr8_22 stopyr8_32
stopyr8_13 stopyr8_23 stopyr8_33
stopyr8_14 stopyr8_24 stopyr8_34
stopyr8_15 stopyr8_25 stopyr8_35;

array stopcr2 (6) stopcr2_1-stopcr2_6;
array stopcr3 (7) stopcr3_1-stopcr3_7;
array stopcr4 (5) stopcr4_1-stopcr4_5;
array stopcr5 (6) stopcr5_1-stopcr5_6;
array stopcr6 (5) stopcr6_1-stopcr6_5;
array stopcr7 (5) stopcr7_1-stopcr7_5;
array stopcr8 (5) stopcr8_1-stopcr8_5;

array anymjr1 (2) anymjr1_1-anymjr1_2;
array anymjr2 (6) anymjr2_1-anymjr2_6;
array anymjr3 (7) anymjr3_1-anymjr3_7;
array anymjr4 (5) anymjr4_1-anymjr4_5;
array anymjr5 (6) anymjr5_1-anymjr5_6;
array anymjr6 (5) anymjr6_1-anymjr6_5;
array anymjr7 (5) anymjr7_1-anymjr7_5;
array anymjr8 (5) anymjr8_1-anymjr8_5;

array clgdgr2 (6) clgdgr2_1-clgdgr2_6;
array clgdgr3 (7) clgdgr3_1-clgdgr3_7;
array clgdgr4 (5) clgdgr4_1-clgdgr4_5;
array clgdgr5 (6) clgdgr5_1-clgdgr5_6;
array clgdgr6 (5) clgdgr6_1-clgdgr6_5;
array clgdgr7 (5) clgdgr7_1-clgdgr7_5;
array clgdgr8 (5) clgdgr8_1-clgdgr8_5;

*** Initialize Variables.;

if pubid=7599 then do;
stopmr8_11=11;
handedit=1;
end;


** Create enrollment stop dates in continuous month schemes for all rounds;

do i=1 to dim(stopmr8,1);
do j=1 to dim(stopmr8,2);
if stopmr8(i,j)>0 & stopyr8(i,j)>0 then stopcr8(i)=((stopyr8(i,j)-1980)*12)+stopmr8(i,j);
if stopmr8(i,j)=-3|stopyr8(i,j)=-3 then stopcr8(i)=-3;
end;
end;

do i=1 to dim(stopmr7,1);
do j=1 to dim(stopmr7,2);
if stopmr7(i,j)>0 & stopyr7(i,j)>0 then stopcr7(i)=((stopyr7(i,j)-1980)*12)+stopmr7(i,j);
if stopmr7(i,j)=-3|stopyr7(i,j)=-3 then stopcr7(i)=-3;
end;
end;

do i=1 to dim(stopmr6,1);
do j=1 to dim(stopmr6,2);
if stopmr6(i,j)>0 & stopyr6(i,j)>0 then stopcr6(i)=((stopyr6(i,j)-1980)*12)+stopmr6(i,j);
if stopmr6(i,j)=-3|stopyr6(i,j)=-3 then stopcr6(i)=-3;
end;
end;

do i=1 to dim(stopmr5,1);
do j=1 to dim(stopmr5,2);
if stopmr5(i,j)>0 & stopyr5(i,j)>0 then stopcr5(i)=((stopyr5(i,j)-1980)*12)+stopmr5(i,j);
if stopmr5(i,j)=-3|stopyr5(i,j)=-3 then stopcr5(i)=-3;
end;
end;

do i=1 to dim(stopmr4,1);
do j=1 to dim(stopmr4,2);
if stopmr4(i,j)>0 & stopyr4(i,j)>0 then stopcr4(i)=((stopyr4(i,j)-1980)*12)+stopmr4(i,j);
if stopmr4(i,j)=-3|stopyr4(i,j)=-3 then stopcr4(i)=-3;
end;
end;

do i=1 to dim(stopmr3,1);
do j=1 to dim(stopmr3,2);
if stopmr3(i,j)>0 & stopyr3(i,j)>0 then stopcr3(i)=((stopyr3(i,j)-1980)*12)+stopmr3(i,j);
if stopmr3(i,j)=-3|stopyr3(i,j)=-3 then stopcr3(i)=-3;
end;
end;

do i=1 to dim(stopmr2,1);
do j=1 to dim(stopmr2,2);
if stopmr2(i,j)>0 & stopyr2(i,j)>0 then stopcr2(i)=((stopyr2(i,j)-1980)*12)+stopmr2(i,j);
if stopmr2(i,j)=-3|stopyr2(i,j)=-3 then stopcr2(i)=-3;
end;
end;

** Set initial values of date of degree received variables to -4. Set all dummies to 0.;
FLG_13900r8=0; FLG_COMMr8=0;
deg_unknown=0;
ged_trn=0;
do i=1 to 7;
CRC(i)=-4; CDT(i)=-4;
DEG(i)=0; FLG(i)=0; QUX(i)=0; HED(i)=0;
end;


** Set all variables that were not created in earlier rounds (rather were created but were missing for
all Rs so were not included in the dataset) as -4 and if R was not interviewed as -5.;

aar1=-4; bar1=-4; mar1=-4; dcr1=-4; pfr1=-4;
aar2=-4; bar2=-4; mar2=-4; dcr2=-4; pfr2=-4;
mar3=-4; dcr3=-4; pfr3=-4;
mar4=-4; dcr4=-4; pfr4=-4;
mar5=-4; dcr5=-4; pfr5=-4;
dcr6=-4; pfr6=-4;
dcr7=-4; pfr7=-4;

if gdr1=-5 then do; aar1=-5; bar1=-5; mar1=-5; dcr1=-5; pfr1=-5; end;
if gdr2=-5 then do; aar2=-5; bar2=-5; mar2=-5; dcr2=-5; pfr2=-5; end;
if gdr3=-5 then do; mar3=-5; dcr3=-5; pfr3=-5; end;
if gdr4=-5 then do; mar4=-5; dcr4=-5; pfr4=-5; end;
if gdr5=-5 then do; mar5=-5; dcr5=-5; pfr5=-5; end;
if gdr6=-5 then do; dcr6=-5; pfr6=-5; end;
if gdr7=-5 then do; dcr7=-5; pfr7=-5; end;

*** Identify the latest date of degree received variables from previous rounds.;
do i=1 to 7;
if CR7(i)~=-5 then CRP(i)=CR7(i);
if CR7(i)=-5 then do;
if CR6(i)~=-5 then CRP(i)=CR6(i);
if CR6(i)=-5 then do;
if CR5(i)~=-5 then CRP(i)=CR5(i);
if CR5(i)=-5 then do;
if CR4(i)~=-5 then CRP(i)=CR4(i);
if CR4(i)=-5 then do;
if CR3(i)~=-5 then CRP(i)=CR3(i);
if CR3(i)=-5 then do;
if CR2(i)~=-5 then CRP(i)=CR2(i);
if CR2(i)=-5 then do;
CRP(i)=CR1(i);
end;
end;
end;
end;
end;
end;
end;


*** Create the date of degree received variables using information from current round only
Note: The earlier code would not let a bad date be overwritten with a good one. So, we changed it.
The old code is at the end of the program.;

** Compute the date of receiving GED.;
if e13300r8=-3 then gdrC=-3;
if e13300r8=1 and gdrC<0 then do;
gdrC=-3;
if e13500mr8>0 and e13500yr8>0 then gdrC=(e13500yr8-1980)*12+e13500mr8;
if e13500mr8 in (-4,0) or e13500yr8 in (-4,0) then quxGD=1;
end;

** Compute the date of receiving HS Diploma.;
if e11700r8=-3 then hsrC=-3;
if e11700r8=1 and hsrC<0 then do;
hsrC=-3;
if e11900mr8>0 and e11900yr8>0 then hsrC=(e11900yr8-1980)*12+e11900mr8;
if e11900mr8 in (-4,0) or e11900yr8 in (-4,0) then quxHS=1;
end;

** Compute the dates of receiving GED, AA, BA/BS, MA/MS/MBA/MSW, Ph.D. and MS/LLD/DDS/JD.;
do j=1 to dim(TMPDG);
if e23450r8(j)=1 then TMPDG(j)=3; /* Associate/Junior College or two-year associate degree (AA) */
if e23450r8(j)=3 then TMPDG(j)=4; /* Bachelor's degree (BA, BS or unspecified) */
if e23450r8(j)=4 then TMPDG(j)=5; /* Master's degree (MA, MBA, MS, MSW) */
if e23450r8(j)=5 then TMPDG(j)=6; /* Doctoral Degree (Ph.D.) */
if e23450r8(j)=6 then TMPDG(j)=7; /* Professional Degree (MD, LLD, DDS, JD) */
if e23450r8(j)=9 then TMPDG(j)=2; /* GED */
end;
do j=1 to dim(TMPDG);
do i=2 to 7;
if TMPDG(j)=i and CRC(i)<0 then do;
CRC(i)=-3;
if e23460mr8(j)>0 & e23460yr8(j)>0 then CRC(i)=(e23460yr8(j)-1980)*12+e23460mr8(j);
if e23460mr8(j) in (-4,0) | e23460yr8(j) in (-4,0) then QUX(i)=1;
end;
end;
if e23450r8(j) in (8,999,-1,-2,-3) then deg_unknown=1;
end;

** Compute the date of receiving GED if respondent completes GED in a training program. Set the date
to -3 because we don't know completion date. Do not, however, overwrite a good date.;
do k=1 to dim(t7000r8);
if GDRC=-4 and t7000r8(k)=4 then do;
GDRC=-3;
ged_trn=1;
end;
end;

do i=1 to dim(scoder8);
if e23450r8(i)<=0 & lftscr8(i)=1 & scoder8(i) in (4,5) & e27337r8(i) in (1,3,4,5,6,10) then do;
if e3113r8=4 & aarC=-4 then chkdg1=1;
if e3113r8=5 & barC=-4 then chkdg1=2;
if e3113r8=6 & marC=-4 then chkdg1=3;
if e3113r8=7 & dcrC=-4 then chkdg1=4;
if e3113r8=8 & pfrC=-4 then chkdg1=5;
end;
end;

** Compute dummy for whether had decided on a major at the college. Sometimes when R reports being
enrolled in a college and that is a continuing college from DLI information for the major and other
college specific information is not collected (either because of quex problems or because R did not
complete the current term). In such cases we match the that college to a college reported in DLI
and use the major reported for that college.;

** Round 1;
do i=1 to dim(major1);
if major1(i) in (0,98) & anymjr1_1~=1 then anymjr1_1=0;
if major1(i)>0 & anymjr1_1~=98 then anymjr1_1=1;
end;

** Round 2;
do i=1 to dim(major21); if major21(i) in (0,98) & anymjr2_1~=1 then anymjr2_1=0; if major21(i)>0 & anymjr2_1~=98 then anymjr2_1=1; end;
do i=1 to dim(major22); if major22(i) in (0,98) & anymjr2_2~=1 then anymjr2_2=0; if major22(i)>0 & anymjr2_2~=98 then anymjr2_2=1; end;
do i=1 to dim(major23); if major23(i) in (0,98) & anymjr2_3~=1 then anymjr2_3=0; if major23(i)>0 & anymjr2_3~=98 then anymjr2_3=1; end;
do i=1 to dim(major24); if major24(i) in (0,98) & anymjr2_4~=1 then anymjr2_4=0; if major24(i)>0 & anymjr2_4~=98 then anymjr2_4=1; end;
do i=1 to dim(major25); if major25(i) in (0,98) & anymjr2_5~=1 then anymjr2_5=0; if major25(i)>0 & anymjr2_5~=98 then anymjr2_5=1; end;

if anymjr2_1=. & gdr2~=-5 then do;
do k=1 to dim(schidr1);
if schidr2_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr2_1=anymjr1(k);
major_FLG_r2=1;
end;
end;
end;

** Round 3;
do i=1 to dim(major31); if major31(i) in (0,98) & anymjr3_1~=1 then anymjr3_1=0; if major31(i)>0 & anymjr3_1~=98 then anymjr3_1=1; end;
do i=1 to dim(major32); if major32(i) in (0,98) & anymjr3_2~=1 then anymjr3_2=0; if major32(i)>0 & anymjr3_2~=98 then anymjr3_2=1; end;
do i=1 to dim(major33); if major33(i) in (0,98) & anymjr3_3~=1 then anymjr3_3=0; if major33(i)>0 & anymjr3_3~=98 then anymjr3_3=1; end;
do i=1 to dim(major34); if major34(i) in (0,98) & anymjr3_4~=1 then anymjr3_4=0; if major34(i)>0 & anymjr3_4~=98 then anymjr3_4=1; end;

if anymjr3_1=. & gdr3~=-5 then do;
if gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr3_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr3_1=anymjr2(k);
major_FLG_r3=2;
end;
end;
end;
if gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr3_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr3_1=anymjr1(k);
major_FLG_r3=1;
end;
end;
end;
end;

** Round 4;
do i=1 to dim(major41); if major41(i) in (0,98) & anymjr4_1~=1 then anymjr4_1=0; if major41(i)>0 & anymjr4_1~=98 then anymjr4_1=1; end;
do i=1 to dim(major42); if major42(i) in (0,98) & anymjr4_2~=1 then anymjr4_2=0; if major42(i)>0 & anymjr4_2~=98 then anymjr4_2=1; end;
do i=1 to dim(major43); if major43(i) in (0,98) & anymjr4_3~=1 then anymjr4_3=0; if major43(i)>0 & anymjr4_3~=98 then anymjr4_3=1; end;
do i=1 to dim(major44); if major44(i) in (0,98) & anymjr4_4~=1 then anymjr4_4=0; if major44(i)>0 & anymjr4_4~=98 then anymjr4_4=1; end;

if anymjr4_1=. & gdr4~=-5 then do;
if gdr3~=-5 then do;
do k=1 to dim(schidr3);
if schidr4_1=schidr3(k) & schidr3(k)>0 & anymjr3(k)>=0 then do;
anymjr4_1=anymjr3(k);
major_FLG_r4=3;
end;
end;
end;
if gdr3=-5 & gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr4_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr4_1=anymjr2(k);
major_FLG_r4=2;
end;
end;
end;
if gdr3=-5 & gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr4_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr4_1=anymjr1(k);
major_FLG_r4=1;
end;
end;
end;
end;

** Round 5;
do i=1 to dim(major51); if major51(i) in (0,98) & anymjr5_1~=1 then anymjr5_1=0; if major51(i)>0 & anymjr5_1~=98 then anymjr5_1=1; end;
do i=1 to dim(major52); if major52(i) in (0,98) & anymjr5_2~=1 then anymjr5_2=0; if major52(i)>0 & anymjr5_2~=98 then anymjr5_2=1; end;
do i=1 to dim(major53); if major53(i) in (0,98) & anymjr5_3~=1 then anymjr5_3=0; if major53(i)>0 & anymjr5_3~=98 then anymjr5_3=1; end;
do i=1 to dim(major54); if major54(i) in (0,98) & anymjr5_4~=1 then anymjr5_4=0; if major54(i)>0 & anymjr5_4~=98 then anymjr5_4=1; end;
do i=1 to dim(major55); if major55(i) in (0,98) & anymjr5_5~=1 then anymjr5_5=0; if major55(i)>0 & anymjr5_5~=98 then anymjr5_5=1; end;
do i=1 to dim(major56); if major56(i) in (0,98) & anymjr5_6~=1 then anymjr5_6=0; if major56(i)>0 & anymjr5_6~=98 then anymjr5_6=1; end;

if anymjr5_1=. & gdr5~=-5 then do;
if gdr4~=-5 then do;
do k=1 to dim(schidr4);
if schidr5_1=schidr4(k) & schidr4(k)>0 & anymjr4(k)>=0 then do;
anymjr5_1=anymjr4(k);
major_FLG_r5=4;
end;
end;
end;
if gdr4=-5 & gdr3~=-5 then do;
do k=1 to dim(schidr3);
if schidr5_1=schidr3(k) & schidr3(k)>0 & anymjr3(k)>=0 then do;
anymjr5_1=anymjr3(k);
major_FLG_r5=3;
end;
end;
end;
if gdr4=-5 & gdr3=-5 & gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr5_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr5_1=anymjr2(k);
major_FLG_r5=2;
end;
end;
end;
if gdr4=-5 & gdr3=-5 & gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr5_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr5_1=anymjr1(k);
major_FLG_r5=1;
end;
end;
end;
end;

** Round 6;
do i=1 to dim(major61); if major61(i) in (0,98) & anymjr6_1~=1 then anymjr6_1=0; if major61(i)>0 & anymjr6_1~=98 then anymjr6_1=1; end;
do i=1 to dim(major62); if major62(i) in (0,98) & anymjr6_2~=1 then anymjr6_2=0; if major62(i)>0 & anymjr6_2~=98 then anymjr6_2=1; end;
do i=1 to dim(major63); if major63(i) in (0,98) & anymjr6_3~=1 then anymjr6_3=0; if major63(i)>0 & anymjr6_3~=98 then anymjr6_3=1; end;
do i=1 to dim(major64); if major64(i) in (0,98) & anymjr6_4~=1 then anymjr6_4=0; if major64(i)>0 & anymjr6_4~=98 then anymjr6_4=1; end;
do i=1 to dim(major65); if major65(i) in (0,98) & anymjr6_5~=1 then anymjr6_5=0; if major65(i)>0 & anymjr6_5~=98 then anymjr6_5=1; end;

if anymjr6_1=. & gdr6~=-5 then do;
if gdr5~=-5 then do;
do k=1 to dim(schidr5);
if schidr6_1=schidr5(k) & schidr5(k)>0 & anymjr5(k)>=0 then do;
anymjr6_1=anymjr5(k);
major_FLG_r6=5;
end;
end;
end;
if gdr5=-5 & gdr4~=-5 then do;
do k=1 to dim(schidr4);
if schidr6_1=schidr4(k) & schidr4(k)>0 & anymjr4(k)>=0 then do;
anymjr6_1=anymjr4(k);
major_FLG_r6=4;
end;
end;
end;
if gdr5=-5 & gdr4=-5 & gdr3~=-5 then do;
do k=1 to dim(schidr3);
if schidr6_1=schidr3(k) & schidr3(k)>0 & anymjr3(k)>=0 then do;
anymjr6_1=anymjr3(k);
major_FLG_r6=3;
end;
end;
end;
if gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr6_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr6_1=anymjr2(k);
major_FLG_r6=2;
end;
end;
end;
if gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr6_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr6_1=anymjr1(k);
major_FLG_r6=1;
end;
end;
end;
end;

** Round 7;
do i=1 to dim(major71); if major71(i) in (0,98) & anymjr7_1~=1 then anymjr7_1=0; if major71(i)>0 & anymjr7_1~=98 then anymjr7_1=1; end;
do i=1 to dim(major72); if major72(i) in (0,98) & anymjr7_2~=1 then anymjr7_2=0; if major72(i)>0 & anymjr7_2~=98 then anymjr7_2=1; end;
do i=1 to dim(major73); if major73(i) in (0,98) & anymjr7_3~=1 then anymjr7_3=0; if major73(i)>0 & anymjr7_3~=98 then anymjr7_3=1; end;
do i=1 to dim(major74); if major74(i) in (0,98) & anymjr7_4~=1 then anymjr7_4=0; if major74(i)>0 & anymjr7_4~=98 then anymjr7_4=1; end;
do i=1 to dim(major75); if major75(i) in (0,98) & anymjr7_5~=1 then anymjr7_5=0; if major75(i)>0 & anymjr7_5~=98 then anymjr7_5=1; end;

if anymjr7_1=. & gdr6~=-5 then do;
do k=1 to dim(schidr6);
if schidr7_1=schidr6(k) & schidr6(k)>0 & anymjr6(k)>=0 then do;
anymjr7_1=anymjr6(k);
major_FLG_r7=6;
end;
end;
if gdr6=-5 & gdr5~=-5 then do;
do k=1 to dim(schidr5);
if schidr7_1=schidr5(k) & schidr5(k)>0 & anymjr5(k)>=0 then do;
anymjr7_1=anymjr5(k);
major_FLG_r7=5;
end;
end;
end;
if gdr6=-5 & gdr5=-5 & gdr4~=-5 then do;
do k=1 to dim(schidr4);
if schidr7_1=schidr4(k) & schidr4(k)>0 & anymjr4(k)>=0 then do;
anymjr7_1=anymjr4(k);
major_FLG_r7=4;
end;
end;
end;
if gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3~=-5 then do;
do k=1 to dim(schidr3);
if schidr7_1=schidr3(k) & schidr3(k)>0 & anymjr3(k)>=0 then do;
anymjr7_1=anymjr3(k);
major_FLG_r7=3;
end;
end;
end;
if gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr7_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr7_1=anymjr2(k);
major_FLG_r7=2;
end;
end;
end;
if gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr7_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr7_1=anymjr1(k);
major_FLG_r7=1;
end;
end;
end;
end;


** Round 8;
do i=1 to dim(major81); if major81(i) in (0,98) & anymjr8_1~=1 then anymjr8_1=0; if major81(i)>0 & anymjr8_1~=98 then anymjr8_1=1; end;
do i=1 to dim(major82); if major82(i) in (0,98) & anymjr8_2~=1 then anymjr8_2=0; if major82(i)>0 & anymjr8_2~=98 then anymjr8_2=1; end;
do i=1 to dim(major83); if major83(i) in (0,98) & anymjr8_3~=1 then anymjr8_3=0; if major83(i)>0 & anymjr8_3~=98 then anymjr8_3=1; end;
do i=1 to dim(major84); if major84(i) in (0,98) & anymjr8_4~=1 then anymjr8_4=0; if major84(i)>0 & anymjr8_4~=98 then anymjr8_4=1; end;

if anymjr8_1=. & gdr7~=-5 then do;
do k=1 to dim(schidr7);
if schidr8_1=schidr7(k) & schidr7(k)>0 & anymjr7(k)>=0 then do;
anymjr8_1=anymjr7(k);
major_FLG_r8=7;
end;
end;
if gdr7=-5 & gdr6~=-5 then do;
do k=1 to dim(schidr6);
if schidr8_1=schidr6(k) & schidr6(k)>0 & anymjr6(k)>=0 then do;
anymjr8_1=anymjr6(k);
major_FLG_r8=6;
end;
end;
end;
if gdr7=-5 & gdr6=-5 & gdr5~=-5 then do;
do k=1 to dim(schidr5);
if schidr8_1=schidr5(k) & schidr5(k)>0 & anymjr5(k)>=0 then do;
anymjr8_1=anymjr5(k);
major_FLG_r8=5;
end;
end;
end;
if gdr7=-5 & gdr6=-5 & gdr5=-5 & gdr4~=-5 then do;
do k=1 to dim(schidr4);
if schidr8_1=schidr4(k) & schidr4(k)>0 & anymjr4(k)>=0 then do;
anymjr8_1=anymjr4(k);
major_FLG_r8=4;
end;
end;
end;
if gdr7=-5 & gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3~=-5 then do;
do k=1 to dim(schidr3);
if schidr8_1=schidr3(k) & schidr3(k)>0 & anymjr3(k)>=0 then do;
anymjr8_1=anymjr3(k);
major_FLG_r8=3;
end;
end;
end;
if gdr7=-5 & gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2~=-5 then do;
do k=1 to dim(schidr2);
if schidr8_1=schidr2(k) & schidr2(k)>0 & anymjr2(k)>=0 then do;
anymjr8_1=anymjr2(k);
major_FLG_r8=2;
end;
end;
end;
if gdr7=-5 & gdr6=-5 & gdr5=-5 & gdr4=-5 & gdr3=-5 & gdr2=-5 then do;
do k=1 to dim(schidr1);
if schidr8_1=schidr1(k) & schidr1(k)>0 & anymjr1(k)>=0 then do;
anymjr8_1=anymjr1(k);
major_FLG_r8=1;
end;
end;
end;
end;

** Identifying if R was enrolled in a legeitimate degree program in a 2/4 year college, reported having
some major and also reported leaving that college because finished coursework or received a degree.
This dummy is created only when R does not report receiving a college degree in (YSCH-23450).;

** Round 1;
do i=1 to dim(schidr2);
if e23450r2(i)<=0 & (lftscr2(i)=1|lftsc2r2(i)=1) & scoder2(i) in (4,5)
& e27337r2(i) in (1,3,4,5,6) & anymjr2(i)~=0 then clgdgr2(i)=1;
end;
do i=1 to dim(schidr3);
if e23450r3(i)<=0 & (lftscr3(i)=1|lftsc2r3(i)=1) & scoder3(i) in (4,5)
& e27337r3(i) in (1,3,4,5,6) & anymjr3(i)~=0 then clgdgr3(i)=1;
end;
do i=1 to dim(schidr4);
if e23450r4(i)<=0 & (lftscr4(i)=1|lftsc2r4(i)=1) & scoder4(i) in (4,5)
& e27337r4(i) in (1,3,4,5,6) & anymjr4(i)~=0 then clgdgr4(i)=1;
end;
do i=1 to dim(schidr5);
if e23450r5(i)<=0 & (lftscr5(i)=1|lftsc2r5(i)=1) & scoder5(i) in (4,5)
& e27337r5(i) in (1,3,4,5,6) & anymjr5(i)~=0 then clgdgr5(i)=1;
end;
do i=1 to dim(schidr6);
if e23450r6(i)<=0 & lftscr6(i)=1 & scoder6(i) in (4,5)
& e27337r6(i) in (1,3,4,5,6) & anymjr6(i)~=0 then clgdgr6(i)=1;
end;
do i=1 to dim(schidr7);
if e23450r7(i)<=0 & lftscr7(i)=1 & scoder7(i) in (4,5)
& e27337r7(i) in (1,3,4,5,6) & anymjr7(i)~=0 then clgdgr7(i)=1;
end;
do i=1 to dim(schidr8);
if e23450r8(i)<=0 & lftscr8(i)=1 & scoder8(i) in (4,5)
& e27337r8(i) in (1,3,4,5,6) & anymjr8(i)~=0 then clgdgr8(i)=1;
end;

** Compute dates of degree received for respondents when they report receiving a college degree in
YSCH-3113 but do not report receving one in YSCH-23450. In such cases, additional checks are used to
verify that the respondent has indeed received a college degree. We use the degree working
towards (YSCH-27337), school type information (NEW_SCHOOL_CODE), reason they left the school
(NEWSCHOOL_LEFT) and whether they had decided on a major at that college. If we can verify that they
were indeed in a 2/4 year college, working towards a legitimate college degree, left that college
because they had completed coursework, or graduated and had decided on a major at that college then
we use the date of leaving that particular college as the date of receving the college degree
reported in YSCH-3113.;

do i=1 to dim(scoder8);
if clgdgr8(i)=1 then do;
if e27337r8(i)>=1 & e3113r8=4
& aarP=-4 & barP=-4 & marP=-4 & dcrP=-4 & pfrP=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr8=4;
aarC=stopcr8(i);
end;
if e27337r8(i)>=3 & e3113r8=5
& barP=-4 & marP=-4 & dcrP=-4 & pfrP=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr8=5;
barC=stopcr8(i);
end;
if e27337r8(i)>=4 & e3113r8=6
& marP=-4 & dcrP=-4 & pfrP=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr8=6;
marC=stopcr8(i);
end;
if e27337r8(i)=5 & e3113r8=7 & dcrP=-4 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr8=7;
dcrC=stopcr8(i);
end;
if e27337r8(i)=6 & e3113r8=8 & pfrP=-4 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr8=8;
pfrC=stopcr8(i);
end;
end;
end;

do i=1 to dim(scoder7);
if clgdgr7(i)=1 then do;
if e27337r7(i)>=1 & e3113r8=4
& aar7=-4 & bar7=-4 & mar7=-4 & dcr7=-4 & pfr7=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr7=4;
aarC=stopcr7(i);
end;
if e27337r7(i)>=3 & e3113r8=5
& bar7=-4 & mar7=-4 & dcr7=-4 & pfr7=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr7=5;
barC=stopcr7(i);
end;
if e27337r7(i)>=4 & e3113r8=6
& mar7=-4 & dcr7=-4 & pfr7=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr7=6;
marC=stopcr7(i);
end;
if e27337r7(i)=5 & e3113r8=7 & dcr7=-4 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr7=7;
dcrC=stopcr7(i);
end;
if e27337r7(i)=6 & e3113r8=8 & pfr7=-4 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr7=8;
pfrC=stopcr7(i);
end;
end;
end;

do i=1 to dim(scoder6);
if clgdgr6(i)=1 & (hsr6>-4|gdr6>-4) then do;
if e27337r6(i)>=1 & e3113r8=4
& aar6=-4 & bar6=-4 & mar6=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr6=4;
if stopcr6(i)>0 then aarC=stopcr6(i);
end;
if e27337r6(i)>=3 & e3113r8=5
& bar6=-4 & mar6=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr6=5;
if stopcr6(i)>0 then barC=stopcr6(i);
end;
if e27337r6(i)>=4 & e3113r8=6
& mar6=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr6=6;
if stopcr6(i)>0 then marC=stopcr6(i);
end;
if e27337r6(i)=5 & e3113r8=7 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr6=7;
if stopcr6(i)>0 then dcrC=stopcr6(i);
end;
if e27337r6(i)=6 & e3113r8=8 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr6=8;
if stopcr6(i)>0 then pfrC=stopcr6(i);
end;
end;
end;

do i=1 to dim(scoder5);
if clgdgr5(i)=1 & (hsr5>-4|gdr5>-4) then do;
if e27337r5(i)>=1 & e3113r8=4
& aar5=-4 & bar5=-4
& aar6<=-4 & bar6<=-4 & mar6<=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr5=4;
if stopcr5(i)>0 then aarC=stopcr5(i);
end;
if e27337r5(i)>=3 & e3113r8=5
& bar5=-4
& bar6<=-4 & mar6<=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr5=5;
if stopcr5(i)>0 then barC=stopcr5(i);
end;
if e27337r5(i)>=4 & e3113r8=6
& mar6<=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr5=6;
if stopcr5(i)>0 then marC=stopcr5(i);
end;
if e27337r5(i)=5 & e3113r8=7 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr5=7;
if stopcr5(i)>0 then dcrC=stopcr5(i);
end;
if e27337r5(i)=6 & e3113r8=8 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr5=8;
if stopcr5(i)>0 then pfrC=stopcr5(i);
end;
end;
end;

do i=1 to dim(scoder4);
if clgdgr4(i)=1 & (hsr4>-4|gdr4>-4) then do;
if e27337r4(i)>=1 & e3113r8=4
& aar4=-4 & bar4=-4
& aar5<=-4 & bar5<=-4
& aar6<=-4 & bar6<=-4 & mar6<=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr4=4;
if stopcr4(i)>0 then aarC=stopcr4(i);
end;
if e27337r4(i)>=3 & e3113r8=5
& bar4=-4
& bar5<=-4
& bar6<=-4 & mar6<=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr4=5;
if stopcr4(i)>0 then barC=stopcr4(i);
end;
if e27337r4(i)>=4 & e3113r8=6
& mar6<=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr4=6;
if stopcr4(i)>0 then marC=stopcr4(i);
end;
if e27337r4(i)=5 & e3113r8=7 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr4=7;
if stopcr4(i)>0 then dcrC=stopcr4(i);
end;
if e27337r4(i)=6 & e3113r8=8 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr4=8;
if stopcr4(i)>0 then pfrC=stopcr4(i);
end;
end;
end;

do i=1 to dim(scoder3);
if clgdgr3(i)=1 & (hsr3>-4|gdr3>-4) then do;
if e27337r3(i)>=1 & e3113r8=4
& aar3=-4 & bar3=-4
& aar4<=-4 & bar4<=-4
& aar5<=-4 & bar5<=-4
& aar6<=-4 & bar6<=-4 & mar6<=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr3=4;
if stopcr3(i)>0 then aarC=stopcr3(i);
end;
if e27337r3(i)>=3 & e3113r8=5
& bar3=-4
& bar4<=-4
& bar5<=-4
& bar6<=-4 & mar6<=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr3=5;
if stopcr3(i)>0 then barC=stopcr3(i);
end;
if e27337r3(i)>=4 & e3113r8=6
& mar6<=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr3=6;
if stopcr3(i)>0 then marC=stopcr3(i);
end;
if e27337r3(i)=5 & e3113r8=7 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr3=7;
if stopcr3(i)>0 then dcrC=stopcr3(i);
end;
if e27337r3(i)=6 & e3113r8=8 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr3=8;
if stopcr3(i)>0 then pfrC=stopcr3(i);
end;
end;
end;

do i=1 to dim(scoder2);
if clgdgr2(i)=1 & (hsr2>-4|gdr2>-4) then do;
if e27337r2(i)>=1 & e3113r8=4
& aar3=-4 & bar3=-4
& aar4<=-4 & bar4<=-4
& aar5<=-4 & bar5<=-4
& aar6<=-4 & bar6<=-4 & mar6<=-4
& aarC=-4 & barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
aarC=-3;
r8_degIMPr2=4;
if stopcr2(i)>0 then aarC=stopcr2(i);
end;
if e27337r2(i)>=3 & e3113r8=5
& bar3=-4
& bar4<=-4
& bar5<=-4
& bar6<=-4 & mar6<=-4
& barC=-4 & marC=-4 & dcrC=-4 & pfrC=-4 then do;
barC=-3;
r8_degIMPr2=5;
if stopcr2(i)>0 then barC=stopcr2(i);
end;
if e27337r2(i)>=4 & e3113r8=6
& mar6<=-4
& marC=-4 & dcrC=-4 & pfrC=-4 then do;
marC=-3;
r8_degIMPr2=6;
if stopcr2(i)>0 then marC=stopcr2(i);
end;
if e27337r2(i)=5 & e3113r8=7 & dcrC=-4 then do;
dcrC=-3;
r8_degIMPr2=7;
if stopcr2(i)>0 then dcrC=stopcr2(i);
end;
if e27337r2(i)=6 & e3113r8=8 & pfrC=-4 then do;
pfrC=-3;
r8_degIMPr2=8;
if stopcr2(i)>0 then pfrC=stopcr2(i);
end;
end;
end;

** If we have no or bad information about receipt of GED then we use the same technique as above to
impute the date of receipt of GED if the conditions mentioned above are satisfied. Of course, here
we do not use the restriction of having decided on a major.;
if gdrC<=0 then do;
do i=1 to dim(scoder8);
if e3113r8=2 & e23450r8(i)<=0 & lftscr8(i)=1 & scoder8(i) in (4,5) & e27337r8(i)=9 then do;
gdrC=-3;
r8_degIMPr8=2;
gdrC=stopcr8(i);
end;
end;
end;

** If we have no or bad information about receipt of H.S.Diploma then we use the same technique as above
to impute the date of receipt of H.S.Diploma if the conditions mentioned above are satisfied. Of
course, here we do not use the restriction of having decided on a major.;
if hsrP<=-4 & hsrC<=0 & e3113r8=3 then do;
hsrC=-3;
r8_degIMPr8=3;
do i=1 to dim(scoder8);
if e23450r8(i)<=0 & lftscr8(i)=1 & scoder8(i) in (1,2,3) & stopcr8(i)~=. then hsrC=stopcr8(i);
end;
end;

do i=1 to dim(scoder8);
if lftscr8(i)=1 & scoder8(i) in (4,5) & e27337r8(i) in (1,3,4,5,6) then do;
if e3113r8=4 & aarC=-4 then chkdg2=1;
if e3113r8=5 & barC=-4 then chkdg2=2;
if e3113r8=6 & marC=-4 then chkdg2=3;
if e3113r8=7 & dcrC=-4 then chkdg2=4;
if e3113r8=8 & pfrC=-4 then chkdg2=5;
end;
end;

*** Convert all -1 & -2s to -3.;
do i=1 to 7;
if CRP(i) in (-1,-2) then CRP(i)=-3;
if CRC(i) in (-1,-2) then CRC(i)=-3;
end;


*** Check if there is some conflict between information from the current round and that available from
previous rounds.;
do i=1 to 7;
if CRC(i)>0 and CRP(i)>0 & CRC(i)~=CRP(i) then FLG(i)=1;
if CRP(i)>0 and CRC(i)=-3 then FLG(i)=2;
if CRC(i)>0 and CRP(i)=-3 then FLG(i)=3;
end;


*** Merge the results from previous rounds.;
** If only one date is available for any degree i.e. there is no conflict then use that date.;
do i=1 to 7;
if FLG(i)=0 then do;
if CRP(i)~=-4 then CDT(i)=CRP(i);
if CRC(i)~=-4 then CDT(i)=CRC(i);
end;
end;
** If two dates are available for any degree - one from previous rounds and one from this then resolve
the conflict. To resolve the conflict.:
(i) Take the date reported in the earlier round if both dates are valid. If AA or higher have two
valid dates then that is not necessarily a data or questionnaire mistake. A person may have
received the same type of degree in different majors. But it is a data inconsisteny issue if R
reports receiving the same type of degree in the same major from the same institution. So these
must be looked at case by case
(ii) Only the valid date if only one of them is a valid date.;
do i=1 to 7;
if FLG(i) in (1,2) then CDT(i)=CRP(i);
if FLG(i)=3 then CDT(i)=CRC(i);
end;


* What do we do about the cases where R reports receiving a degree in YSCH-3113 that is greater than
what R reports receiving anywhere else in the questionnaire? We decided not to use information from
YSCH-3113 unless it helps to resolve conflicting information;


*** START of Handedits;

if pubid in (83) then do;
CDTGD=-4;
FLG_13900r8=1;
end;

if pubid=2645 then do;
CDTGD=270;
FLG_13900r8=1;
end;
if pubid=4248 then do;
CDTGD=262;
FLG_139000r8=1;
end;
if CDTGD=-4 & pubid in
(12 815 1115 1436 1754 1828 2747 3130 3167 3231 3321 3332
3356 4151 4451 4655 4760 4864 4958 5013 5050 5177 5556 5648
5684 5685 5886 5927 6069 6146 6199 6467 4287 6980 7070 7153
7318 7355 7765 7950 7973 8126 8296 8370 8374 8809 8859 4212)
then do;
CDTGD=-3;
FLG_13900r8=1;
end;

** These Rs reported two dates and the date from their transcripts is now being used.;
if pubid=64 then do;
CDTHS=234;
FLG_COMM=1;
end;
if pubid=256 then do;
CDTHS=222;
FLG_COMM=1;
end;

** Some respondents reported a GED in an earlier round and then reported the highest degree attained
in Round 7 (YSCH-3113) to be H.S. Diploma. In round 8 they reported the highest degree attained to
be none or GED. We eliminate the H.S.Diploma receipt information for these cases.;
if e3113r8 in (1,2) & e3113r7=3 & degIMPr7=3 & gdr7>-4
& hsr1<=-4 & hsr2<=-4 & hsr3<=-4 & hsr4<=-4 & hsr5<=-4 & hsr6<=-4 then do;
CDTHS=-4;
handedit=1;
end;

** Some respondents never reported a GED and then reported the highest degree attained in Round 7
(YSCH-3113) to be GED. In round 8 they reported the highest degree attained to be none. We eliminate
the GED receipt information for these cases.;
if e3113r8=1 & e3113r7=2 & degIMPr7=2 & gdr7>-4 & hsrP=-4 & CDTHS=-4
& gdr1<=-4 & gdr2<=-4 & gdr3<=-4 & gdr4<=-4 & gdr5<=-4 & gdr6<=-4 then do;
CDTGD=-4;
handedit=1;
end;

** In this round R reported the highest degree received was BA/BS. R also reported HGA=18 & HGC=18 in
the single items. However, because we erroneously coded R as having a HGA<8, R missed the college loops.
R reported being enrolled in a 4-yr college in an earlier round where R reported working towards a
BA degree. In this round R reported being enrolled in the same college and the reason R left it was
because R received a degree/completed coursework. Using all this information we conclude that R
received the BA/BS degree when R was last enrolled at this college.;
if pubid=4003 then do;
CDTBA=292;
handedit=1;
end;

** These Respondents were never asked the H.S.Diploma receipt question, they were asked the GED receipt
question to which they reported in the affirmative and in the highest degree received question they
reported receiving a H.S.Diploma; * NEW;
if e3113r8=3 & hsrP=-4 & gdrP=-4 & e11700r8=-4 & e13300r8=1 then do;
CDTHS=CDTGD;
CDTGD=-4;
handedit=1;
end;

*** END of Handedits;

** Compute the year of receiving a degree;
do i=1 to 7;
if CDT(i)<0 then YDT(i)=CDT(i);
if 181<=CDT(i)<=192 then YDT(i)=1995;
if 193<=CDT(i)<=204 then YDT(i)=1996;
if 205<=CDT(i)<=216 then YDT(i)=1997;
if 217<=CDT(i)<=228 then YDT(i)=1998;
if 229<=CDT(i)<=240 then YDT(i)=1999;
if 241<=CDT(i)<=252 then YDT(i)=2000;
if 253<=CDT(i)<=264 then YDT(i)=2001;
if 265<=CDT(i)<=276 then YDT(i)=2002;
if 277<=CDT(i)<=288 then YDT(i)=2003;
if 289<=CDT(i)<=300 then YDT(i)=2004;
end;

** Compute degrees received and highest degree received variables from YSCH-23450;
hgdegr8=1;
do i=1 to 7;
DEG(i)=0;
if CDT(i)>-4 then do;
DEG(i)=1;
hgdegr8=i+1;
end;
end;

** Compute dummy to check if highest degree computed from YSCH-23450 and that reported in YSCH-3113 are
the same;

if e3113r8=hgdegr8 & e3113r8>1 & hgdegr8>1 then do;
e3lower=0;
e3higher=0;
end;

if e3113r8~=hgdegr8 then do;
if e3113r8=1 & hgdegr8>1 then e3lower=10+hgdegr8;
if e3113r8=2 & hgdegr8>2 then e3lower=20+hgdegr8;
if e3113r8=3 & hgdegr8>3 then e3lower=30+hgdegr8;
if e3113r8=4 & hgdegr8>4 then e3lower=40+hgdegr8;
if e3113r8=5 & hgdegr8>5 then e3lower=50+hgdegr8;
if e3113r8=6 & hgdegr8>6 then e3lower=60+hgdegr8;
if e3113r8=7 & hgdegr8>7 then e3lower=70+hgdegr8;
if e3113r8=8 & hgdegr8>8 then e3lower=80+hgdegr8;
end;
if e3113r8~=hgdegr8 then do;
if hgdegr8=1 & e3113r8>1 then e3higher=10+e3113r8;
if hgdegr8=2 & e3113r8>2 then e3higher=20+e3113r8;
if hgdegr8=3 & e3113r8>3 then e3higher=30+e3113r8;
if hgdegr8=4 & e3113r8>4 then e3higher=40+e3113r8;
if hgdegr8=5 & e3113r8>5 then e3higher=50+e3113r8;
if hgdegr8=6 & e3113r8>6 then e3higher=60+e3113r8;
if hgdegr8=7 & e3113r8>7 then e3higher=70+e3113r8;
if hgdegr8=8 & e3113r8>8 then e3higher=80+e3113r8;
end;

do i=1 to dim(e23450r8);
if e23450r8(i) in (-1, -2, -3) then hgdegr8=-3; * If degree received cannot be determined;
end;

ENDSAS;