Enrollment Status and Highest Grade/Degree - Appendix 1

National Longitudinal Survey of Youth - 1997 Cohort

Enrollment Status and Highest Grade/Degree - Appendix 1

Variables Created

  • CV_ENROLLSTAT (ENCAT)--enrollment status as of the survey date. Use the revised CV_ENROLLSTAT_EDT series for rounds 2-8.
  • CV_HGC_EVER_EDT (GRSURV)--single-round variable for highest grade completed by all respondents interviewed in that round
  • CVC_HGC_EVER (GRSURV_CVC)--cross-round variable for highest grade completed by all respondents as of most recent interview
  • CV_HIGHEST_DEGREE_EVER_EDT (DEGSURV)--single-round variable for highest degree received by all respondents interviewed in that round
  • CVC_HIGHEST_DEGREE_EVER (DEGSURV_CVC)--cross-round variable for highest degree received by all respondents as of most recent interview
  • CV_HGC_1011 (GRAUG)--highest grade completed prior to the 10/11 academic year
  • CV_HIGHEST_DEGREE_1011 (DEGAUG)--highest degree received prior to the 10/11 academic year

This program first creates an enrollment status variable for each respondent. It then identifies the highest grade completed by the respondent as of the current round interview date and at the start of the new academic year prior to the survey round. It determines the highest degree or diploma received by the respondent as of the same two dates. Finally, it creates collapsed versions of the highest grade completed and highest degree received as cross-round variables.

The following decision rules are used to resolve conflicts in the data.

  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 GRAUG, if applicable) but are not credited with a H. S. Diploma/GED on ENCAT, DEGSURV, or DEGAUG. 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 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, GRAUG). Specifically, Rs are assigned a -3 if they:
    1. report being not enrolled and
    2. 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
    3. report that their HGA (e2857) is two or more greater than the HGC reported in the prior round. 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). 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).
  5. 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.
  6. 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.
  7. 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 bachelor's degree. So we code all these as ENCAT=11. If the questionnaire is changed to accommodate the graduate program option, these may be recoded in later rounds.

Variables Used

/*Variable Names in the Program           Variable Names on the Gator*/

   e2806r14                                YSCH-2806_2010
   e2857r14                                YSCH-2857_2010
   e3061r14                                YSCH-3061_2010
   e3877r14                                YSCH-3877_2010
   e3877A1r14                              YSCH-3877A1_2010
   e4795r14                                YSCH-4795_2010
   e1605r14                                YSCH-1605_2010
   e1615r14_1                              YSCH-1615.01_2010
   e1627r14_1                              YSCH-1627.01_2010
   e4951r14                                YSCH-4951_2010
   e6784r14_1                              YSCH-6784.01_2010
   e6784r14_2                              YSCH-6784.02_2010
   e6784r14_3                              YSCH-6784.03_2010
   e6784r14_4                              YSCH-6784.04_2010
   e6938r14_1                              YSCH-6938.01_2010
   e6938r14_2                              YSCH-6938.02_2010
   e6938r14_3                              YSCH-6938.03_2010
   e6943r14_11                             YSCH-6943.01.01_2010
   e6943r14_12                             YSCH-6943.01.02_2010
   e6943r14_21                             YSCH-6943.02.01_2010
   e7142r14_11                             YSCH-7142.01.01_2010
   e7142r14_12                             YSCH-7142.01.02_2010
   e7142r14_21                             YSCH-7142.02.01_2010
   e7142r14_31                             YSCH-7142.03.01_2010
   e7192r14_1                              YSCH-7192.01_2010
   e7192r14_2                              YSCH-7192.02_2010
   e7192r14_3                              YSCH-7192.03_2010
   e7192r14_4                              YSCH-7192.04_2010
   e8416r14_11                             YSCH-8416.01.01_2010
   e8416r14_12                             YSCH-8416.01.02_2010
   e8416r14_13                             YSCH-8416.01.03_2010
   e8416r14_21                             YSCH-8416.02.01_2010
   e8416r14_31                             YSCH-8416.03.01_2010
   PUBID                                   PUBID_2010
   sGEDr14_1                               NEWSCHOOL_GED.01_2010
   sGEDr14_2                               NEWSCHOOL_GED.02_2010
   lftscR14_1                              NEWSCHOOL_LEFT.01_2010
   lftscR14_2                              NEWSCHOOL_LEFT.02_2010
   lftscR14_3                              NEWSCHOOL_LEFT.03_2010
   lftscR14_4                              NEWSCHOOL_LEFT.04_2010
   schintR14_1                             NEWSCHOOL_INTERVIEW.01_2010
   schintR14_2                             NEWSCHOOL_INTERVIEW.02_2010
   schintR14_3                             NEWSCHOOL_INTERVIEW.03_2010
   schintR14_4                             NEWSCHOOL_INTERVIEW.04_2010
   schintR14_5                             NEWSCHOOL_INTERVIEW.05_2010
   scodeR14_1                              NEWSCHOOL_SCHCODE.01_2010
   scodeR14_2                              NEWSCHOOL_SCHCODE.02_2010
   scodeR14_3                              NEWSCHOOL_SCHCODE.03_2010
   scodeR14_4                              NEWSCHOOL_SCHCODE.04_2010
   scodeR14_5                              NEWSCHOOL_SCHCODE.05_2010
   strtMR14_11                             NEWSCHOOL_START1.01~M_2010
   strtYR14_11                             NEWSCHOOL_START1.01~Y_2010
   strtMR14_12                             NEWSCHOOL_START1.02~M_2010
   strtYR14_12                             NEWSCHOOL_START1.02~Y_2010
   strtMR14_13                             NEWSCHOOL_START1.03~M_2010
   strtYR14_13                             NEWSCHOOL_START1.03~Y_2010
   strtMR14_14                             NEWSCHOOL_START1.04~M_2010
   strtYR14_14                             NEWSCHOOL_START1.04~Y_2010
   strtMR14_15                             NEWSCHOOL_START1.05~M_2010
   strtYR14_15                             NEWSCHOOL_START1.05~Y_2010
   STOPMR14_11                             NEWSCHOOL_STOP1.01~M_2010
   STOPYR14_11                             NEWSCHOOL_STOP1.01~Y_2010
   STOPMR14_12                             NEWSCHOOL_STOP1.02~M_2010
   STOPYR14_12                             NEWSCHOOL_STOP1.02~Y_2010
   STOPMR14_13                             NEWSCHOOL_STOP1.03~M_2010
   STOPYR14_13                             NEWSCHOOL_STOP1.03~Y_2010
   STOPMR14_14                             NEWSCHOOL_STOP1.04~M_2010
   STOPYR14_14                             NEWSCHOOL_STOP1.04~Y_2010
   STOPMR14_15                             NEWSCHOOL_STOP1.05~M_2010
   STOPYR14_15                             NEWSCHOOL_STOP1.05~Y_2010
   strtMR14_21                             NEWSCHOOL_START2.01~M_2010
   strtYR14_21                             NEWSCHOOL_START2.01~Y_2010
   strtMR14_22                             NEWSCHOOL_START2.02~M_2010
   strtYR14_22                             NEWSCHOOL_START2.02~Y_2010
   stopMR14_21                             NEWSCHOOL_STOP2.01~M_2010
   stopYR14_21                             NEWSCHOOL_STOP2.01~Y_2010
   stopMR14_22                             NEWSCHOOL_STOP2.02~M_2010
   stopYR14_22                             NEWSCHOOL_STOP2.02~Y_2010
   stopMR14_23                             NEWSCHOOL_STOP2.03~M_2010
   stopYR14_23                             NEWSCHOOL_STOP2.03~Y_2010
   strtMR14_31                             NEWSCHOOL_START3.01~M_2010
   strtYR14_31                             NEWSCHOOL_START3.01~Y_2010
   strtMR14_32                             NEWSCHOOL_START3.02~M_2010
   strtYR14_32                             NEWSCHOOL_START3.02~Y_2010
   stopMR14_31                             NEWSCHOOL_STOP3.01~M_2010
   stopYR14_31                             NEWSCHOOL_STOP3.01~Y_2010
   schidR14_1                              NEWSCHOOL_PUBID.01_2010
   schidR14_2                              NEWSCHOOL_PUBID.02_2010
   schidR14_3                              NEWSCHOOL_PUBID.03_2010
   schidR14_4                              NEWSCHOOL_PUBID.04_2010
   schidR14_5                              NEWSCHOOL_PUBID.05_2010
   e3500r1                                 YSCH-3500_1997
   e5000r1                                 YSCH-5000_1997
   BDATE_M                                 KEY!BDATE_M_1997
   BDATE_Y                                 KEY!BDATE_Y_1997
   hgcr1                                   CV_HGC_EVER_1997
   e2857r2                                 YSCH-2857_1998
   hgcr2                                   CV_HGC_EVER_EDT_1998
   hgcYr2                                  CV_HGC_9899_1998
   e2857r3                                 YSCH-2857_1999
   hgcr3                                   CV_HGC_EVER_EDT_1999
   hgcYr3                                  CV_HGC_9900_1999
   e2857r4                                 YSCH-2857_2000
   hgcr4                                   CV_HGC_EVER_EDT_2000
   hgcYr4                                  CV_HGC_0001_2000
   e2857r5                                 YSCH-2857_2001
   hgcr5                                   CV_HGC_EVER_EDT_2001
   hgcYr5                                  CV_HGC_0102_2001
   e2857r6                                 YSCH-2857_2002
   hgcr6                                   CV_HGC_EVER_EDT_2002
   hgcYr6                                  CV_HGC_0203_2002
   hgcr7                                   CV_HGC_EVER_EDT_2003
   hgcYr7                                  CV_HGC_0304_2003
   e2857r7                                 YSCH-2857_2003
   hgcr8                                   CV_HGC_EVER_EDT_2004
   hgcYr8                                  CV_HGC_0405_2004
   e2857r8                                 YSCH-2857_2004
   hgcr9                                   CV_HGC_EVER_EDT_2005
   hgcYr9                                  CV_HGC_0506_2005
   e2857r9                                 YSCH-2857_2005
   hgcr10                                  CV_HGC_EVER_EDT_2006
   hgcYr10                                 CV_HGC_0607_2006
   e2857r10                                YSCH-2857_2006
   hgcr11                                  CV_HGC_EVER_EDT_2007
   hgcYr11                                 CV_HGC_0708_2007
   e2857r11                                YSCH-2857_2007
   hgcr12                                  CV_HGC_EVER_EDT_2008
   hgcYr12                                 CV_HGC_0809_2008
   e2857r12                                YSCH-2857_2008
   VERSION_R13                             VERSION_R13_2009
   hgcr13                                  CV_HGC_EVER_EDT_2009
   hgcYr13                                 CV_HGC_0910_2009
   e2857r13                                YSCH-2857_2009
   e11700r1                                YSCH-11700_1997
   e11900Mr1                               YSCH-11900_M_1997
   e11900Yr1                               YSCH-11900_Y_1997
   e13300r1                                YSCH-13300_1997
   t7000r1_1                               YTRN-7000.01_1997
   t7000r1_2                               YTRN-7000.02_1997
   t7000r1_3                               YTRN-7000.03_1997
   e3112r2                                 YSCH-3112_1998
   e11700r2                                YSCH-11700_1998
   e11900Mr2                               YSCH-11900~M_1998
   e11900Yr2                               YSCH-11900~Y_1998
   e27337r2_1                              YSCH-27337.01_1998
   e27337r2_2                              YSCH-27337.02_1998
   e27337r2_3                              YSCH-27337.03_1998
   e27337r2_4                              YSCH-27337.04_1998
   e27337r2_5                              YSCH-27337.05_1998
   e23450r2_1                              YSCH-23450.01_1998
   e23450r2_2                              YSCH-23450.02_1998
   e23450r2_3                              YSCH-23450.03_1998
   e23450r2_4                              YSCH-23450.04_1998
   t7000r2_1                               YTRN-7000.01_1998
   t7000r2_2                               YTRN-7000.02_1998
   e3112r3                                 YSCH-3112_1999
   e11700r3                                YSCH-11700_1999
   e11900Mr3                               YSCH-11900~M_1999
   e11900Yr3                               YSCH-11900~Y_1999
   e13300r3                                YSCH-13300_1999
   e13500Mr3                               YSCH-13500~M_1999
   e13500Yr3                               YSCH-13500~Y_1999
   e13600r3                                YSCH-13600_1999
   e27337r3_1                              YSCH-27337.01_1999
   e27337r3_2                              YSCH-27337.02_1999
   e27337r3_3                              YSCH-27337.03_1999
   e27337r3_4                              YSCH-27337.04_1999
   e27337r3_5                              YSCH-27337.05_1999
   e23450r3_1                              YSCH-23450.01_1999
   e23450r3_2                              YSCH-23450.02_1999
   e23450r3_3                              YSCH-23450.03_1999
   t7000r3_1                               YTRN-7000.01_1999
   t7000r3_2                               YTRN-7000.02_1999
   t7000r3_3                               YTRN-7000.03_1999
   t7000r3_4                               YTRN-7000.04_1999
   e3112r4                                 YSCH-3112_2000
   e11700r4                                YSCH-11700_2000
   e11900Mr4                               YSCH-11900~M_2000
   e11900Yr4                               YSCH-11900~Y_2000
   e13300r4                                YSCH-13300_2000
   e13500Mr4                               YSCH-13500~M_2000
   e13500Yr4                               YSCH-13500~Y_2000
   e13600r4                                YSCH-13600_2000
   e27337r4_1                              YSCH-27337.01_2000
   e27337r4_2                              YSCH-27337.02_2000
   e27337r4_3                              YSCH-27337.03_2000
   e27337r4_4                              YSCH-27337.04_2000
   e23450r4_1                              YSCH-23450.01_2000
   e23450r4_2                              YSCH-23450.02_2000
   e23450r4_3                              YSCH-23450.03_2000
   t7000r4_1                               YTRN-7000.01_2000
   t7000r4_2                               YTRN-7000.02_2000
   t7000r4_3                               YTRN-7000.03_2000
   t7000r4_4                               YTRN-7000.04_2000
   e3112r5                                 YSCH-3112_2001
   e11700r5                                YSCH-11700_2001
   e11900Mr5                               YSCH-11900~M_2001
   e11900Yr5                               YSCH-11900~Y_2001
   e13300r5                                YSCH-13300_2001
   e13500Mr5                               YSCH-13500~M_2001
   e13500Yr5                               YSCH-13500~Y_2001
   e13600r5                                YSCH-13600_2001
   e27337r5_1                              YSCH-27337.01_2001
   e27337r5_2                              YSCH-27337.02_2001
   e27337r5_3                              YSCH-27337.03_2001
   e27337r5_4                              YSCH-27337.04_2001
   e27337r5_5                              YSCH-27337.05_2001
   e27337r5_6                              YSCH-27337.06_2001
   e23450r5_1                              YSCH-23450.01_2001
   e23450r5_2                              YSCH-23450.02_2001
   e23450r5_3                              YSCH-23450.03_2001
   e23450r5_4                              YSCH-23450.04_2001
   e23450r5_5                              YSCH-23450.05_2001
   e23450r5_6                              YSCH-23450.06_2001
   t7000r5_1                               YTRN-7000.01_2001
   t7000r5_2                               YTRN-7000.02_2001
   t7000r5_3                               YTRN-7000.03_2001
   t7000r5_4                               YTRN-7000.04_2001
   e3112r6                                 YSCH-3112_2002
   e11700r6                                YSCH-11700_2002
   e11900Mr6                               YSCH-11900~M_2002
   e11900Yr6                               YSCH-11900~Y_2002
   e13300r6                                YSCH-13300_2002
   e13500Mr6                               YSCH-13500~M_2002
   e13500Yr6                               YSCH-13500~Y_2002
   e13600r6                                YSCH-13600_2002
   e27337r6_1                              YSCH-27337.01_2002
   e27337r6_2                              YSCH-27337.02_2002
   e27337r6_3                              YSCH-27337.03_2002
   e27337r6_4                              YSCH-27337.04_2002
   e27337r6_5                              YSCH-27337.05_2002
   e23450r6_1                              YSCH-23450.01_2002
   e23450r6_2                              YSCH-23450.02_2002
   e23450r6_3                              YSCH-23450.03_2002
   e23450r6_5                              YSCH-23450.05_2002
   t7000r6_1                               YTRN-7000.01_2002
   t7000r6_2                               YTRN-7000.02_2002
   t7000r6_3                               YTRN-7000.03_2002
   t7000r6_4                               YTRN-7000.04_2002
   t7000r6_5                               YTRN-7000.05_2002
   e3112r7                                 YSCH-3112_2003
   e3113r7                                 YSCH-3113_2003
   e11700r7                                YSCH-11700_2003
   e11900Mr7                               YSCH-11900~M_2003
   e11900Yr7                               YSCH-11900~Y_2003
   e13300r7                                YSCH-13300_2003
   e13500Mr7                               YSCH-13500~M_2003
   e13500Yr7                               YSCH-13500~Y_2003
   e13600r7                                YSCH-13600_2003
   e27337r7_1                              YSCH-27337.01_2003
   e27337r7_2                              YSCH-27337.02_2003
   e27337r7_3                              YSCH-27337.03_2003
   e27337r7_4                              YSCH-27337.04_2003
   e27337r7_5                              YSCH-27337.05_2003
   e23450r7_1                              YSCH-23450.01_2003
   e23450r7_2                              YSCH-23450.02_2003
   e23450r7_3                              YSCH-23450.03_2003
   t7000r7_1                               YTRN-7000.01_2003
   t7000r7_2                               YTRN-7000.02_2003
   t7000r7_3                               YTRN-7000.03_2003
   t7000r7_4                               YTRN-7000.04_2003
   t7000r7_5                               YTRN-7000.05_2003
   t7000r7_6                               YTRN-7000.06_2003
   t7000r7_7                               YTRN-7000.07_2003
   e3112r8                                 YSCH-3112_2004
   e3113r8                                 YSCH-3113_2004
   e11700r8                                YSCH-11700_2004
   e11900Mr8                               YSCH-11900~M_2004
   e11900Yr8                               YSCH-11900~Y_2004
   e13300r8                                YSCH-13300_2004
   e13500Mr8                               YSCH-13500~M_2004
   e13500Yr8                               YSCH-13500~Y_2004
   e13600r8                                YSCH-13600_2004
   e27337r8_1                              YSCH-27337.01_2004
   e27337r8_2                              YSCH-27337.02_2004
   e27337r8_3                              YSCH-27337.03_2004
   e27337r8_4                              YSCH-27337.04_2004
   e27337r8_5                              YSCH-27337.05_2004
   e23450r8_1                              YSCH-23450.01_2004
   e23450r8_2                              YSCH-23450.02_2004
   e23450r8_3                              YSCH-23450.03_2004
   t7000r8_1                               YTRN-7000.01_2004
   t7000r8_2                               YTRN-7000.02_2004
   t7000r8_3                               YTRN-7000.03_2004
   t7000r8_4                               YTRN-7000.04_2004
   t7000r8_5                               YTRN-7000.05_2004
   t7000r8_6                               YTRN-7000.06_2004
   t7000r8_7                               YTRN-7000.07_2004
   e3112r9                                 YSCH-3112_2005
   e3113r9                                 YSCH-3113_2005
   e11700r9                                YSCH-11700_2005
   e11900Mr9                               YSCH-11900~M_2005
   e11900Yr9                               YSCH-11900~Y_2005
   e13300r9                                YSCH-13300_2005
   e13500Mr9                               YSCH-13500~M_2005
   e13500Yr9                               YSCH-13500~Y_2005
   e13600r9                                YSCH-13600_2005
   e27337r9_1                              YSCH-27337.01_2005
   e27337r9_2                              YSCH-27337.02_2005
   e27337r9_3                              YSCH-27337.03_2005
   e27337r9_4                              YSCH-27337.04_2005
   e23450r9_1                              YSCH-23450.01_2005
   e23450r9_2                              YSCH-23450.02_2005
   e23450r9_3                              YSCH-23450.03_2005
   t7000r9_1                               YTRN-7000.01_2005
   t7000r9_2                               YTRN-7000.02_2005
   t7000r9_3                               YTRN-7000.03_2005
   t7000r9_4                               YTRN-7000.04_2005
   t7000r9_5                               YTRN-7000.05_2005
   t7000r9_6                               YTRN-7000.06_2005
   t7000r9_7                               YTRN-7000.07_2005
   t7000r9_8                               YTRN-7000.08_2005
   t7000r9_9                               YTRN-7000.09_2005
   e3112r10                                YSCH-3112_2006
   e3113r10                                YSCH-3113_2006
   e11700r10                               YSCH-11700_2006
   e11900Mr10                              YSCH-11900~M_2006
   e11900Yr10                              YSCH-11900~Y_2006
   e13300r10                               YSCH-13300_2006
   e13500Mr10                              YSCH-13500~M_2006
   e13500Yr10                              YSCH-13500~Y_2006
   e13600r10                               YSCH-13600_2006
   e27337r10_1                             YSCH-27337.01_2006
   e27337r10_2                             YSCH-27337.02_2006
   e27337r10_3                             YSCH-27337.03_2006
   e27337r10_4                             YSCH-27337.04_2006
   e27337r10_5                             YSCH-27337.05_2006
   e23450r10_1                             YSCH-23450.01_2006
   e23450r10_2                             YSCH-23450.02_2006
   e23450r10_3                             YSCH-23450.03_2006
   e23450r10_4                             YSCH-23450.04_2006
   e23450r10_5                             YSCH-23450.05_2006
   t7000r10_1                              YTRN-7000.01_2006
   t7000r10_2                              YTRN-7000.02_2006
   t7000r10_3                              YTRN-7000.03_2006
   t7000r10_4                              YTRN-7000.04_2006
   e3112r11                                YSCH-3112_2007
   e3113r11                                YSCH-3113_2007
   e11700r11                               YSCH-11700_2007
   e11900Mr11                              YSCH-11900~M_2007
   e11900Yr11                              YSCH-11900~Y_2007
   e13300r11                               YSCH-13300_2007
   e13500Mr11                              YSCH-13500~M_2007
   e13500Yr11                              YSCH-13500~Y_2007
   e13600r11                               YSCH-13600_2007
   e27337r11_1                             YSCH-27337.01_2007
   e27337r11_2                             YSCH-27337.02_2007
   e27337r11_3                             YSCH-27337.03_2007
   e27337r11_4                             YSCH-27337.04_2007
   e27337r11_5                             YSCH-27337.05_2007
   e23450r11_1                             YSCH-23450.01_2007
   e23450r11_2                             YSCH-23450.02_2007
   e23450r11_3                             YSCH-23450.03_2007
   t7000r11_1                              YTRN-7000.01_2007
   t7000r11_2                              YTRN-7000.02_2007
   t7000r11_3                              YTRN-7000.03_2007
   t7000r11_4                              YTRN-7000.04_2007
   t7000r11_5                              YTRN-7000.05_2007
   t7000r11_6                              YTRN-7000.06_2007
   t7000r11_7                              YTRN-7000.07_2007
   t7000r11_8                              YTRN-7000.08_2007
   e3112r12                                YSCH-3112_2008
   e3113r12                                YSCH-3113_2008
   e11700r12                               YSCH-11700_2008
   e11900Mr12                              YSCH-11900~M_2008
   e11900Yr12                              YSCH-11900~Y_2008
   e13300r12                               YSCH-13300_2008
   e13500Mr12                              YSCH-13500~M_2008
   e13500Yr12                              YSCH-13500~Y_2008
   e13600r12                               YSCH-13600_2008
   e27337r12_1                             YSCH-27337.01_2008
   e27337r12_2                             YSCH-27337.02_2008
   e27337r12_3                             YSCH-27337.03_2008
   e27337r12_4                             YSCH-27337.04_2008
   e27337r12_5                             YSCH-27337.05_2008
   e27337r12_6                             YSCH-27337.06_2008
   e27337r12_7                             YSCH-27337.07_2008
   e27337r12_8                             YSCH-27337.08_2008
   e23450r12_1                             YSCH-23450.01_2008
   e23450r12_2                             YSCH-23450.02_2008
   e23450r12_3                             YSCH-23450.03_2008
   t7000r12_1                              YTRN-7000.01_2008
   t7000r12_2                              YTRN-7000.02_2008
   t7000r12_3                              YTRN-7000.03_2008
   t7000r12_4                              YTRN-7000.04_2008
   t7000r12_5                              YTRN-7000.05_2008
   t7000r12_6                              YTRN-7000.06_2008
   VERSION_R13r13                          VERSION_R13_2009
   e3112r13                                YSCH-3112_2009
   e3113r13                                YSCH-3113_2009
   e11700r13                               YSCH-11700_2009
   e11900Mr13                              YSCH-11900~M_2009
   e11900Yr13                              YSCH-11900~Y_2009
   e13300r13                               YSCH-13300_2009
   e13500Mr13                              YSCH-13500~M_2009
   e13500Yr13                              YSCH-13500~Y_2009
   e13600r13                               YSCH-13600_2009
   e27337r13_1                             YSCH-27337.01_2009
   e27337r13_2                             YSCH-27337.02_2009
   e27337r13_3                             YSCH-27337.03_2009
   e23450r13_1                             YSCH-23450.01_2009
   e23450r13_2                             YSCH-23450.02_2009
   e23450r13_3                             YSCH-23450.03_2009
   t7000r13_1                              YTRN-7000.01_2009
   t7000r13_2                              YTRN-7000.02_2009
   t7000r13_3                              YTRN-7000.03_2009
   t7000r13_4                              YTRN-7000.04_2009
   t7000r13_5                              YTRN-7000.05_2009
   t7000r13_6                              YTRN-7000.06_2009
   encatr1                                 CV_ENROLLSTAT_1997
   gdr1                                    CV_GED_1997
   hdgr1                                   CV_HIGHEST_DEGREE_EVER_1997
   hsr1                                    CV_HS_DIPLOMA_1997
   doicmr1                                 CV_INTERVIEW_CMONTH_1997
   intdr1                                  CV_INTERVIEW_DATE_D_1997
   intmr1                                  CV_INTERVIEW_DATE_M_1997
   intyr1                                  CV_INTERVIEW_DATE_Y_1997
   scodeR2_2                               NEWSCHOOL_SCHCODE.01_1998
   scodeR2_1                               NEWSCHOOL_SCHCODE.02_1998
   scodeR2_3                               NEWSCHOOL_SCHCODE.03_1998
   scodeR2_4                               NEWSCHOOL_SCHCODE.04_1998
   scodeR2_5                               NEWSCHOOL_SCHCODE.05_1998
   scodeR2_6                               NEWSCHOOL_SCHCODE.06_1998
   schidR2_1                               NEWSCHOOL_PUBID.01_1998
   schidR2_2                               NEWSCHOOL_PUBID.02_1998
   schidR2_3                               NEWSCHOOL_PUBID.03_1998
   schidR2_4                               NEWSCHOOL_PUBID.04_1998
   schidR2_5                               NEWSCHOOL_PUBID.05_1998
   schidR2_6                               NEWSCHOOL_PUBID.06_1998
   encatr2                                 CV_ENROLLSTAT_EDT_1998
   gdr2                                    CV_GED_1998
   hdgr2                                   CV_HIGHEST_DEGREE_EVER_EDT_1998
   hdgYr2                                  CV_HIGHEST_DEGREE_9899_1998
   hsr2                                    CV_HS_DIPLOMA_1998
   doicmr2                                 CV_INTERVIEW_CMONTH_1998
   intdr2                                  CV_INTERVIEW_DATE~D_1998
   intmr2                                  CV_INTERVIEW_DATE~M_1998
   intyr2                                  CV_INTERVIEW_DATE~Y_1998
   lftscR2_1                               NEWSCHOOL_LEFT.01_1998
   lftscR2_2                               NEWSCHOOL_LEFT.02_1998
   lftscR2_3                               NEWSCHOOL_LEFT.03_1998
   lftscR2_4                               NEWSCHOOL_LEFT.04_1998
   lftscR2_5                               NEWSCHOOL_LEFT.05_1998
   lftscR2_6                               NEWSCHOOL_LEFT.06_1998
   lftscR1_1                               NEWSCHOOL_LEFT_1997
   SCODEr1_1                               NEWSCHOOL_SCHCODE_1997
   schIDr1_1                               NEWSCHOOL_PUBID_1997
   scodeR3_1                               NEWSCHOOL_SCHCODE.01_1999
   scodeR3_2                               NEWSCHOOL_SCHCODE.02_1999
   scodeR3_3                               NEWSCHOOL_SCHCODE.03_1999
   scodeR3_4                               NEWSCHOOL_SCHCODE.04_1999
   scodeR3_5                               NEWSCHOOL_SCHCODE.05_1999
   scodeR3_6                               NEWSCHOOL_SCHCODE.06_1999
   scodeR3_7                               NEWSCHOOL_SCHCODE.07_1999
   schidR3_1                               NEWSCHOOL_PUBID.01_1999
   schidR3_2                               NEWSCHOOL_PUBID.02_1999
   schidR3_3                               NEWSCHOOL_PUBID.03_1999
   schidR3_4                               NEWSCHOOL_PUBID.04_1999
   schidR3_5                               NEWSCHOOL_PUBID.05_1999
   schidR3_6                               NEWSCHOOL_PUBID.06_1999
   schidR3_7                               NEWSCHOOL_PUBID.07_1999
   encatr3                                 CV_ENROLLSTAT_EDT_1999
   gdr3                                    CV_GED_1999
   hdgr3                                   CV_HIGHEST_DEGREE_EVER_EDT_1999
   hdgYr3                                  CV_HIGHEST_DEGREE_9900_1999
   hsr3                                    CV_HS_DIPLOMA_1999
   aar3                                    CV_AA_DEGREE_1999
   doicmr3                                 CV_INTERVIEW_CMONTH_1999
   intdr3                                  CV_INTERVIEW_DATE~D_1999
   intmr3                                  CV_INTERVIEW_DATE~M_1999
   intyr3                                  CV_INTERVIEW_DATE~Y_1999
   lftscR3_1                               NEWSCHOOL_LEFT.01_1999
   lftscR3_2                               NEWSCHOOL_LEFT.02_1999
   lftscR3_3                               NEWSCHOOL_LEFT.03_1999
   lftscR3_4                               NEWSCHOOL_LEFT.04_1999
   lftscR3_5                               NEWSCHOOL_LEFT.05_1999
   lftscR3_6                               NEWSCHOOL_LEFT.06_1999
   lftscR3_7                               NEWSCHOOL_LEFT.07_1999
   lftsc2R3_1                              NEWSCHOOL_LEFT2.01_1999
   lftsc2R3_2                              NEWSCHOOL_LEFT2.02_1999
   lftscR4_1                               NEWSCHOOL_LEFT.01_2000
   lftscR4_2                               NEWSCHOOL_LEFT.02_2000
   lftscR4_3                               NEWSCHOOL_LEFT.03_2000
   lftscR4_4                               NEWSCHOOL_LEFT.04_2000
   lftscR4_5                               NEWSCHOOL_LEFT.05_2000
   scodeR4_1                               NEWSCHOOL_SCHCODE.01_2000
   scodeR4_2                               NEWSCHOOL_SCHCODE.02_2000
   scodeR4_3                               NEWSCHOOL_SCHCODE.03_2000
   scodeR4_4                               NEWSCHOOL_SCHCODE.04_2000
   scodeR4_5                               NEWSCHOOL_SCHCODE.05_2000
   schidR4_1                               NEWSCHOOL_PUBID.01_2000
   schidR4_2                               NEWSCHOOL_PUBID.02_2000
   schidR4_3                               NEWSCHOOL_PUBID.03_2000
   schidR4_4                               NEWSCHOOL_PUBID.04_2000
   schidR4_5                               NEWSCHOOL_PUBID.05_2000
   encatr4                                 CV_ENROLLSTAT_EDT_2000
   gdr4                                    CV_GED_2000
   hdgr4                                   CV_HIGHEST_DEGREE_EVER_EDT_2000
   hdgYr4                                  CV_HIGHEST_DEGREE_0001_2000
   hsr4                                    CV_HS_DIPLOMA_2000
   aar4                                    CV_AA_DEGREE_2000
   bar4                                    CV_BA_DEGREE_2000
   doicmr4                                 CV_INTERVIEW_CMONTH_2000
   intdr4                                  CV_INTERVIEW_DATE~D_2000
   intmr4                                  CV_INTERVIEW_DATE~M_2000
   intyr4                                  CV_INTERVIEW_DATE~Y_2000
   lftsc2R4_1                              NEWSCHOOL_LEFT2.01_2000
   lftsc2R4_2                              NEWSCHOOL_LEFT2.02_2000
   lftscR5_1                               NEWSCHOOL_LEFT.01_2001
   lftscR5_2                               NEWSCHOOL_LEFT.02_2001
   lftscR5_3                               NEWSCHOOL_LEFT.03_2001
   lftscR5_4                               NEWSCHOOL_LEFT.04_2001
   lftscR5_5                               NEWSCHOOL_LEFT.05_2001
   lftscR5_6                               NEWSCHOOL_LEFT.06_2001
   scodeR5_1                               NEWSCHOOL_SCHCODE.01_2001
   scodeR5_2                               NEWSCHOOL_SCHCODE.02_2001
   scodeR5_3                               NEWSCHOOL_SCHCODE.03_2001
   scodeR5_4                               NEWSCHOOL_SCHCODE.04_2001
   scodeR5_5                               NEWSCHOOL_SCHCODE.05_2001
   scodeR5_6                               NEWSCHOOL_SCHCODE.06_2001
   schidR5_1                               NEWSCHOOL_PUBID.01_2001
   schidR5_2                               NEWSCHOOL_PUBID.02_2001
   schidR5_3                               NEWSCHOOL_PUBID.03_2001
   schidR5_4                               NEWSCHOOL_PUBID.04_2001
   schidR5_5                               NEWSCHOOL_PUBID.05_2001
   schidR5_6                               NEWSCHOOL_PUBID.06_2001
   encatr5                                 CV_ENROLLSTAT_EDT_2001
   gdr5                                    CV_GED_2001
   hdgr5                                   CV_HIGHEST_DEGREE_EVER_EDT_2001
   hdgYr5                                  CV_HIGHEST_DEGREE_0102_2001
   hsr5                                    CV_HS_DIPLOMA_2001
   aar5                                    CV_AA_DEGREE_2001
   bar5                                    CV_BA_DEGREE_2001
   doicmr5                                 CV_INTERVIEW_CMONTH_2001
   intdr5                                  CV_INTERVIEW_DATE~D_2001
   intmr5                                  CV_INTERVIEW_DATE~M_2001
   intyr5                                  CV_INTERVIEW_DATE~Y_2001
   lftsc2R5_2                              NEWSCHOOL_LEFT2.02_2001
   lftsc2R5_3                              NEWSCHOOL_LEFT2.03_2001
   lftsc2R2_2                              NEWSCHOOL_LEFT2.02_1998
   lftsc2R2_3                              NEWSCHOOL_LEFT2.03_1998
   lftsc2R2_4                              NEWSCHOOL_LEFT2.04_1998
   lftscR6_1                               NEWSCHOOL_LEFT.01_2002
   lftscR6_2                               NEWSCHOOL_LEFT.02_2002
   lftscR6_3                               NEWSCHOOL_LEFT.03_2002
   lftscR6_4                               NEWSCHOOL_LEFT.04_2002
   schidR6_1                               NEWSCHOOL_PUBID.01_2002
   schidR6_2                               NEWSCHOOL_PUBID.02_2002
   schidR6_3                               NEWSCHOOL_PUBID.03_2002
   schidR6_4                               NEWSCHOOL_PUBID.04_2002
   scodeR6_1                               NEWSCHOOL_SCHCODE.01_2002
   scodeR6_2                               NEWSCHOOL_SCHCODE.02_2002
   scodeR6_3                               NEWSCHOOL_SCHCODE.03_2002
   scodeR6_4                               NEWSCHOOL_SCHCODE.04_2002
   encatr6                                 CV_ENROLLSTAT_EDT_2002
   gdr6                                    CV_GED_2002
   hdgr6                                   CV_HIGHEST_DEGREE_EVER_EDT_2002
   hdgYr6                                  CV_HIGHEST_DEGREE_0203_2002
   hsr6                                    CV_HS_DIPLOMA_2002
   aar6                                    CV_AA_DEGREE_2002
   bar6                                    CV_BA_DEGREE_2002
   doicmr6                                 CV_INTERVIEW_CMONTH_2002
   intdr6                                  CV_INTERVIEW_DATE~D_2002
   intmr6                                  CV_INTERVIEW_DATE~M_2002
   intyr6                                  CV_INTERVIEW_DATE~Y_2002
   mar6                                    CV_MA_DEGREE_2002
   encatr7                                 CV_ENROLLSTAT_EDT_2003
   gdr7                                    CV_GED_2003
   hdgr7                                   CV_HIGHEST_DEGREE_EVER_EDT_2003
   hdgYr7                                  CV_HIGHEST_DEGREE_0304_2003
   hsr7                                    CV_HS_DIPLOMA_2003
   aar7                                    CV_AA_DEGREE_2003
   bar7                                    CV_BA_DEGREE_2003
   doicmr7                                 CV_INTERVIEW_CMONTH_2003
   intdr7                                  CV_INTERVIEW_DATE~D_2003
   intmr7                                  CV_INTERVIEW_DATE~M_2003
   intyr7                                  CV_INTERVIEW_DATE~Y_2003
   mar7                                    CV_MA_DEGREE_2003
   lftscR7_1                               NEWSCHOOL_LEFT.01_2003
   lftscR7_2                               NEWSCHOOL_LEFT.02_2003
   lftscR7_3                               NEWSCHOOL_LEFT.03_2003
   lftscR7_5                               NEWSCHOOL_LEFT.05_2003
   schidR7_1                               NEWSCHOOL_PUBID.01_2003
   schidR7_2                               NEWSCHOOL_PUBID.02_2003
   schidR7_3                               NEWSCHOOL_PUBID.03_2003
   schidR7_4                               NEWSCHOOL_PUBID.04_2003
   schidR7_5                               NEWSCHOOL_PUBID.05_2003
   scodeR7_1                               NEWSCHOOL_SCHCODE.01_2003
   scodeR7_2                               NEWSCHOOL_SCHCODE.02_2003
   scodeR7_3                               NEWSCHOOL_SCHCODE.03_2003
   scodeR7_4                               NEWSCHOOL_SCHCODE.04_2003
   scodeR7_5                               NEWSCHOOL_SCHCODE.05_2003
   encatr8                                 CV_ENROLLSTAT_EDT_2004
   gdr8                                    CV_GED_2004
   hdgr8                                   CV_HIGHEST_DEGREE_EVER_EDT_2004
   hdgYr8                                  CV_HIGHEST_DEGREE_0405_2004
   hsr8                                    CV_HS_DIPLOMA_2004
   aar8                                    CV_AA_DEGREE_2004
   bar8                                    CV_BA_DEGREE_2004
   doicmr8                                 CV_INTERVIEW_CMONTH_2004
   intdr8                                  CV_INTERVIEW_DATE~D_2004
   intmr8                                  CV_INTERVIEW_DATE~M_2004
   intyr8                                  CV_INTERVIEW_DATE~Y_2004
   mar8                                    CV_MA_DEGREE_2004
   lftscR8_1                               NEWSCHOOL_LEFT.01_2004
   lftscR8_2                               NEWSCHOOL_LEFT.02_2004
   lftscR8_3                               NEWSCHOOL_LEFT.03_2004
   lftscR8_4                               NEWSCHOOL_LEFT.04_2004
   lftscR8_5                               NEWSCHOOL_LEFT.05_2004
   scodeR8_1                               NEWSCHOOL_SCHCODE.01_2004
   scodeR8_2                               NEWSCHOOL_SCHCODE.02_2004
   scodeR8_3                               NEWSCHOOL_SCHCODE.03_2004
   scodeR8_4                               NEWSCHOOL_SCHCODE.04_2004
   scodeR8_5                               NEWSCHOOL_SCHCODE.05_2004
   schidR8_1                               NEWSCHOOL_PUBID.01_2004
   schidR8_2                               NEWSCHOOL_PUBID.02_2004
   schidR8_3                               NEWSCHOOL_PUBID.03_2004
   schidR8_4                               NEWSCHOOL_PUBID.04_2004
   schidR8_5                               NEWSCHOOL_PUBID.05_2004
   encatr9                                 CV_ENROLLSTAT_2005
   hdgr9                                   CV_HIGHEST_DEGREE_EVER_EDT_2005
   hdgYr9                                  CV_HIGHEST_DEGREE_0506_2005
   doicmr9                                 CV_INTERVIEW_CMONTH_2005
   intdr9                                  CV_INTERVIEW_DATE~D_2005
   intmr9                                  CV_INTERVIEW_DATE~M_2005
   intyr9                                  CV_INTERVIEW_DATE~Y_2005
   lftscR9_1                               NEWSCHOOL_LEFT.01_2005
   lftscR9_2                               NEWSCHOOL_LEFT.02_2005
   lftscR9_3                               NEWSCHOOL_LEFT.03_2005
   lftscR9_4                               NEWSCHOOL_LEFT.04_2005
   scodeR9_1                               NEWSCHOOL_SCHCODE.01_2005
   scodeR9_2                               NEWSCHOOL_SCHCODE.02_2005
   scodeR9_3                               NEWSCHOOL_SCHCODE.03_2005
   scodeR9_4                               NEWSCHOOL_SCHCODE.04_2005
   schidR9_1                               NEWSCHOOL_PUBID.01_2005
   schidR9_2                               NEWSCHOOL_PUBID.02_2005
   schidR9_3                               NEWSCHOOL_PUBID.03_2005
   schidR9_4                               NEWSCHOOL_PUBID.04_2005
   encatr10                                CV_ENROLLSTAT_2006
   hdgr10                                  CV_HIGHEST_DEGREE_EVER_EDT_2006
   hdgYr10                                 CV_HIGHEST_DEGREE_0607_2006
   doicmr10                                CV_INTERVIEW_CMONTH_2006
   intdr10                                 CV_INTERVIEW_DATE~D_2006
   intmr10                                 CV_INTERVIEW_DATE~M_2006
   intyr10                                 CV_INTERVIEW_DATE~Y_2006
   lftscR10_1                              NEWSCHOOL_LEFT.01_2006
   lftscR10_2                              NEWSCHOOL_LEFT.02_2006
   lftscR10_3                              NEWSCHOOL_LEFT.03_2006
   lftscR10_4                              NEWSCHOOL_LEFT.04_2006
   lftscR10_5                              NEWSCHOOL_LEFT.05_2006
   scodeR10_1                              NEWSCHOOL_SCHCODE.01_2006
   scodeR10_2                              NEWSCHOOL_SCHCODE.02_2006
   scodeR10_3                              NEWSCHOOL_SCHCODE.03_2006
   scodeR10_4                              NEWSCHOOL_SCHCODE.04_2006
   scodeR10_5                              NEWSCHOOL_SCHCODE.05_2006
   schidR10_1                              NEWSCHOOL_PUBID.01_2006
   schidR10_2                              NEWSCHOOL_PUBID.02_2006
   schidR10_3                              NEWSCHOOL_PUBID.03_2006
   schidR10_4                              NEWSCHOOL_PUBID.04_2006
   schidR10_5                              NEWSCHOOL_PUBID.05_2006
   encatr11                                CV_ENROLLSTAT_2007
   hdgr11                                  CV_HIGHEST_DEGREE_EVER_EDT_2007
   hdgYr11                                 CV_HIGHEST_DEGREE_0708_2007
   doicmr11                                CV_INTERVIEW_CMONTH_2007
   intdr11                                 CV_INTERVIEW_DATE~D_2007
   intmr11                                 CV_INTERVIEW_DATE~M_2007
   intyr11                                 CV_INTERVIEW_DATE~Y_2007
   lftscR11_1                              NEWSCHOOL_LEFT.01_2007
   lftscR11_2                              NEWSCHOOL_LEFT.02_2007
   lftscR11_3                              NEWSCHOOL_LEFT.03_2007
   lftscR11_4                              NEWSCHOOL_LEFT.04_2007
   scodeR11_1                              NEWSCHOOL_SCHCODE.01_2007
   scodeR11_2                              NEWSCHOOL_SCHCODE.02_2007
   scodeR11_3                              NEWSCHOOL_SCHCODE.03_2007
   scodeR11_4                              NEWSCHOOL_SCHCODE.04_2007
   scodeR11_5                              NEWSCHOOL_SCHCODE.05_2007
   schidR11_1                              NEWSCHOOL_PUBID.01_2007
   schidR11_2                              NEWSCHOOL_PUBID.02_2007
   schidR11_3                              NEWSCHOOL_PUBID.03_2007
   schidR11_4                              NEWSCHOOL_PUBID.04_2007
   schidR11_5                              NEWSCHOOL_PUBID.05_2007
   encatr12                                CV_ENROLLSTAT_2008
   hdgr12                                  CV_HIGHEST_DEGREE_EVER_EDT_2008
   hdgYr12                                 CV_HIGHEST_DEGREE_0809_2008
   doicmr12                                CV_INTERVIEW_CMONTH_2008
   intdr12                                 CV_INTERVIEW_DATE~D_2008
   intmr12                                 CV_INTERVIEW_DATE~M_2008
   intyr12                                 CV_INTERVIEW_DATE~Y_2008
   lftscR12_1                              NEWSCHOOL_LEFT.01_2008
   lftscR12_2                              NEWSCHOOL_LEFT.02_2008
   lftscR12_3                              NEWSCHOOL_LEFT.03_2008
   lftscR12_4                              NEWSCHOOL_LEFT.04_2008
   lftscR12_5                              NEWSCHOOL_LEFT.05_2008
   lftscR12_6                              NEWSCHOOL_LEFT.06_2008
   lftscR12_7                              NEWSCHOOL_LEFT.07_2008
   scodeR12_1                              NEWSCHOOL_SCHCODE.01_2008
   scodeR12_2                              NEWSCHOOL_SCHCODE.02_2008
   scodeR12_3                              NEWSCHOOL_SCHCODE.03_2008
   scodeR12_4                              NEWSCHOOL_SCHCODE.04_2008
   scodeR12_5                              NEWSCHOOL_SCHCODE.05_2008
   scodeR12_6                              NEWSCHOOL_SCHCODE.06_2008
   scodeR12_7                              NEWSCHOOL_SCHCODE.07_2008
   scodeR12_8                              NEWSCHOOL_SCHCODE.08_2008
   schidR12_1                              NEWSCHOOL_PUBID.01_2008
   schidR12_2                              NEWSCHOOL_PUBID.02_2008
   schidR12_3                              NEWSCHOOL_PUBID.03_2008
   schidR12_4                              NEWSCHOOL_PUBID.04_2008
   schidR12_5                              NEWSCHOOL_PUBID.05_2008
   schidR12_6                              NEWSCHOOL_PUBID.06_2008
   schidR12_7                              NEWSCHOOL_PUBID.07_2008
   schidR12_8                              NEWSCHOOL_PUBID.08_2008
   VERSION_R13_r13                         VERSION_R13_2009
   encatr13                                CV_ENROLLSTAT_2009
   hdgr13                                  CV_HIGHEST_DEGREE_EVER_EDT_2009
   hdgYr13                                 CV_HIGHEST_DEGREE_0910_2009
   doicmr13                                CV_INTERVIEW_CMONTH_2009
   intdr13                                 CV_INTERVIEW_DATE~D_2009
   intmr13                                 CV_INTERVIEW_DATE~M_2009
   intyr13                                 CV_INTERVIEW_DATE~Y_2009
   lftscR13_1                              NEWSCHOOL_LEFT.01_2009
   lftscR13_2                              NEWSCHOOL_LEFT.02_2009
   lftscR13_3                              NEWSCHOOL_LEFT.03_2009
   scodeR13_1                              NEWSCHOOL_SCHCODE.01_2009
   scodeR13_2                              NEWSCHOOL_SCHCODE.02_2009
   scodeR13_3                              NEWSCHOOL_SCHCODE.03_2009
   schidR13_1                              NEWSCHOOL_PUBID.01_2009
   schidR13_2                              NEWSCHOOL_PUBID.02_2009
   schidR13_3                              NEWSCHOOL_PUBID.03_2009
   CVC_HIGHEST_DEGREE_EVER_r9_XRND         CVC_HIGHEST_DEGREE_EVER_2005_XRND
   gdr9                                    CVC_GED_2005_XRND
   hsr9                                    CVC_HS_DIPLOMA_2005_XRND
   aar9                                    CVC_AA_DEGREE_2005_XRND
   bar9                                    CVC_BA_DEGREE_2005_XRND
   pfr9                                    CVC_PROF_DEGREE_2005_XRND
   mar9                                    CVC_MA_DEGREE_2005_XRND
   CVC_HIGHEST_DEGREE_EVER_r10_XRND        CVC_HIGHEST_DEGREE_EVER_2006_XRND
   gdr10                                   CVC_GED_2006_XRND
   hsr10                                   CVC_HS_DIPLOMA_2006_XRND
   aar10                                   CVC_AA_DEGREE_2006_XRND
   bar10                                   CVC_BA_DEGREE_2006_XRND
   pfr10                                   CVC_PROF_DEGREE_2006_XRND
   dcr10                                   CVC_PHD_DEGREE_2006_XRND
   mar10                                   CVC_MA_DEGREE_2006_XRND
   CVC_HIGHEST_DEGREE_EVER_r11_XRND        CVC_HIGHEST_DEGREE_EVER_2007_XRND
   gdr11                                   CVC_GED_2007_XRND
   hsr11                                   CVC_HS_DIPLOMA_2007_XRND
   aar11                                   CVC_AA_DEGREE_2007_XRND
   bar11                                   CVC_BA_DEGREE_2007_XRND
   pfr11                                   CVC_PROF_DEGREE_2007_XRND
   dcr11                                   CVC_PHD_DEGREE_2007_XRND
   mar11                                   CVC_MA_DEGREE_2007_XRND
   HGCr13                                  CVC_HGC_EVER_XRND
   CVC_HIGHEST_DEGREE_EVER_XRND            CVC_HIGHEST_DEGREE_EVER_XRND
   gdr13                                   CVC_GED_XRND
   hsr13                                   CVC_HS_DIPLOMA_XRND
   aar13                                   CVC_AA_DEGREE_XRND
   bar13                                   CVC_BA_DEGREE_XRND
   pfr13                                   CVC_PROF_DEGREE_XRND
   dcr13                                   CVC_PHD_DEGREE_XRND
   mar13                                   CVC_MA_DEGREE_XRND

SAS Code for Variable Creation

***** some fixes;
 if pubid= 1154 then do;
  scoder14_1=5;
  schintr14_1=5;
  schidr14_1=501;
 end;
 if pubid= 8233 then do;
  scoder14_1=4;
  schintr14_1=11;
  schidr14_1=1101;
 end;
 if pubid=1252 then do;
  stopmr14_31=11;
  stopyr14_31=2010;
 end;
 if pubid=7524 then do;
  stopmr14_21=3;
  stopyr14_21=2011;
 end;
 if pubid=8141 then do;
  stopmr14_32=stopmr14_23; stopmr14_23=.;
  stopyr14_32=stopyr14_23; stopyr14_23=.;
 end;

********************************************** 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);

attsch=0;     * Indicates if R attended elementary, middle or high school;

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;

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

prevcoll=0;   * Indicates if Rs have 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 have 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;

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;

rosprb3=0;    * Indicates cases where start and stop dates of enrollment and school codes are missing
                from Roster although information is available in the data;
 
rosprb4=0;    * Indicates cases wherer stop dates of enrollment in the Roster is not the date of current
                interview although R reports being continuously enrolled in that school;

rosprb5=0;    * Indicates a few special cases where the reason for leaving school were interchanged
                between school loops 1 and 2;

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

chk_comm=0;   * Indicates if R 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.;

chk_hgc=0;    * Those who received a H.S. Diploma, but report HGA<=12 & HGC<12;

chk_grmon=0; * Indicate cases where GRSURV is coded with the GRSURV at DLI, i.e., grsurvP. In these
                cases we must check whether that grade was completed by June of 2004 to ensure that
                coding GRMON also by grsurvP is correct.;

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.;

 **************************************************************
 ** 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                 **
 **************************************************************;

MONYR=368;
YEAR=2010;
MONTH=8;
doicm_LR=doicmr13;

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

array scode  (*) scoder14_1-scoder14_5;
array e27337 (*) e27337r14_1-e27337r14_5;
array e23450 (*) e23450r14_1-e23450r14_5;

array strtm  (*) strtmr14_11-strtmr14_15 strtmr14_21-strtmr14_23 strtmr14_31-STRTMr14_32;
array strty  (*) strtyr14_11-strtyr14_15 strtyr14_21-strtyr14_23 strtyr14_31-STRTYr14_32;
array stopm  (*) stopmr14_11-stopmr14_15 stopmr14_21-stopmr14_23 stopmr14_31-STOPMr14_32;
array stopy  (*) stopyr14_11-stopyr14_15 stopyr14_21-stopyr14_23 stopyr14_31-STOPYr14_32;
array degre  (*) e27337r14_1-e27337r14_5 e27337r14_1-e27337r14_3 e27337r14_1-e27337r14_2;
array codes  (*) scoder14_1-scoder14_5   scoder14_1-scoder14_3 scoder14_1-scoder14_2;
array reasn  (*) lftscr14_1-lftscr14_5   lftscr14_1-lftscr14_3 lftscr14_1-lftscr14_2;

array strcm  (*) strcm11-strcm15 strcm21-strcm23 strcm31-strcm32;
array stpcm  (*) stpcm11-stpcm15 stpcm21-stpcm23 stpcm31-stpcm32;

* Grades attended;
array gratnd   (*)  e8416r14_11-e8416r14_13
                    e8416r14_21
                    e8416r14_31;
                    
array e6784 (*) e6784r14_1 e6784r14_1-e6784r14_4;
array e6938 (*) e6938r14_1 e6938r14_1-e6938r14_3 dum;
array e7192 (*) e7192r14_1 e7192r14_1-e7192r14_4;
array e7142 (*) e7142r14_11 e7142r14_12 e7142r14_21 e7142r14_31 dum;
array e6943 (*) e6943r14_11 e6943r14_12 e6943r14_21 dum dum;

array doicmR   (*) doicmr1-doicmr13;
array encatR   (*) encatr1-encatr13;
array enrollR  (*) enrollr1-enrollr13;
array graugR   (*) hgcr1 hgcYr2-hgcYr13;
array grsurvR  (*) hgcr1-hgcr12 cvc_hgcr13;
array hgaR     (*) e3500r1 e2857r2-e2857r13;
array hgcR     (*) e5000r1 e3112r2-e3112r13;
array gdR      (*) gdr1-gdr13;
array hsR      (*) hsr1-hsr13;
array locaR    (*) dum locar2-locar13;
array chk31R   (*) chk31r1-chk31r13;
array chk32R   (*) chk32r1-chk32r13;

array scoder  [13,8] scoder1_1-scoder1_2 dum dum dum dum dum dum
                    scoder2_1-scoder2_6 dum dum
                    scoder3_1-scoder3_7 dum
                    scoder4_1-scoder4_5 dum dum dum
                    scoder5_1-scoder5_6 dum dum
                    scoder6_1-scoder6_5 dum dum dum
                    scoder7_1-scoder7_5 dum dum dum
                    scoder8_1-scoder8_5 dum dum dum
                    scoder9_1-scoder9_4 dum dum dum dum
                    scoder10_1-scoder10_5 dum dum dum
                    scoder11_1-scoder11_5 dum dum dum
                    scoder12_1-scoder12_8
                    scoder13_1-scoder13_3 dum dum dum dum dum;
                    
array degR (*) hdgr1-hdgr12 cvc_hdgr13;
 
*** initiate the cvc_ variables;
if e3112r14=-5 then do;
  grsurv=cvc_hgcr13;
  degsurv=cvc_hdgr13;
end;

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

doicmr14=-5;
if intyr14 ne -5 then doicmr14=(intyr14-1980)*12+intmr14;

if doicmr14~=-5 then doicm=doicmr14;

if CDTGD>-4 then GED=1;
if CDTHS>-4 then HSD=1;
if HSD=1 & GED=1 then both=1;

* Compute dlicm and dli_rnd;
do j=1 to dim(doicmR);
   if doicmR(j)~=-5 then do;
      dlicm=doicmR(j);
      dli_rnd=j;
      do k=1 to 8;
         if scoder(j,k) in (4,5) then ever_24yrinst=1;
      end;
   end;
end;
hsrp=hsr13; gdrp=gdr13;
if HSD=0 & hsrP>-4 then hsrP=-4;
if GED=0 & gdrP>-4 then gdrP=-4;

* Enrollment status at each interview and ENCAT at last interview;
do i=1 to dim(doicmR);
   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 encatR(i)~=-5 then enrollP=enrollR(i);
   if enrollR(i)=1 then last_enr=i;
   if hgaR(i) not in (-4, -5) then hgaP=hgaR(i);
end;

** Create variable indicating HGC by DLI;
do i=1 to dim(graugR);
   if graugR(i)>-5  then graugP=graugR(i);
   if locaR(i)>-5 then locaP=locaR(i);
end;

grsurvP=cvc_hgcr13;
grsurvP_no3061=grsurvP;
if e3061r14>0 & GED=0 then grsurvP=e3061r14;
if e3061r14>0 & GED=1 & e3061r14~=12 then grsurvP=e3061r14;

if 0<grsurvP<graugP<95 then graugP=grsurvP;

degsurvP=cvc_hdgr13;

** 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;

** Data and quex problems w/ roster information;
rosprb1=0; rosprb2=0;
do i=1 to dim(scode);
   if scode(i) in (4,5,6) & e27337(i)=-4 then rosprb1=1;
   if scode(i)=-4 & e27337(i)>-4 then rosprb2=1;
   if scode(i) in (-2,-3) then INV1=1;
   if scode(i) in (4,5,6) & e27337(i) in (-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;

* Last regular school enrolled in, its start and stop date of enrollmnet, type of school and degree
  working towards & school loop number;
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,6) & 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,6) & 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,6) & 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) in (5,6) & 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)=6 & sch=5 & 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) in (5,6) & sch in (5,6) & 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,6) & 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;
   if stpcm(i)=STOP & STOP=doicm & 0<STRT<strcm(i)
   &  codes(i) in (4,5,6) & sch in (4,5,6)
   &  degre(i) in (1,3,4,5,6,10) & deg not in (1,3,4,5,6,10) then do;
      STRT=strcm(i);
      sch=codes(i);
      deg=degre(i);
      rosnum=i;
      STOP_loc=8;
   end;
end;
* dual enrollment - R is enrolled in a high school and college simultaneously.;
do i=1 to dim(degre);
   if stpcm(i)=STOP & codes(i) in (1,2,3) & sch in (4,5,6) & HSD=0 & GED=0 then do;
      STOP=stpcm(i);
      STRT=strcm(i);
      sch=codes(i);
      deg=degre(i);
      rosnum=i;
      STOP_loc=9;
   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;

if sch in (-1,-2,-3) then lastsch=-3;
if sch in (1,2,3) then lastsch=1;
if sch in (4,5,6) and deg in (1,3,4,5,6,10) then lastsch=2;
if sch in (4,5,6) and deg in (2,7,8,999) then lastsch=2.1;
if sch in (4,5,6) and deg=9 then lastsch=2.2;
if sch in (4,5,6) and deg in (-1,-2,-3) then lastsch=2.3;
if sch in (4,5,6) and deg=-4 then lastsch=2.4;

* - When R attended college (in a degree program) in a previous round;
do i=1 to dim(encatR);
   if encatR(i) in (4,5,6,7,9,10,11) & degR(i)>=1 then prevcoll=1;
   if encatR(i) in (4,5,6,7,9,10,11) & degR(i)<1 then do;
      prevcoll=1;
      chk_commP=1;
      if hsr13>-4|gdr13>-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 (e2806r14=-4|e2806r14>=13) & encatR(i) in (4,5,6,7,9,10,11) & (hsR(i)>-4|gdR(i)>-4) then prevcoll=1;
   if (e2806r14=-4|e2806r14>=13) & encatR(i) in (4,5,6,7,9,10,11) & hsR(i)=-4 & gdR(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;

* - When R attended college (in a degree program) in this round;
do i=1 to dim(scode);
   if scode(i) in (4,5,6) & 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;
 
* Grade information from loops;
hgaloop=e8416r14_11;
do i=2 to dim(gratnd);
   if gratnd(i)>hgaloop then do;
      hgaloop=gratnd(i);
   end;
end;
if (1<=e2857r14<=12) & HSD=0 & GED=0 then hgsch=1;

do i=1 to dim(scode);
   if scode(i) in (1,2,3) then attsch=1;
end;

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<=e2857r14<e3112r14<95 then hgc_hga=1;
if (0<=e2857r14<12) & e3112r14=12 then hgc_hga=2;
if 0<=e2857r14<=12<e3112r14<95 & hsd=0 & ged=0 then hgc_hga=3.1;
if 0<=e2857r14<=12<e3112r14<95 & (hsd=1|ged=1) then hgc_hga=3.2;
if 12<e2857r14<e3112r14<95 then hgc_hga=4;

********************************************************************************************************   
***                       (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 e3877A1r14=0 then ENROLL=0;
 
       do i=1 to dim(scode);
          if scode(i) in (4,5,6) then chk_enr2=0;
       end;
       if HSD=1 & ENROLL=1 & chk_enr2 ne 0 then do;
          chk_enr2=1;
          ENROLL=0;
       end;

*** ENRollx;
    if e3877A1r14=0 then enrollx=0;
    if e4795r14=1 & e4951r14=0 then enrollx=1;

    if e4795r14=0 then do;
       if e1605r14=-4 & e4951r14=0 then enrollx=0;
       if e1605r14=1 then do;
          if e1615r14_1=1 & e4951r14=0 then enrollx=1;
          if e1615r14_1=0 & e1627r14_1=0 & e4951r14=0 then enrollx=0;
       end;
       if e1605r14=0 and e4951r14=0 then enrollx=0;
    end;
    if (e4951r14=1 or e3877A1r14=1) then do;
       do i=1 to dim(e6784);
          if e6784(i)=1 & e7192(i)=0 then enrollx=1;
       end;
       do i=1 to dim(e6784);
         if e6938(i)=0 & e7192(i)=0 then enrollx=0;
       end;
       do i=1 to dim(e6784);
          if e6784(i)=0 & e7192(i)=0 then do;
             if e6943(i)=1 then enrollx=1;
          end;
       end;
       do i=1 to dim(e6784);
          if e7142(i)=0 & e7192(i)=0 then enrollx=0;
       end;
    end;

*** change "enroll" after going through the cases where "enroll" disagrees with "enrollx";

    oldenroll=enroll;

  if oldenroll=0 & enrollx=1 & diff=10000 & rosnum>3 then enroll=1;
  if pubid in (1154 3890 8233 1252 7524) then enroll=1;

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

    if ENROLL=0 then do;
       if (GED<=0) & (HSD<=0) then ENCAT=1;
       if GED=1 then ENCAT=2;
       if HSD=1 then ENCAT=3;
       if prevcoll=1 then ENCAT=4;
       if currcoll=1 & ((13<=e2857r14<=20)|e3112r14>=12|HSD=1|GED=1|clg_ok=1) then ENCAT=4;
       if CDTAA>-4 then ENCAT=5;
       if CDTBA>-4 then ENCAT=6;
       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 & e3112r14=12 then flaghs=1;
          if (1<=e2857r14<=12) & HSD<=0 & GED<=0 then ENCAT=8;
          if e2857r14=13 & HSD=0 & GED=0 then ENCAT=8;
          if e2857r14=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<=e2857r14<95)|e3112r14>=12|GED=1|HSD=1|clg_ok=1)
          then ENCAT=9;
          if sch=5 & deg in (1,3,4,5,6,10) & ((13<=e2857r14<95)|e3112r14>=12|GED=1|HSD=1|clg_ok=1)
          then ENCAT=10;
          if sch in (5,6) & deg in (4,5,6,10)     & ((16<e2857r14<95)|e3112r14>=16) then ENCAT=11;
          if sch in (5,6) & deg in (4,5,6,10)     & CDTBA>-4 then ENCAT=11;
          if sch=6 and ENCAT ne 11 then gradsch=1;
          if (1<=e2857r14<=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;
             ENCAT=4;
             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 do;  
             ENCAT=4;
             if CDTAA>-4 then ENCAT=5;
             if CDTBA>-4 then ENCAT=6;
            if CDTMA>-4|CDTDC>-4|CDTPF>-4 then ENCAT=7;
          end;
       end;
       if lastsch=-3 then do;
          if (HSD=1|GED=1|clg_ok=1) & currcoll=1 then ENCAT=4;
          if (HSD=1|GED=1)          & prevcoll=1 then ENCAT=4;
          if CDTAA>-4               & somecoll=1 then ENCAT=5;
          if CDTBA>-4               & somecoll=1 then ENCAT=6;
          if (CDTMA>-4|CDTDC>-4|CDTPF>-4) & somecoll=1 then encat=7;
       end;
       if GED=1 & HSD=0 & somecoll=0 then ENCAT=2;
       if HSD=1 & somecoll=0 then ENCAT=3;

    end;

    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)|(CDTPF>0 & doicm=CDTPF)) & ENCAT~=7 then do;
       ENCAT=7;
       same_mth=1;
    end;

    if ENROLL=1|(ENROLL=0 & e3877A1r14~=0) then do;
 
       if lastsch=-3 & ENCAT<0 then do;
          ENCAT=-3;
          reason=1;
       end;

       if INV2=1 then do;
          flagcoll=-3;
          college=-3;
          if enroll=0 & somecoll=0 & lastsch=2.3 then do;
             ENCAT=-3;
             reason=2.2;
          end;
       end;
     
      if (HSD=1|GED=1) & (13<=e2857r14<95) & (13<=e3112r14<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;
 
       if (13<=e2857r14<=20) & GED=0 & HSD=0 & clg_ok~=1 & currcoll=1 then do;
          ENCAT=-3;
          reason=5;
       end;

       if rosprb1=1 & ENCAT=-3 & reason=. then reason=6;
 
    end;

    *** Handedit cases;
    
    if pubid in (4459 5379 7383) then do;
      HE14_en=encat;
      encat=-3;
      reason=7;
    end;
    if pubid=1154 then do;
      HE14_en=encat;
      encat=11;
    end;

    if pubid in (1039 1053 2318 2865 3006 4951) then do;
      HE14_en=encat;
      encat=-3;
      reason=7;
    end;
    if pubid=7715 then do;
      HE14_en=encat;
      encat=8;
      reason=.;
    end;

********************************************** SECTION II **********************************************;
      
   if ENCAT in (1,2,3,4,5,6,7) & ENROLL~=0 then do;
      ENROLL=0;
      enr_chg=2;
   end;
   if ENCAT in (8,9,10,11) & ENROLL~=1 then do;
      ENROLL=1;
      enr_chg=3;
   end;
 
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;

********************************************************************************************************
***            [II] CREATED VARIABLE - HIGHEST GRADE COMPLETED AS OF THE SURVEY DATE (GRSURV)        ***
********************************************************************************************************;
       GRSURV=GRSURVP; LOCATOR=1;
       GRAUG=GRAUGP; LOCA=1;
     
       if ENCAT in (4,5,6,7,9,10,11) & e3112r14 in (1,2,3,4,5,6) then do;
          inclg_lowHGC=1;
          e3112r14_imp=e3112r14+12;
       end;
       
***** For those who are asked of 3112;
    if e3112r14 not in (-4,-5) then do;
       grsurv=e3112r14; locator=2;
       if e3112r14<=12|e3112r14=95 then do; GRAUG=-3; loca=2; end;
       if GED=1 & hsrP=-4 & gdrP=-4 & attsch=0 & e3112r14=12 then do;
          GRSURV=grsurvP;
          GRAUG=grsurvP;
          LOCATOR=2.21;
          LOCA=2.21;
       end;
       if HSD=1 & hsrP=-4 & gdrP=-4 & attsch=0 & e3112r14=12 then do;
          GRSURV=grsurvP;
          GRAUG=grsurvP;
          LOCATOR=2.22;
          LOCA=2.22;
       end;
       
       if 0<=GRSURVP<e2857r14<e3112r14 then do;
          GRSURV=grsurvP;
          GRAUG=grsurvP;
          LOCATOR=4.13;
          LOCA=4.13;
       end;
       if e2857r14>e3112r14+1 & e3112r14>GRSURVP>=0 then gr_ncomp1=3;
       if e2857r14>e3112r14+1 & 0<=e3112r14<GRSURVP then gr_ncomp1=4;
       
       if 0<=e3112r14<=grsurvP<95 then do;
          GRSURV=grsurvP;
          GRAUG=grsurvP;
          LOCATOR=4.3;
          LOCA=4.3;
       end;
       
       if ENCAT in (4,5,6,7,9,10,11) & 0<=e3112r14<12 then do;
          if e3112r14_imp>12 then GRSURV=e3112r14_imp;
          else inclg_lt12=1;
          LOCATOR=5.2;
       end;
       if ENCAT in (4,5,6,7,9,10,11) & GED=1 & e3112r14=12 then do;
          GRSURV=grsurvP;
          LOCATOR=5.4;
       end;
       if currcoll=1 & 0<=grsurvP<95 & 0<=e3112r14<95 then inclgCI_grchg=e3112r14-grsurvP;
       if currcoll=0 & prevcoll=1 & encatP in (4,5,6,7,9,10,11) & 0<=grsurvP<95 & 0<=e3112r14<95
       then inclgDLI_grchg=e3112r14-grsurvP;

    ** check on disagre;
       if 0<grsurvP<95 & 0<GRSURV<grsurvP then disagre=1;       
       if disagre=1 & (hsrP>-4|gdrP>-4) & GRSURV<12 & grsurvP>=12 then do;
          disagre=0.5;
          subsprev=1;
          GRSURV=grsurvP;
          LOCATOR=6.10;
       end;      
       if disagre=1 then do;        
          rnd_dif=(YEAR-1996)-dli_rnd+1;
          sitm_pr=e3112r14-grsurvP;         
          if ENCAT in (1,8,-3) then do;
             if ENCAT=-3 then do;
                GRSURV=-3;
                if e3112r14<=12|e3112r14=95 then GRAUG=-3;
                LOCATOR=6.11;
                LOCA=6.11;
             end;
             if 0<=e3112r14<=12 & (0<=sitm_pr<=rnd_dif|grsurvP=95) then do;
                subsitm=1;
                GRSURV=e3112r14;
                LOCATOR=6.12;
                GRAUG=-3;
                LOCA=6.12;
             end;
          end;      
          if 12<=grsurvP<95 & ENCAT in (4,5,6,7,9,10,11) then do;
             GRSURV=grsurvP;
             subprev=1;
             LOCATOR=6.21;
           if currcoll=1 then do;
             subsitm=1;
             if 0<=sitm_pr<=rnd_dif then do;
                GRSURV=e3112r14;
                LOCATOR=6.22;
             end;
             if e3112r14_imp>grsurvP then do;
                GRSURV=e3112r14_imp;
                LOCATOR=6.23;
             end;
           end;         
          end;         
       end;      
       if 0<grsurvP<95 & 0<GRSURV<grsurvP then do;
          disagre=3;
       end;
       
    ** check again;
       if (hsrP>-4|gdrP>-4) & GRSURV~=grsurvP & 0<GRSURV<12 then do;
          if attsch~=1 & grsurvP=grsurvP_no3061 then do;
             GRSURV=grsurvP;
             GRAUG=grsurvP;
             LOCATOR=9.1;
             LOCA=9.1;
          end;
          if attsch=1|grsurvP~=grsurvP_no3061 then do; * Handedit these cases;
             LOCATOR=9.2;
          end;
       end;   
       
    ** GRAUG;    
       if GRAUG=-3 & GRSURV>0 then do;
          if 0<STOP<MONYR & sch in (1,2,3) then do;
             GRAUG=GRSURV;
             LOCA=10.4;
          end;
       end;
       if GRSURV=grsurvP & (0<=grsurvP<=12|grsurvP=95) then do;
          GRAUG=grsurvP;
          LOCA=12.1;
       end;
       if GRAUG=grsurvP & grsurvP=12 & (cdths>MONYR>0) then do;
             GRAUG=-3;
             LOCA=12.4;
       end;
       if (hsrP>-4|gdrP>-4) & 0<=grsurvP<=12 & GRAUG<grsurvP then do;
             subprev=1;
             GRAUG=grsurvP;
             LOCA=13.11;
       end;
       if ((0<hsrP<=(MONYR-12))|(0<gdrP<(MONYR-12))) & GRAUG<graugP then do;
          if 0<=graugP<=12 then do;
             subprev=1;
             GRAUG=graugP;
             LOCA=13.12;
          end;
          if grsurvP<0 & graugP<0 then do;
             GRAUG=-3;
             LOCA=13.13;
          end;
       end;

    ** If R reports a HGC>12 but R is not in a college-degree program we assign the HGC in highschool
       as the HGC received.;
       if ENCAT in (1,2,3,8,-3) & (12<GRSURV<95|(12<e3112r14<95 & GRSURV=-3)) then do;
             whyover12=1;
             if (12<GRSURV<95 & 0<grsurvP<=12)|(GRSURV<grsurvP &  0<grsurvP<=12) then do;
                GRSURV=grsurvP;
                GRAUG=grsurvP;
                LOCATOR=13.42;
                LOCA=13.42;
             end;
             if (12<GRSURV<95 & 0<grsurvP_no3061<=12)|(GRSURV<grsurvP_no3061 & 0<grsurvP_no3061<=12) then do;
                GRSURV=grsurvP_no3061;
                GRAUG=grsurvP_no3061;
                LOCATOR=13.5;
                LOCA=13.5;
             end;
             if (12<GRSURV<95 & 0<e3112r14<=12)|(GRSURV<e3112r14 &  0<e3112r14<=12) then do;
                subsitm=1;
                GRSURV=e3112r14;
                GRAUG=-3;
                LOCATOR=13.6;
                LOCA=13.61;
                if GRSURV=grsurvP then do;
                   GRAUG=grsurvP;
                   LOCA=13.62;
                end;
                if GRSURV=grsurvP_no3061 then do;
                   GRAUG=grsurvP_no3061;
                   LOCA=13.63;
                end;
             end;
       end;
       
    ** Handedit these cases;
       if 12<GRSURV<95 & ENCAT in (1,2,3,8,-3) then LOCATOR=13.7;
       if 12<GRAUG<95 & ENCAT in (1,2,3,8,-3) then LOCA=13.7;

    ** more on GRAUG;
       if grsurvP=12 & GRSURV>=12 & GRAUG~=12 then do;
          GRAUG=12;
          LOCA=16;
       end;
       if grsurvP<=12 & GRSURV>=12 & attsch=0 & (GRAUG=.|GRAUG=-3) & ENCAT in (4,5,6,7,9,10,11) then do;
          GRAUG=grsurvP;
          LOCA=17;
       end;
       if 12<grsurvP<95 then do;
          GRAUG=graugP;
          LOCA=18;
       end;
       if graugP=12 then do;
          GRAUG=12;
          LOCA=19;
       end;

    ** attsch=0;
       if LOCATOR~=15 then do;
          if attsch=0 & e3877A1r14~=0 & 0<=e3112r14<=12 & 0<=grsurvP<GRSURV<=12 then do;
             GRSURV=grsurvP;
             GRAUG=GRSURV;
             LOCATOR=20.1;
             LOCA=20.1;
          end;
          if attsch=0 & e3877A1r14~=0 & 12<e3112r14<95 & 0<=grsurvP_no3061<GRAUG<=12 then do;
             GRAUG=grsurvP_no3061;
             LOCA=20.2;
          end;
       end;
    
    end;
***** end of the loop for those who are asked of 3112;
       
***** for those who were HE in the DLI and not enrolled at or since DLI;
    if e3877A1r14=0 then do;
      if locatorr13=15 then do;
        grsurv=cvc_hgcr13;
        locator=15;
      end;
      if locaP=15 then do;
        graug=graugP;
        loca=15;
      end;
    end;
       

********************************************************************************************************
***           [IV] CREATED VARIABLE - HIGHEST DEGREE RECEIVED AS OF THE SURVEY DATE (DEGSURV)        ***
********************************************************************************************************;
    DEGSURV=0;
   
    if GED=1 then DEGSURV=1;
    if GED=-3 then DEGSURV=-3;
   
    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;
    
    ** Check these cases as they should not occur;
    if 0<=DEGSURV<cvc_hdgr13 then prev_deg=1;     

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

    DEGAUG=0;
   
    ** GED;
    if 0<CDTGD<=MONYR then DEGAUG=1;
    if CDTGD in (-3, -2, -1) then DEGAUG=-3;
   
    ** High School Diploma;
    if 0<CDTHS<=MONYR then DEGAUG=2;
    if CDTHS in (-3, -2, -1) then DEGAUG=-3;
   
    ** Junior College or 2-year Associate Degree;
    if 0<CDTAA<=MONYR then DEGAUG=3;
    if CDTAA in (-3, -2, -1) then DEGAUG=-3;
   
    ** Bachelor's Degree;
    if 0<CDTBA<=MONYR then DEGAUG=4;
    if CDTBA in (-3, -2, -1) then DEGAUG=-3;
   
    ** Master's Degree;
    if 0<CDTMA<=MONYR then DEGAUG=5;
    if CDTMA in (-3, -2, -1) then DEGAUG=-3;
   
    ** Doctoral Degree;
    if 0<CDTDC<=MONYR then DEGAUG=6;
    if CDTDC in (-3, -2, -1) then DEGAUG=-3;
   
    ** Professional Degree;
    if 0<CDTPF<=MONYR then DEGAUG=7;
    if CDTPF in (-3, -2, -1) then DEGAUG=-3;
   
    if DEGSURV=-3 then DEGAUG=-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 do;
      datedeg=1;
      DEGAUG=-3;
    end;
    if DEGAUG~=DEGSURV & DEGSURV=degsurvP & DEGSURV>=0 then do;
       DEGAUG=degsurvP;
    end;
    
    

    *** hand edits;
    
    if (cdtgd=gdr13 & cdths=hsr13 & cdtaa=aar13 & cdtba=bar13 & cdtma=mar13 & cdtpf=pfr13
       & cdtdc=dcr13) then do;
      if he13_deg ne . then do;
        he14_deg=degsurv;
        degsurv=-3;
        degaug=-3;
        if encatr13=-3 & encat in (1,2,3,5,6,7) then do;
          he14_en=encat;
          encat=-3;
        end;
      end;
      else if degsurv ne degsurvP then chk21=1;
    end;
    
if ENCAT    in (-1,-2) then ENCAT=-3;
if GRSURV   in (-1,-2) then GRSURV=-3;
if GRAUG   in (-1,-2) then GRAUG=-3;
if DEGSURV  in (-1,-2) then DEGSURV=-3;
if DEGAUG  in (-1,-2) then DEGAUG=-3;

***** generate GRSURVF which is used to generate HGA in LEFT_HS program;

grsurvFP=grsurvFr13;

    grsurvF=grsurvFP;
    locF=6;
    
    if e3112r14 not in (-4,-5) then do;
       if hsrP=-4 & (grsurvFP<12|grsurvFP=95) & (GRSURV<=12|GRSURV=95) then do;
          grsurvF=GRSURV;
          locF=1;
       end;
       if hsrP=-4 & (grsurvFP<12|grsurvFP=95) & 12<GRSURV<95 then do;
             grsurvF=grsurvFP;
             locF=3;
       end;
       if hsrP>-4|gdrP>-4|grsurvFP=12 then do;
          grsurvF=grsurvFP;
          locF=4.1;
          if grsurvFP=-3 then do;
           if 0<grsurv<=12 then do;
            grsurvF=grsurv;
            locF=4.21;
           end;
           else if 0<graug<=12 then do;
            locF=4.22;
           end;
          end;    
          if grsurvFP<grsurv<=12 then do;
           grsurvF=grsurv;
           locF=4.3;
          end;       
       end;
       if hsrP=-4 & gdrP=-4 & grsurvFP<12 & ENCAT in (1,2,3,8,-3) then do;
          grsurvF=GRSURV;
          locF=5;
       end;       
       if LOCATOR~=15 & attsch=0 & e3877A1r14~=0 & 0<=e3112r14<=12 & 0<=grsurvP<GRSURV<=12 & locF in (1,5) then do;
          grsurvF=GRSURVP;
          locF=7;
       end;
    
    end;
    * end of the grsurvF loop for all who're asked of 3112;

************************HE based on checking;
if pubid in (206 916 1043 3638 5625 5863) then do;
  HE14_EN=encat; encat=10;
end;
if pubid in (2211) then do;
  HE14_EN=encat; encat=11;
end;
if pubid in (7537) then do;
  HE14_EN=encat; encat=9;
end;
if pubid in (8141) then do;
  HE14_EN=encat; encat=9;
end;
if pubid=273 then do;
  HE14_en=encat; encat=5; reason=.;
  grsurv=14; locator=15;
end;
if pubid=790 then do;
  HE14_en=encat; encat=1; reason=.;
end;
if pubid=1112 then do;
  HE14_en=encat; encat=6; reason=.;
  grsurv=16; locator=15;
  graug=12; loca=15;
  grsurvF=12; locF=15;
end;
if pubid=1527 then do;
  HE14_en=encat; encat=10; reason=.;
end;
if pubid=2506 then do;
  HE14_en=encat; encat=9; reason=.;
end;
if pubid=3452 then do;
  HE14_en=encat; encat=11; reason=.;
  grsurv=18; locator=15;
  graug=12; loca=15;
  grsurvF=12; locF=15;
end;
if pubid=4332 then do;
  grsurv=95; locator=15;
end;
if pubid=5761 then do;
  he14_deg=degsurv; degsurv=-3; degaug=-3;
  HE14_en=encat; encat=10; reason=.;
  grsurv=-3; locator=15;
  graug=-3; loca=15;
  grsurvF=-3; locF=15;
end;
if pubid=7728 then do;
  HE14_en=encat; encat=8; reason=.;
end;
if pubid=6345 then do;
  grsurv=12; locator=15;
  graug=12; loca=15;
  grsurvF=12; locF=15;
end;
if pubid=4433 then do;
  HE14_en=encat; encat=-3; reason=7;
end;
if pubid=3355 then do;
  grsurv=12; locator=15;
  graug=12; loca=15;
  grsurvF=12; locF=15;
end;
if pubid=3291 then do;
  grsurv=11; locator=15;
  graug=11; loca=15;
  grsurvF=11; locF=15;
end;
if pubid=466 then do;
  grsurv=10; locator=15;
  graug=10; loca=15;
  grsurvF=10; locF=15;
end;
if pubid=3921 then do;
  grsurv=8; locator=15;
  graug=8; loca=15;
  grsurvF=8; locF=15;
end;
if pubid=8405 then do;
  HE14_EN=encat; encat=9;
  grsurv=8; locator=15;
  graug=8; loca=15;
  grsurvF=8; locF=15;
end;
if pubid=8855 then do;
  grsurv=-3; locator=15;
  graug=-3; loca=15;
  grsurvF=-3; locF=15;
end;
if pubid in (807 1002 2031 2175 3516 4554 5324 6084 7247 7722 7873) then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
if pubid in (1750) then do;
  graug=grsurv; loca=15;
  degaug=degsurv;
end;
if pubid in (2474 6007) then do;
  graug=grsurv; loca=15;
end;
if pubid in (521 1428 8827) then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
if pubid=3659 then do;
  grsurv=17; locator=15;
  graug=12; loca=15;
end;
if pubid=4212 then do;
  graug=10; loca=15;
end;
if pubid=7949 then do;
  he14_deg=degsurv; degsurv=-3; degaug=-3;
  HE14_en=encat; encat=-3;
end;
if pubid in (1154 8233) then do;
  he14_en=encat; encat=-3;
end;
if pubid=3812 then do;
  he14_deg=degsurv; degsurv=-3; degaug=-3;
  HE14_en=encat; encat=9;
end;
if pubid in (7631) then do;
  he14_en=encat; encat=-3;
end;
if pubid in (7803) then do;
  HE14_en=encat; encat=9;
end;
if pubid in (3350) then do;
  HE14_en=encat; encat=10;
end;
if pubid=6010 then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
if pubid=2452 then do;
  grsurv=8; locator=15;
  graug=8; loca=15;
  grsurvF=8; locF=15;
end;
if pubid=3301 then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
if pubid=6922 then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
if pubid=8371 then do;
  grsurv=grsurvP; locator=15;
  graug=graugP; loca=15;
  grsurvF=grsurvFP; locF=15;
end;
 

*********************** end of HE based on checking;

***** Finalize two cvc_ variables;
grsurv_cvc=grsurv;
degsurv_cvc=degsurv;

***** finalize the CV_ variables;
if e3112r14=-5 then do;
   ENROLL=-5;
   ENCAT=-5;
   GRSURV=-5;
   GRAUG=-5;
   DEGSURV=-5;
   DEGAUG=-5;
   GED=-5;
   HSD=-5;
   LOCATOR=-5;
   LOCA=-5;
end;
endsas;