Credits Earned toward Bachelor's/Associate's Degree - Appendix 1

National Longitudinal Survey of Youth - 1997 Cohort

Credits Earned toward Bachelor's/Associate's Degree - Appendix 1

Variables Created

  • CV_BA_CREDITS.01-.05
  • CV_ASSOC_CREDITS.01-.05

This program calculates fraction of credits earned toward a bachelor's degree (CV_BA_CREDITS) and fraction of credits earned toward a associate's degree (CV_ASSOC_CREDITS) for each round.

Variables Used

/*Variable Names in the Program                 Variable Names on the Gator*/
                                                
  asctR1                                        CV_ASSOC_CREDITS_1997                 
  bactR1                                        CV_BA_CREDITS_1997                     
  asctR2_1                                      CV_ASSOC_CREDITS.01_1998              
  asctR2_2                                      CV_ASSOC_CREDITS.02_1998              
  asctR2_3                                      CV_ASSOC_CREDITS.03_1998              
  asctR2_4                                      CV_ASSOC_CREDITS.04_1998              
  asctR2_5                                      CV_ASSOC_CREDITS.05_1998              
  bactR2_1                                      CV_BA_CREDITS.01_1998                 
  bactR2_2                                      CV_BA_CREDITS.02_1998                 
  bactR2_3                                      CV_BA_CREDITS.03_1998                 
  bactR2_4                                      CV_BA_CREDITS.04_1998                 
  bactR2_5                                      CV_BA_CREDITS.05_1998                 
  asctR3_1                                      CV_ASSOC_CREDITS.01_1999              
  asctR3_2                                      CV_ASSOC_CREDITS.02_1999              
  asctR3_3                                      CV_ASSOC_CREDITS.03_1999              
  bactR3_1                                      CV_BA_CREDITS.01_1999                 
  bactR3_2                                      CV_BA_CREDITS.02_1999                 
  bactR3_3                                      CV_BA_CREDITS.03_1999                 
  bactR3_4                                      CV_BA_CREDITS.04_1999                 
  asctR4_1                                      CV_ASSOC_CREDITS.01_2000              
  asctR4_2                                      CV_ASSOC_CREDITS.02_2000              
  asctR4_3                                      CV_ASSOC_CREDITS.03_2000              
  asctR4_4                                      CV_ASSOC_CREDITS.04_2000              
  bactR4_1                                      CV_BA_CREDITS.01_2000                 
  bactR4_2                                      CV_BA_CREDITS.02_2000                 
  bactR4_3                                      CV_BA_CREDITS.03_2000                 
  asctR5_1                                      CV_ASSOC_CREDITS.01_2001              
  asctR5_2                                      CV_ASSOC_CREDITS.02_2001              
  asctR5_3                                      CV_ASSOC_CREDITS.03_2001              
  asctR5_4                                      CV_ASSOC_CREDITS.04_2001              
  asctR5_5                                      CV_ASSOC_CREDITS.05_2001              
  bactR5_1                                      CV_BA_CREDITS.01_2001                 
  bactR5_2                                      CV_BA_CREDITS.02_2001                 
  bactR5_3                                      CV_BA_CREDITS.03_2001                 
  bactR5_4                                      CV_BA_CREDITS.04_2001                 
  asctR6_1                                      CV_ASSOC_CREDITS.01_2002              
  asctR6_2                                      CV_ASSOC_CREDITS.02_2002              
  asctR6_3                                      CV_ASSOC_CREDITS.03_2002              
  asctR6_4                                      CV_ASSOC_CREDITS.04_2002              
  bactR6_1                                      CV_BA_CREDITS.01_2002                 
  bactR6_2                                      CV_BA_CREDITS.02_2002                 
  bactR6_3                                      CV_BA_CREDITS.03_2002                 
  bactR6_4                                      CV_BA_CREDITS.04_2002                 
  bactR6_5                                      CV_BA_CREDITS.05_2002                 
  asctR7_1                                      CV_ASSOC_CREDITS.01_2003              
  asctR7_2                                      CV_ASSOC_CREDITS.02_2003              
  asctR7_3                                      CV_ASSOC_CREDITS.03_2003              
  asctR7_4                                      CV_ASSOC_CREDITS.04_2003              
  asctR7_5                                      CV_ASSOC_CREDITS.05_2003              
  bactR7_1                                      CV_BA_CREDITS.01_2003                 
  bactR7_2                                      CV_BA_CREDITS.02_2003                 
  bactR7_3                                      CV_BA_CREDITS.03_2003                 
  bactR7_4                                      CV_BA_CREDITS.04_2003                 
  bactR7_5                                      CV_BA_CREDITS.05_2003                 
  asctR8_1                                      CV_ASSOC_CREDITS.01_2004              
  asctR8_2                                      CV_ASSOC_CREDITS.02_2004              
  asctR8_3                                      CV_ASSOC_CREDITS.03_2004              
  asctR8_4                                      CV_ASSOC_CREDITS.04_2004              
  bactR8_1                                      CV_BA_CREDITS.01_2004                 
  bactR8_2                                      CV_BA_CREDITS.02_2004                 
  bactR8_3                                      CV_BA_CREDITS.03_2004                 
  asctR9_1                                      CV_ASSOC_CREDITS.01_2005              
  asctR9_2                                      CV_ASSOC_CREDITS.02_2005              
  asctR9_3                                      CV_ASSOC_CREDITS.03_2005              
  asctR9_4                                      CV_ASSOC_CREDITS.04_2005              
  bactR9_1                                      CV_BA_CREDITS.01_2005                 
  bactR9_2                                      CV_BA_CREDITS.02_2005                 
  bactR9_3                                      CV_BA_CREDITS.03_2005                 
  bactR9_4                                      CV_BA_CREDITS.04_2005                 
  asctR10_1                                     CV_ASSOC_CREDITS.01_2006              
  asctR10_2                                     CV_ASSOC_CREDITS.02_2006              
  asctR10_3                                     CV_ASSOC_CREDITS.03_2006              
  asctR10_4                                     CV_ASSOC_CREDITS.04_2006              
  bactR10_1                                     CV_BA_CREDITS.01_2006                 
  bactR10_2                                     CV_BA_CREDITS.02_2006                 
  bactR10_3                                     CV_BA_CREDITS.03_2006                 
  bactR10_4                                     CV_BA_CREDITS.04_2006                 
  bactR10_5                                     CV_BA_CREDITS.05_2006                 
  asctR11_1                                     CV_ASSOC_CREDITS.01_2007              
  asctR11_2                                     CV_ASSOC_CREDITS.02_2007              
  asctR11_3                                     CV_ASSOC_CREDITS.03_2007              
  bactR11_1                                     CV_BA_CREDITS.01_2007                 
  bactR11_2                                     CV_BA_CREDITS.02_2007                 
  bactR11_3                                     CV_BA_CREDITS.03_2007                 
  bactR11_4                                     CV_BA_CREDITS.04_2007                 
  bactR11_5                                     CV_BA_CREDITS.05_2007                 
  asctR12_1                                     CV_ASSOC_CREDITS.01_2008               
  asctR12_2                                     CV_ASSOC_CREDITS.02_2008               
  asctR12_3                                     CV_ASSOC_CREDITS.03_2008               
  asctR12_6                                     CV_ASSOC_CREDITS.06_2008               
  bactR12_1                                     CV_BA_CREDITS.01_2008                  
  bactR12_2                                     CV_BA_CREDITS.02_2008                  
  bactR12_3                                     CV_BA_CREDITS.03_2008                  
  bactR12_7                                     CV_BA_CREDITS.07_2008                  
  bactR12_8                                     CV_BA_CREDITS.08_2008
  asctR13_1                                     CV_ASSOC_CREDITS.01_2009               
  asctR13_2                                     CV_ASSOC_CREDITS.02_2009               
  bactR13_1                                     CV_BA_CREDITS.01_2009                  
  bactR13_2                                     CV_BA_CREDITS.02_2009                  
  bactR13_3                                     CV_BA_CREDITS.03_2009                   
  e27337R2_1                                    SCH-27337.01_1998       
  e27337R2_2                                    SCH-27337.02_1998       
  e27337R2_3                                    SCH-27337.03_1998       
  e27337R2_4                                    SCH-27337.04_1998       
  e27337R2_5                                    SCH-27337.05_1998       
  e27388R2_1                                    SCH-27388.01_1998       
  e27388R2_2                                    SCH-27388.02_1998       
  e27388R2_3                                    SCH-27388.03_1998       
  e27388R2_4                                    SCH-27388.04_1998       
  e27388R2_5                                    SCH-27388.05_1998       
  CHIDR2_1                                      NEWSCHOOL_PUBID.01_1998   
  CHIDR2_2                                      NEWSCHOOL_PUBID.02_1998   
  CHIDR2_3                                      NEWSCHOOL_PUBID.03_1998   
  CHIDR2_4                                      NEWSCHOOL_PUBID.04_1998   
  CHIDR2_5                                      NEWSCHOOL_PUBID.05_1998   
  CHIDR2_6                                      NEWSCHOOL_PUBID.06_1998   
  CHIDR1                                        NEWSCHOOL_PUBID_1997      
  e27337R3_1                                    SCH-27337.01_1999       
  e27337R3_2                                    SCH-27337.02_1999       
  e27337R3_3                                    SCH-27337.03_1999       
  e27337R3_4                                    SCH-27337.04_1999       
  e27337R3_5                                    SCH-27337.05_1999       
  e27388R3_1                                    SCH-27388.01_1999       
  e27388R3_2                                    SCH-27388.02_1999       
  e27388R3_3                                    SCH-27388.03_1999       
  e27388R3_4                                    SCH-27388.04_1999       
  e27388R3_5                                    SCH-27388.05_1999       
  CHIDR3_1                                      NEWSCHOOL_PUBID.01_1999   
  CHIDR3_2                                      NEWSCHOOL_PUBID.02_1999   
  CHIDR3_3                                      NEWSCHOOL_PUBID.03_1999   
  CHIDR3_4                                      NEWSCHOOL_PUBID.04_1999   
  CHIDR3_5                                      NEWSCHOOL_PUBID.05_1999   
  CHIDR3_6                                      NEWSCHOOL_PUBID.06_1999   
  CHIDR3_7                                      NEWSCHOOL_PUBID.07_1999   
  e27337R4_1                                    SCH-27337.01_2000       
  e27337R4_2                                    SCH-27337.02_2000       
  e27337R4_3                                    SCH-27337.03_2000       
  e27337R4_4                                    SCH-27337.04_2000       
  e27388R4_1                                    SCH-27388.01_2000       
  e27388R4_2                                    SCH-27388.02_2000       
  e27388R4_3                                    SCH-27388.03_2000       
  e27388R4_4                                    SCH-27388.04_2000       
  CHIDR4_1                                      NEWSCHOOL_PUBID.01_2000   
  CHIDR4_2                                      NEWSCHOOL_PUBID.02_2000   
  CHIDR4_3                                      NEWSCHOOL_PUBID.03_2000   
  CHIDR4_4                                      NEWSCHOOL_PUBID.04_2000   
  CHIDR4_5                                      NEWSCHOOL_PUBID.05_2000   
  e27337R5_1                                    SCH-27337.01_2001       
  e27337R5_2                                    SCH-27337.02_2001       
  e27337R5_3                                    SCH-27337.03_2001       
  e27337R5_4                                    SCH-27337.04_2001       
  e27337R5_5                                    SCH-27337.05_2001       
  e27337R5_6                                    SCH-27337.06_2001       
  e27388R5_1                                    SCH-27388.01_2001       
  e27388R5_2                                    SCH-27388.02_2001       
  e27388R5_3                                    SCH-27388.03_2001       
  e27388R5_4                                    SCH-27388.04_2001       
  e27388R5_5                                    SCH-27388.05_2001       
  e27388R5_6                                    SCH-27388.06_2001       
  CHIDR5_1                                      NEWSCHOOL_PUBID.01_2001   
  CHIDR5_2                                      NEWSCHOOL_PUBID.02_2001   
  CHIDR5_3                                      NEWSCHOOL_PUBID.03_2001   
  CHIDR5_4                                      NEWSCHOOL_PUBID.04_2001   
  CHIDR5_5                                      NEWSCHOOL_PUBID.05_2001   
  CHIDR5_6                                      NEWSCHOOL_PUBID.06_2001   
  e27337R6_1                                    SCH-27337.01_2002       
  e27337R6_2                                    SCH-27337.02_2002       
  e27337R6_3                                    SCH-27337.03_2002       
  e27337R6_4                                    SCH-27337.04_2002       
  e27337R6_5                                    SCH-27337.05_2002       
  e27388R6_1                                    SCH-27388.01_2002       
  e27388R6_2                                    SCH-27388.02_2002       
  e27388R6_3                                    SCH-27388.03_2002       
  e27388R6_4                                    SCH-27388.04_2002       
  e27388R6_5                                    YSCH-27388.05_2002       
  CHIDR6_1                                      NEWSCHOOL_PUBID.01_2002   
  CHIDR6_2                                      NEWSCHOOL_PUBID.02_2002   
  CHIDR6_3                                      NEWSCHOOL_PUBID.03_2002   
  CHIDR6_4                                      NEWSCHOOL_PUBID.04_2002   
  e27337R7_1                                    SCH-27337.01_2003       
  e27337R7_2                                    SCH-27337.02_2003       
  e27337R7_3                                    SCH-27337.03_2003       
  e27337R7_4                                    SCH-27337.04_2003       
  e27337R7_5                                    SCH-27337.05_2003       
  e27388R7_1                                    SCH-27388.01_2003       
  e27388R7_2                                    SCH-27388.02_2003       
  e27388R7_3                                    SCH-27388.03_2003       
  e27388R7_4                                    SCH-27388.04_2003       
  CHIDR7_1                                      NEWSCHOOL_PUBID.01_2003   
  CHIDR7_2                                      NEWSCHOOL_PUBID.02_2003   
  CHIDR7_3                                      NEWSCHOOL_PUBID.03_2003   
  CHIDR7_4                                      NEWSCHOOL_PUBID.04_2003   
  CHIDR7_5                                      NEWSCHOOL_PUBID.05_2003   
  e27337R8_1                                    SCH-27337.01_2004       
  e27337R8_2                                    SCH-27337.02_2004       
  e27337R8_3                                    SCH-27337.03_2004       
  e27337R8_4                                    SCH-27337.04_2004       
  e27337R8_5                                    SCH-27337.05_2004       
  e27388R8_1                                    SCH-27388.01_2004       
  e27388R8_2                                    SCH-27388.02_2004       
  e27388R8_3                                    SCH-27388.03_2004       
  e27388R8_4                                    SCH-27388.04_2004
  e23360R8_1                                    SCH-23360.01_2004
  e23360R8_2                                    SCH-23360.02_2004
  e23360R8_3                                    SCH-23360.03_2004
  e23360R8_4                                    SCH-23360.04_2004
  CHIDR8_1                                      NEWSCHOOL_PUBID.01_2004   
  CHIDR8_2                                      NEWSCHOOL_PUBID.02_2004   
  CHIDR8_3                                      NEWSCHOOL_PUBID.03_2004   
  CHIDR8_4                                      NEWSCHOOL_PUBID.04_2004   
  CHIDR8_5                                      NEWSCHOOL_PUBID.05_2004   
  e27337R9_1                                    5670500 =YSCH-27337.01_2005       
  e27337R9_2                                    5670600 =YSCH-27337.02_2005       
  e27337R9_3                                    5670700 =YSCH-27337.03_2005       
  e27337R9_4                                    5670800 =YSCH-27337.04_2005       
  e27388R9_1                                    5677000 =YSCH-27388.01_2005       
  e27388R9_2                                    5677100 =YSCH-27388.02_2005       
  e27388R9_3                                    5677200 =YSCH-27388.03_2005       
  e27388R9_4                                    5677300 =YSCH-27388.04_2005       
  e23360R9_1                                    SCH-23360.01_2005
  e23360R9_2                                    SCH-23360.02_2005
  e23360R9_3                                    SCH-23360.03_2005
  CHIDR9_1                                      NEWSCHOOL_PUBID.01_2005   
  CHIDR9_2                                      NEWSCHOOL_PUBID.02_2005   
  CHIDR9_3                                      NEWSCHOOL_PUBID.03_2005   
  CHIDR9_4                                      NEWSCHOOL_PUBID.04_2005   
  e27337R10_1                                   SCH-27337.01_2006      
  e27337R10_2                                   SCH-27337.02_2006      
  e27337R10_3                                   SCH-27337.03_2006      
  e27337R10_4                                   SCH-27337.04_2006      
  e27337R10_5                                   SCH-27337.05_2006      
  e27388R10_1                                   SCH-27388.01_2006      
  e27388R10_2                                   SCH-27388.02_2006      
  e27388R10_3                                   SCH-27388.03_2006      
  e27388R10_4                                   SCH-27388.04_2006      
  e27388R10_5                                   SCH-27388.05_2006      
  e23360R10_1                                   YSCH-23360.01_2006
  e23360R10_2                                   YSCH-23360.02_2006
  CHIDR10_1                                     NEWSCHOOL_PUBID.01_2006  
  CHIDR10_2                                     NEWSCHOOL_PUBID.02_2006  
  CHIDR10_3                                     NEWSCHOOL_PUBID.03_2006  
  CHIDR10_4                                     NEWSCHOOL_PUBID.04_2006  
  CHIDR10_5                                     NEWSCHOOL_PUBID.05_2006  
  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      
  e27388R11_1                                   YSCH-27388.01_2007      
  e27388R11_2                                   YSCH-27388.02_2007      
  e27388R11_3                                   YSCH-27388.03_2007      
  e27388R11_4                                   YSCH-27388.04_2007      
  e27388R11_5                                   YSCH-27388.05_2007      
  23360R11_1                                    YSCH-23360.01_2007      
  23360R11_2                                    YSCH-23360.02_2007      
  CHIDR11_1                                     NEWSCHOOL_PUBID.01_2007  
  CHIDR11_2                                     NEWSCHOOL_PUBID.02_2007  
  CHIDR11_3                                     NEWSCHOOL_PUBID.03_2007  
  CHIDR11_4                                     NEWSCHOOL_PUBID.04_2007  
  CHIDR11_5                                     NEWSCHOOL_PUBID.05_2007  
  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      
  e27388R12_1                                   YSCH-27388.01_2008      
  e27388R12_2                                   YSCH-27388.02_2008      
  e27388R12_3                                   YSCH-27388.03_2008      
  e27388R12_6                                   YSCH-27388.06_2008      
  e27388R12_7                                   YSCH-27388.07_2008      
  e27388R12_8                                   YSCH-27388.08_2008      
  23360R12_1                                    YSCH-23360.01_2008      
  23360R12_2                                    YSCH-23360.02_2008      
  23360R12_3                                    YSCH-23360.03_2008      
  CHIDR12_1                                     NEWSCHOOL_PUBID.01_2008  
  CHIDR12_2                                     NEWSCHOOL_PUBID.02_2008  
  CHIDR12_3                                     NEWSCHOOL_PUBID.03_2008  
  CHIDR12_4                                     NEWSCHOOL_PUBID.04_2008  
  CHIDR12_5                                     NEWSCHOOL_PUBID.05_2008  
  CHIDR12_6                                     NEWSCHOOL_PUBID.06_2008  
  CHIDR12_7                                     NEWSCHOOL_PUBID.07_2008  
  CHIDR12_8                                     NEWSCHOOL_PUBID.08_2008  
  e27337R13_1                                   YSCH-27337.01_2009      
  e27337R13_2                                   YSCH-27337.02_2009      
  e27337R13_3                                   YSCH-27337.03_2009      
  e27388.01                                     YSCH-27388.01_2009       
  e27388.02                                     YSCH-27388.02_2009       
  e27388.03                                     YSCH-27388.03_2009     
  CHIDR13_1                                     NEWSCHOOL_PUBID.01_2009
  CHIDR13_2                                     NEWSCHOOL_PUBID.02_2009
  CHIDR13_3                                     NEWSCHOOL_PUBID.03_2009
  e23360R13_1                                   YSCH-23360.01_2009     
  e23360R13_2                                   YSCH-23360.02_2009     
  e3113                                         YSCH-3113_2010                 
  e4846M                                        YSCH-4846~M_2010               
  e4846Y                                        YSCH-4846~Y_2010               
  e1600                                         YSCH-1600_2010                 
  e273371                                       YSCH-27337.01_2010             
  e273372                                       YSCH-27337.02_2010             
  e273373                                       YSCH-27337.03_2010             
  e273374                                       YSCH-27337.04_2010             
  e273375                                       YSCH-27337.05_2010             
  e252971                                       YSCH-25297.01_2010             
  e252972                                       YSCH-25297.02_2010             
  e252973                                       YSCH-25297.03_2010             
  e252974                                       YSCH-25297.04_2010             
  e256541                                       YSCH-25654.01_2010             
  e162001                                       YSCH-16200.01_2010             
  e269311                                       YSCH-26931.01_2010             
  e269312                                       YSCH-26931.02_2010             
  e269313                                       YSCH-26931.03_2010             
  e269314                                       YSCH-26931.04_2010             
  e269321                                       YSCH-26932.01_2010             
  e269322                                       YSCH-26932.02_2010             
  e269323                                       YSCH-26932.03_2010             
  e269324                                       YSCH-26932.04_2010             
  e269401                                       YSCH-26940.01_2010             
  e269402                                       YSCH-26940.02_2010             
  e269403                                       YSCH-26940.03_2010             
  e269404                                       YSCH-26940.04_2010             
  e269451                                       YSCH-26945.01_2010             
  e269452                                       YSCH-26945.02_2010             
  e269453                                       YSCH-26945.03_2010             
  e273881                                       YSCH-27388.01_2010             
  e273882                                       YSCH-27388.02_2010             
  e273883                                       YSCH-27388.03_2010             
  e273884                                       YSCH-27388.04_2010             
  e228001                                       YSCH-22800.01_2010             
  e228002                                       YSCH-22800.02_2010             
  e228003                                       YSCH-22800.03_2010             
  e228004                                       YSCH-22800.04_2010             
  e230001                                       YSCH-23000.01_2010             
  e230002                                       YSCH-23000.02_2010             
  e232001                                       YSCH-23200.01_2010             
  e232002                                       YSCH-23200.02_2010             
  e232003                                       YSCH-23200.03_2010             
  e232004                                       YSCH-23200.04_2010             
  e233601                                       YSCH-23360.01_2010             
  e233602                                       YSCH-23360.02_2010             
  e233603                                       YSCH-23360.03_2010             
  e233604                                       YSCH-23360.04_2010             
  e233701                                       YSCH-23370.01_2010             
  e233702                                       YSCH-23370.02_2010             
  e233703                                       YSCH-23370.03_2010             
  e233704                                       YSCH-23370.04_2010             
  e234001                                       YSCH-23400.01_2010             
  e234002                                       YSCH-23400.02_2010             
  e234501                                       YSCH-23450.01_2010             
  e234502                                       YSCH-23450.02_2010             
  e234503                                       YSCH-23450.03_2010             
  PUBID                                         PUBID_2010                     
  LEFT1                                         NEWSCHOOL_LEFT.01_2010         
  LEFT2                                         NEWSCHOOL_LEFT.02_2010         
  LEFT3                                         NEWSCHOOL_LEFT.03_2010         
  LEFT4                                         NEWSCHOOL_LEFT.04_2010         
  SCODE1                                        NEWSCHOOL_SCHCODE.01_2010      
  SCODE2                                        NEWSCHOOL_SCHCODE.02_2010      
  SCODE3                                        NEWSCHOOL_SCHCODE.03_2010      
  SCODE4                                        NEWSCHOOL_SCHCODE.04_2010      
  SCODE5                                        NEWSCHOOL_SCHCODE.05_2010      
  SCHID_1                                       NEWSCHOOL_PUBID.01_2010        
  SCHID_2                                       NEWSCHOOL_PUBID.02_2010        
  SCHID_3                                       NEWSCHOOL_PUBID.03_2010        
  SCHID_4                                       NEWSCHOOL_PUBID.04_2010        
  SCHID_5                                       NEWSCHOOL_PUBID.05_2010      

SAS Code for Variable Creation

if pubid= 1154 then  SCHID_1=501;
if pubid= 8233 then  SCHID_1=1101;

%let i=13; /* R13 */
%let j=8; /* school number from currrent rounds */
%let k=8; /* school number from previous Rounds */
%let O=1;  /* R1 */
%let T=2; /* R2*/

/* Fraction of credits earned for AA from Round2-R13;   */

array asctr  (13,8)   asctr1_1-asctr1_8
                      asctr2_1-asctr2_8
                      asctr3_1-asctr3_8   
                      asctr4_1-asctr4_8   
                      asctr5_1-asctr5_8   
                      asctr6_1-asctr6_8   
                      asctr7_1-asctr7_8   
                      asctr8_1-asctr8_8   
                      asctr9_1-asctr9_8   
                      asctr10_1-asctr10_8
                      asctr11_1-asctr11_8
                      asctr12_1-asctr12_8
                      asctr13_1-asctr13_8;

 /* Fraction of credits earned for BA from Round2-R13;   */
 
array bactr  (13,8)   bactr1_1-bactr1_8
                      bactr2_1-bactr2_8   
                      bactr3_1-bactr3_8   
                      bactr4_1-bactr4_8   
                      bactr5_1-bactr5_8   
                      bactr6_1-bactr6_8   
                      bactr7_1-bactr7_8   
                      bactr8_1-bactr8_8   
                      bactr9_1-bactr9_8   
                      bactr10_1-bactr10_8
                      bactr11_1-bactr11_8
                      bactr12_1-bactr12_8
                      bactr13_1-bactr13_8;                      

/* Total credits needed for graduation, from Round2-R13;    */

array e27388r (13,8)  e27388r1_1-e27388r1_8
                      e27388r2_1-e27388r2_8   
                      e27388r3_1-e27388r3_8   
                      e27388r4_1-e27388r4_8   
                      e27388r5_1-e27388r5_8   
                      e27388r6_1-e27388r6_8   
                      e27388r7_1-e27388r7_8   
                      e27388r8_1-e27388r8_8   
                      e27388r9_1-e27388r9_8   
                      e27388r10_1-e27388r10_8
                      e27388r11_1-e27388r11_8
                      e27388r12_1-e27388r12_8
                      e27388r13_1-e27388r13_8;

 /* Total credits (not fraction) earned with DLI schools, Round2-R13;    */
 
array tasctr(13,8)   tasctr1_1-tasctr1_8  
                     tasctr2_1-tasctr2_8
                     tasctr3_1-tasctr3_8
                     tasctr4_1-tasctr4_8
                     tasctr5_1-tasctr5_8
                     tasctr6_1-tasctr6_8       
                     tasctr7_1-tasctr7_8  
                     tasctr8_1-tasctr8_8
                     tasctr9_1-tasctr9_8  
                     tasctr10_1-tasctr10_8
                     tasctr11_1-tasctr11_8
                     tasctr12_1-tasctr12_8   
                     tasctr13_1-tasctr13_8;
      
array tbactr(13,8)   tbactr1_1-tbactr1_8  
                     tbactr2_1-tbactr2_8   
                     tbactr3_1-tbactr3_8
                     tbactr4_1-tbactr4_8
                     tbactr5_1-tbactr5_8
                     tbactr6_1-tbactr6_8
                     tbactr7_1-tbactr7_8
                     tbactr8_1-tbactr8_8
                     tbactr9_1-tbactr9_8
                     tbactr10_1-tbactr10_8
                     tbactr11_1-tbactr11_8
                     tbactr12_1-tbactr12_8   
             tbactr13_1-tbactr13_8;
    
/* School public id for Round2-R12;   */

array schidr (13,8)   schidr1_1-schidr1_8      
                      schidr2_1-schidr2_8       
                      schidr3_1-schidr3_8      
                      schidr4_1-schidr4_8      
                      schidr5_1-schidr5_8      
                      schidr6_1-schidr6_8      
                      schidr7_1-schidr7_8      
                      schidr8_1-schidr8_8      
                      schidr9_1-schidr9_8      
                      schidr10_1-schidr10_8   
                      schidr11_1-schidr11_8   
                      schidr12_1-schidr12_8   
                      schidr13_1-schidr13_8;
                      
        
array e27337r  (13,8) e27337r1_1-e27337r1_8   e27337r2_1-e27337r2_8   e27337r3_1-e27337r3_8     e27337r4_1-e27337r4_8  
                      e27337r5_1-e27337r5_8   e27337r6_1-e27337r6_8   e27337r7_1-e27337r7_8     e27337r8_1-e27337r8_8  
                      e27337r9_1-e27337r9_8   e27337r10_1-e27337r10_8 e27337r11_1-e27337r11_8   e27337r12_1-e27337r12_8 e27337r13_1-e27337r13_8;  

 /*Total credits needed for graduation to Round13;    */
 
array e23360r (13,8)  e23360r1_1-e23360r1_8   e23360r2_1-e23360r2_8   e23360r3_1-e23360r3_8     e23360r4_1-e23360r4_8  
                      e23360r5_1-e23360r5_8   e23360r6_1-e23360r6_8   e23360r7_1-e23360r7_8     e23360r8_1-e23360r8_8  
                      e23360r9_1-e23360r9_8   e23360r10_1-e23360r10_8 e23360r11_1-e23360r11_8   e23360r12_1-e23360r12_8 e23360r13_1-e23360r13_8;  
                     

/*** Arrays for Round 14;*/

array e22800  (&J) ;           /* Total no. of credits earned;                                     */           
array e16200  (&J) ;          /* # Credits Begin College With;                                     */
array e23000  (&J) ;          /* (Corrected) Total no. of credits earned;                          */
array e25654  (&J) ;          /*  CHK DLI INC COLL CREDIT REF/DK L1 2010;                          */
array e27337  (&J) ;          /* What type of diploma working towards;                             */
array e27388  (&J) ;          /* Total credits required to earn the degree;                        */
array e23200  (&J) ;          /* 1(0): R needs more (does not need any more) credits to graduate;  */
array e23400  (&J) ;          /* Total no. credits still needed to graduate (asked if e23200=1);   */
array e25297  (&J) ;          /* CAPI chk: Is this a DLI school?;                                  */
array SCHID_  (&J) ;          /* School public id for Round 14;                                    */
array scode   (&J) ;          /* School code - type of school or college;                          */

array e26931  (&J) ;
array e26932  (&J) ;
array e26940  (&J) ;
array e26945  (&J) ;
array e23450  (&J) ;            /* added in R11 */
array e23360  (&J) ;            /* added in R11 */
               

/****************************************************************************** */

array tcred   (&J)  ;        /* * Total credits (not fraction) earned;                                 */               
array tbac    (&J)  ;        /* * Total credits (not fraction) earned towards BA degree;               */
array tasc    (&J)  ;        /* * Total credits (not fraction) earned towards assoc degree;            */
array noterm  (&J)  ;        /* * Attended but did not complete any term;                              */
array tncred  (&J)  ;        /* * Sum of transfer, test and H.S. credits;                              */
array flag    (&J)  ;        /* * When inconsistency in credits reported;                              */
array crcred  (&J)  ;        /* * C.V. computed using current credits, case 1;                         */
array incred  (&J)  ;        /* * C.V. computed using incoming credits, case 2;                        */
array dlcred  (&J)  ;        /* * C.V. computed using DLI credits, case 3;                             */
array errci   (&J)  ;        /* * Whether both crcred and incred are 1;                                */
array errcd   (&J)  ;        /* * Whether both crcred and dlcred are 1;                                */
array errdi   (&J)  ;        /* * Whether both dlcred and incred are 1;                                */
array ovr     (&J)  ;        /* * Fraction of AA/BA Credits earned are greater than 100;               */
array same    (&J)  ;        /* * Identify the round R last attended current college.;                 */
array dgchk   (&J)  ;         /* * Checks if school code showed R was in college but degree working     
                                                    towards was skipped and R had already received GED or HS Diploma.;   */
                                                    
array dtprb   (&J)  ;         /* * Checks if R reports needs more credits to graduate but when asked   
                                how many more reports ZERO;                                          */
array dliprb  (&J)  ;         /* * If CAPI chk shows this is not a DLI school but it actually is.;      */
array ngrd    (&J)  ;         /* * Checks whether the computed fraction of credits needed to graduate   
                                is 100 even though YSCH-23200=0. (YSCH-23200: Does this mean you     
                                need no more credits to get the degree you're working toward?).;     */
array miss    (&J)  ;         /* * Checks whether created variables CVs are missing although R reports
                                 attending a college;                                                 */
array nfrct   (&J)  ;         /* * CVs are recalculated when CV>100 using the sum of total credits      
                                 and credits remaining in the denominator instead of total credits   
                                 required.;                                                           */
array olfrct  (&J)  ;         /* * DLI CVs used if CVs this round>100 and no new term is completed.;    */
array nofrct  (&J)  ;         /* * Fraction of credits needed to graduate (YSCH-23400) is missing for  
                                   cases where CVs>100 and so cannot be recomputed. Are coded -3.;      */

 
                                                                                                                    
/*** Identifying the college that R reported attending in this round is the same one that R attended in    */               

array asfrac  (&J) ; /* Created variable: fraction credits earned for associate credits;*/
array bafrac  (&J) ; /* Created variable: fraction credits earned for bachelor credits; */

/** If a R completed at least one term, CAPI verifies the total credits for each school at YSCH-22800.
   Due to a design err, the check question YSCH-22800 does not include Round 2 college credits even
   when the SCHID's from both rounds match. However, if a R sees this incorrect count and tells us it is
   correct, we will use it. Rs who have yet to complete a term at a given school will not be asked
   YSCH-22800. The only credits possible for these people are incoming credits at YSCH-26521, or the DLI
   Round created variable for a matching school.; */

/******************************************************************************************************
  There are 3 ways to compute credits in this program, which are all mutually exclusive:
  Case 1: If the R completed any terms, we use YSCH-22800 or YSCH-23000.
  Case 2: If the R has not completed any terms and reported a new school, then we use the incoming
          credits (e26932 OR e26945). For school #1 use YSCH-16200.
  Case 3: If the R has not completed any terms and reported a dli school, then we use the total credit
          from the dli round (through the SCHID match variable described below).
*******************************************************************************************************/

/*** Check for people who attended college but were skipped out of YSCH-22800 and YSCH-23000 (because of
   no completed terms).;*/
 

do j=(&O) to (&J) ;
   if e27337(j) in (1,3) and e22800(j)=-4 and e23000(j)=-4 then noterm(j)=1;
end;

/*** For people who did not complete any terms, the only data available is the incoming credits count
   (that is CASE 2) and the created variable from their DLI round (that is CASE 3). These two pieces of
   data are exclusive.;*/
 
do i=(&O) to (&i);
  do j=(&O) ;
  if schidr (i, 1) ~= -5 then
  DLI=i;
 end;
end;

 
array back(&i);

do i=(&O) to (&i);
  do J=(&O) to (&j);
   if bactr(i ,j)>0 & DLI=i then back(i)=1;
  end;
end;  

 

/*** Check for cases where R says No to "Does this mean you need no more credits to get the degree you're
   working toward?" but report ZERO credits for the follow-up question "How many more credits would you
   need?";*/
   
do J=(&O) to (&J);
   if e23200(j)=0 & e23400(j)=0 then do;
      dtprb(j)=1;
      dataprb=1;
   end;
end;

/****  Case 1: If the R completed any terms, we use YSCH-22800 or YSCH-23000.*/
do J=(&O) to (&J);
   if e22800(j)>-4 then do;
      tcred(j)=e22800(j);
      crcred(j)=1;
   end;
   if e23000(j)>-4 then do;
      tcred(j)=e23000(j);
      crcred(j)=1;
   end;
end;
 

/** We will accept dli credits without a matching degree working towards an answer from current and dli
   round. For example, if a R reports working toward a associate's in his/her dli round and then reports
   working toward a bachelor's in the current round, we will still use the total dli credits in the
   current round created variable, as long as the SCHID's match (i.e., it is the same school).;

** Calculating the total credits have earned towards BA/Assoc degrees for previous rounds, that is
   tasctr2-r13 and tbactr2-r13; */

do I=(&O) to (&i);
  do K=(&O) to (&K);
        if asctr(i,k)>=0 then tasctr(i,k)=round((asctr(i,k)*e27388r(i,k)/100),1);
        if bactr(i,k)>=0 then tbactr(i,k)=round((bactr(i,k)*e27388r(i,k)/100),1);  
        if e23360r(i,k)>-4 then do;
        if asctr(i,k)>=0 then tasctr(i,k)=round((asctr(i,k)*e23360r(i,k)/100),1);       
        if bactr(i,k)>=0 then tbactr(i,k)=round((bactr(i,k)*e23360r(i,k)/100),1);
        end;
        if asctr(i,k)<0  then tasctr(i,k)=asctr(i,k);    
        if bactr(i,k)<0  then tbactr(i,k)=bactr(i,k);        
  end;
end;
 
 
/**** Case 3: The last data source for credits are from previous rounds. Begin by matching current Round
    colleges to DLI colleges using the schools' SCHID. Note that this is only used when there are no
    completed terms in the current Round (and thus no answer to YSCH-22800) and this school is a dli
    school .;*/

/** Define r513m13 as the dummy variable that equals one when the 1st college on the Round5 school roster
  and 3rd college on the Round12 roster have the same SCHID. Define r413m14 as the dummy variable that
  equals one when the 1st college on the Round4 school roster and the 4th college on the Round12 roster
  have the same SCHID. The "512" match variables require that R missed the Round 6 interview. Any college
  from Round1 is represented in the "first" position in the Round 2 created variables i.e. ASFRAC1
  (Round 2) is a school from Round 1.; */

/*** If CAPI chk shows this is not a DLI school but it actually is; dliprb(j)=1*/
/*** If any SCHID from the 1st-3st position in Round 13 match with any SCHID in Round2-R12;  same(j)=i;*/
 do I=(&O) to (&i);  /* i: r1-r13 */
   do J=(&O) to (&J); /* J: the school number for current round */
     do K=(&O) to (&K); /* K: the school number for previous round */     
           
           if  e25297(j)=0 & SCHID_(j)>=0 then do;
           if  SCHID_(j)=schidr(i,k) & DLI=i then dliprb(j)=1;    
               end;           
           if  schidr(i,k)=SCHID_(j) & DLI=i & SCHID_(j)>0 then do;
                 /* s_match(i,j,k)=1;*/
               same(j)=i;
              end;
         /*Made a Change here in Rd9 to keep from accounting for credits in two different ways as indicated by errdi(i)=2*/      
         if tasctr(i,k)=>0   & same(J) >1 & /*s_match(i,j,k)=1 */  e22800(j)=-4 & e16200(j)=-4 then do;
            tcred(j)=tasctr(i,k) ;
            dlcred(j)=1;
            end;
           if tbactr(i,k)=>0  & same(J)>1 &/* & s_match(i,j,k)=1 */ e22800(j)=-4 & e16200(j)=-4 then do;
           tcred(j)=tbactr(i,k);
           dlcred(j)=1;
          end;
         end;
   end;
end;

/*** Case 2: The following are people who reported a new school and have no completed terms (and thus no
    answer to YSCH-22800).  Use incoming credits.;  */

do J=(&O) to (&j);
    if     e26931(j) in (0,1) & e22800(j)=-4 & e23000(j)=-4 then do;
        incred(j)=1;
           if e26931(j)=0 & e26940(j)=1 then tcred(j)=e26932(j);
           else tcred(j)=e26945(j);
    end;

/** YSCH-16200 only applies to school #1. It is an incoming credits question, and is only used when
    YSCH-22800 and YSCH-23000 are valid skipped. This is asked only if a DLI college is reported and the
   incoming credits reported is refused/dont know.; */    
/*Changed in '05 to figure this for all schools, second schools had incoming credit*/
   if   e16200(j)>-4 & e22800(j)=-4 & e23000(j)=-4 then do;
        tcred(j)=e16200(j);
        incred1=2;
   end;
/** Check that the incoming credits (YSCH-162001) for school #1 equals the copmuted credits from that
   school. If R answers that the incoming credits are wrong then YSCH-16200.01 is asked. Thus
   YSCH-16200.01 is given precedence.; */ /* no obs at r13 */
   if dlcred(j)=1 & incred(j)=2 & tcred(j)~=e16200(j) & e25654(j)~=1 then incredprb=1;  
   if dlcred(j)=1 & incred(j)=2 & tcred1~=e16200(j)   & e25654(j)=1  then incredprb=0;
/***  Check to make sure the three methods of collecting credits information do not overlap.; */ /* no obs at r13 */
   if crcred(j)=1 & incred(j)=1 then errci(j)=1;
   if crcred(j)=1 & dlcred(j)=1 then errcd(j)=1;
   if incred(j)=1 & dlcred(j)=1 then errdi(j)=1;
   if incred(j)=2 & dlcred(j)=1 then errdi(j)=2;

end;

/****** Initialize both created variables.;*/
/* TAKE CARE OF CASES THAT WERE NOT INTERVIEWED IN ROUND 13 */
do J=(&O) to (&j);
    asfrac(j)=0;
    bafrac(j)=0;
    if e27337(j)=-5 then asfrac(j)=-5;
    if e27337(j)=-5 then bafrac(j)=-5;
end;
     
/****************************** NOTE: YSCH-23360.X ****************************************
** The wording of YSCH-23360 had some problem. It will NOT corrected until round 10. So, **
** this round and round will not use this question. But from round 10, we can use this **
** question and should do the changes on code accordingly then. YSCH-23350=0 then using YSCH-23360                   
/******************************************************************************************/
do J=(&O) to (&j);
 
  /* Associates Degree; */
   if e27337(j)=1 & tcred(j)=>0 then tasc(j)=tcred(j);
   if (-4<e27388(j)<0 |-4<tcred(j)<0) & e27337(j)=1 then asfrac(j)=-3;
   if tasc(j)=>0  & e27388(j)>0 then asfrac(j)=(tasc(j)/e27388(j))*100;

   if e23360(j)>-4  then do;                            /* added at round 11 */
   e27388(j)= e23360(j);
   if tasc(j)=>0  & e27388(j)>0 then asfrac(j)=(tasc(j)/e23360(j))*100;
   end;
   
   asfrac(j)=round(asfrac(j),1);
   if e23200(j)=1 & e27337(j)=1 then asfrac(j)=100;   /** Rs who say they have graduated;*/
      
     
  /* * Bachelors Degree;*/
   if e27337(j) in (3,10) & tcred(j)=>0 then tbac(j)=tcred(j);
   if (-4<e27388(j)<0 |-4<tcred(j)<0) & e27337(j) in (3,10) then bafrac(j)=-3;
   if tbac(j)=>0 & e27388(j)>0 then bafrac(j)=(tbac(j)/e27388(j))*100;   

   if e23360(j)>-4 then do;                      /* added at round 11 */
      e27388(j)= e23360(j);
   if tbac(j)=>0 & e27388(j)>0 then bafrac(j)=(tbac(j)/e23360(j))*100;   
      end;
   bafrac(j)=round(bafrac(j),1);                                
   if e23200(j)=1 & e27337(j) in (3,10) then bafrac(j)=100; /* Rs who say they have graduated;*/
   
end;    

       

/*** Checking for fraction of credits earned over 100 or fraction of credits earned is 100 but reports
    did not graduate.;*/
 
/** Checking for the cases that credit fraction greater than 100;*/
do j =(&O) to (&j);
   if asfrac(j)>100 then ovr(j)=1;
   if bafrac(j)>100 then ovr(j)=2;
   if ovr(j)>=1 then over100=1;
end;

/** Checking for the cases that get 100 or more percent credits but say need more credits to graduate;*/

do j=(&O) to (&j);
   if asfrac(j)>=100 & e23200(j)=0 then ngrd(j)=1;
   if bafrac(j)>=100 & e23200(j)=0 then ngrd(j)=2;
   if ngrd(j)>=1 then notgrad=1;
end;

/** Checking missing asfrac and bafrac;*/  /* no obs at r13 */
do j= (&O) to (&j);
   if e27337(j)=1 and asfrac(j)=. then miss(j)=1;   
   if e27337(j) in (3,10) and bafrac(j)=. then miss(j)=2;    
end;

/** Asfrac or bafrac>=100, which means that they gained more credits than the credits required for the
   degree (e27388), which means that they claimed that they still need more credits for the
   degree (e23200=0) we would handle these observations as below:
   (a) if e23200=0 and e23400>0, we add up e23400 and (tasc/tbac) the credits the Rs have earned as the
       total credits required for the degree, and use it without e27388 to calculate the cv.
      
   (b) if e23200=0 and e23400<=0, e23450 equals -4. we would give -3 to CV.
   (c) For observations that asfrac or bafrac>=100 and they haven't completed any term so we don't have
       information about e23200 and e23400, use the same fraction as at last round. However if this is
       a new college then we cannot use this method.
   (d) if there are cases with CV>100 even after all these recomputations (a-c) then we give them -3
       unless they made some corrections to the credits required to graduate (e23400).;*/

/** Case (a); */
do J=(&O) to (&j);
   if ngrd(j)=1 & e23400(j)>0 then do;
      asfrac(j)=round(100*tasc(j)/(tasc(j)+e23400(j)),1);
      nfrct(j)=1;
   end;
   if ngrd(j)=2 & e23400(j)>0 then do;
      bafrac(j)=round(100*tbac(j)/(tbac(j)+e23400(j)),1);
      nfrct(j)=2;
   end;
end;

/** Case (b); */
do J=(&O) to (&j);
   if ngrd(j)=1 & e23400(j)<=0 then do;
      asfrac(j)=-3;
      nofrct(j)=1;
   end;
   if ngrd(j)=2 & e23400(j)<=0 then do;
      bafrac(j)=-3;
      nofrct(j)= 2;
   end;
end;

/** Case (c); */

do J=(&O) to (&j);   /* loop 1 */
   if asfrac(j)>100 & e23200(j)=-4 & e23400(j)=-4 then do;  /* loop 2 */
      olfrct(j)=1;
      do I=(&O) to (&i);
         if dli=i then do;
            do K=(&O) to (&K);
               if SCHID_(j)=schidr(i,k) & e27337r(i,k)=1 & dlcred(j)=1  then asfrac(j)= asctr(i,k);
              
              else  if SCHID_(j)=schidr(i,k) & e27337r(i,k)~=1 & dlcred(j)=1 then asfrac(j)=0;
          end;
         end;
      end;
   end;    /* end of loop 2 */  
 
 
   if bafrac(j)>100 & e23200(j)=-4 & e23400(j)=-4 then do;  /* loop2 */
      olfrct(j)=2;
       do I=(&O) to (&i);
         if DLI=i then do;
            do K=(&O) to 8;
               if SCHID_(j)=schidr(i,k) & e27337r(i,k)=3  & dlcred(j)=1 then bafrac(j)=bactr(i,k);
               if SCHID_(j)=schidr(i,k) & e27337r(i,k)~=3 & dlcred(j)=1 then bafrac(j)=0;         
        
            end;
         end;
      end;
   end;  /* loop 2 */
end; /* end of Loop 1 */

if pubid in (1250   3245   3623) then asfrac1=-3;  /* hand edit 5-17-2012 */

/*********** Sometimes the degree working t
/*** Case (d); */

do J=(&O) to (&J);
   if asfrac(j)>100 & e23400(j)>=0 then do;
      asfrac(j)=round(100*tasc(j)/(tasc(j)+e23400(j)),1);
      nfrct(j)=1;
   end;
   if asfrac(j)>100 & e23400(j)<0 then do;
      asfrac(j)=-3;
      nofrct(j)=1;
   end;
   if bafrac(j)>100 & e23400(j)>=0 then do;
      bafrac(j)=round(100*tbac(j)/(tbac(j)+e23400(j)),1);
      nfrct(j)=2;
   end;
   if bafrac(j)>100 & e23400(j)<0 then do;
      bafrac(j)=-3;
      nofrct(j)=2;
   end;
end;

/*** If R not working towards Associates or Bachelor's degree.; */

do J=(&O) to (&j);
   if e27337(j)=-4 then do;
      asfrac(j)=-4;
      bafrac(j)=-4;
   end;
   if e27337(j)in (1, 2, 4, 5, 6, 7, 8, 9, 999) then bafrac(j)=-4;
   if e27337(j)in (2,3,4,5, 6 ,7,8,9,10,999) then asfrac(j)=-4;
   if e27337(j) in (-1,-2,-3) then asfrac(j)=-3;
   if e27337(j) in (-1,-2,-3) then bafrac(j)=-3;
end;

if pubid=223 then bafrac1=-3;  /* last round e273371=6 then current e273371=3  missing information */

/*********** Sometimes the degree working towards question is skipped. If these Rs have no HSD or GED then it is
  OK. They may be enrolled in college to get some extra credits for later enrollment in college but are
  currently enrolled in school. These should have CV=-4. But some are legitimately working towards an
  AA/BA degree but since they got skipped out of the degree working towards question they got skipped
  out of credits earned question as well. We code them as -3.;  25 cases in rd 9 and 0 acse in round 13.
********************************************************************/
do J=(&O) to (&j);
   if e27337(j)=-4 & scode(j) in (4,5) & (hs>-4 | ged>-4) then do;
      dgchk(j)=1;
      bafrac(j)=-3;
      asfrac(j)=-3;
   end;      
end;

/* Hand-Edit Type Number One-
These are cases that are skipped from the degree reporting question (ysch-23450)
because they respond no to the question, "R needs no more credit graduate".
However, I find consistent evidence for these cases in Round 12 and 13 to indicate that
in fact they actually have graduated from school.  In these cases,
I am also able to identify an ending date by using the newschool roster.  
In most of these cases, they also report that the reason they left school was because they obtained a degree,
furthermore these cases repeatedly report across rounds 13 and 14that (ysch-3113) they have obtained either there B.A.
or A.A. Degree.  For these cases  hand-edits are necessary.
First, for the credits program, these individuals should be assigned 100% of their credits. 59 cases in r13*/

 array chkpro1(&j);
 array left(&j);
       outcount=0;
       new_sch=0;
       do J=(&O) to 3;
       if SCHID_(j)>1400 then new_sch=1;
       if same(j)>=2 then do;
       if (asfrac(j)=100 | bafrac(j)= 100 ) | ( asfrac(j)=-4 & bafrac(j)= -4) then outcount=1;
       if e23450(j)=-4 & e3113 in (4,5) & outcount = 0  & left(j) =1 then chkpro1(j)=1;  
       if chkpro1(j)=1 & e3113 =4 & AA >-4 & asfrac(j)>-4 then asfrac(j)=100;
       if chkpro1(j)=1 & e3113 =5 & BA >-4 & bafrac(j)>-4 then bafrac(j)=100;
       if chkpro1(j)=1 & AA=-4 & BA=-4 then chkkAB=1;
       if chkkAB=1 then chkpro1(j)=0;
         
        end;
     end;

    
array chkpro1a(&j) ;   /* ok  of r13 */
do J=(&O) to (&j);
if ((AA>-4) & -4< asfrac(j)<100  & AAR12=-4   | BA>-4 & -4<bafrac(j)<100  & BAR12=-4) & same(j) <2  then do ;
   if e3113 in (5) &  left(j)=1 | e3113 in (4) &   left(j)=1 then chkpro1a(j)=1;
   if chkpro1a(j)=1 then do;
   if asfrac(j)>-4 then asfrac(j)=100;
   if bafrac(j)>-4 then bafrac(j)=100;
   end;
 end;
end;

if pubid=2855 then bafrac1=100;
if pubid=2334 then asfrac1=100;
if pubid= 940 then bafrac1=-3;
if pubid=680  then  bafrac1=100;

    
/*Hand-Edit Type Number Two (I've got the credits…but not the degree)
This case involves individuals that report having 100% of their credits obtained and say that
they need no more credit to graduate; however, they also state that the type of degree
they have obtained (ysch-23450) is no degree ysch23450=7 .  We also find other evidence with these cases
that they have not yet obtained their degree, either B.A. or A.A.  
Consistent with last round we edit the credit values for these cases to -3.     
chkpro2(j)=1 to be edited*/    

array chkpro2(&j);
array chkpro2a(&j);
do J=(&O) to (&j);
if e23200(j) =1 &  e23450(j) =7 &  asfrac(j)=100 & AA=-4 then chkpro2(j)=1;
if e23200(j) =1 &  e23450(j) =7 &  bafrac(j)=100 & BA=-4 then chkpro2(j)=1;

if e16200(j)>-4  & e23200(j)=-4 & e22800(j)=-4 & e3113 in(2,3) &  asfrac(j)=100  & AA=-4  & chkpro2(j)~=1 then chkpro2a(j)=1;
if e16200(j)>-4  & e23200(j)=-4 & e22800(j)=-4 & e3113 in(2,3) &  bafrac(j)=100  & BA=-4  & chkpro2(j)~=1 then chkpro2a(j)=1;
if (BA=-4 &  bafrac(j)=100  |  AA=-4 &  asfrac(j)=100) & chkpro2(j)~=1 then chkpro2a(j)=1;

if pubid=8974 then chkpro21=1;

if chkpro2(j)=1  & asfrac(j)=100 then asfrac(j)=-3;
if chkpro2(j)=1  & bafrac(j)=100 then bafrac(j)=-3;
if chkpro2a(j)=1 & asfrac(j)=100 then asfrac(j)=-3;
if chkpro2a(j)=1 & bafrac(j)=100 then bafrac(j)=-3;
end;

/*Hand-Edit Type Number 3
These are cases that report working on B.A. (ysch-27337=3),
however, they report receiving all of their credits and graduated with an Associates Degree (ysch-23450=1).
They are currently being assigned a valid A.A. degree date.
Consistent with past years, we edit these cases so that the B.A. school is a -4 (not really working towards that degree),
and the A.A. school is 100% (have obtained the A.A. degree). 2 cases require hand-editing.*/

array chkpro3(&j);
 do J=(&O) to (&j);
    if e27337(j)=3 & e23450(j) =1 & AA>0 & BA=-4 then chkpro3(j)=1;
    if chkpro3(j)=1 then do;
    bafrac (j)=-4;
    asfrac (j)=100;
  end;
end;

/*Hand-Edit Four
These are cases that erroneously remain on the school roster,
but have actually already reported and received a degree.  
Consistent with past years, we edit these cases to -4,
reflecting that they are in fact no longer working on that type of degree.
There are 9 total edits for this section. */

/* Actually already reported and received a degree and credits are 100 in previous round.
  then They are back in school Roster and survey. Same school ID's & same major  7 cases */

array chkpro4(&j);
array chkpro4a(&j);

if (BA>-4 | AA>-4) & ((BAR12>-4 | AAR12>-4)| (BAR12>-4 | AAR12>-4)) then do;
 do I=(&O) to 13;
   do J=(&O) to (&J);
    do K=(&O) to (&K);
    if same(j)>=2 then do;

         if bafrac(j)= bactr(i,k) &  bafrac(j)=100 & BA=BAR12 then  chkpro4(j)=1;
         if asfrac(j)= asctr(i,k) &  asfrac(j)=100 & AA=AAR12 then  chkpro4(j)=1;                
         if bactr13_1=-5   & bactr12_1>-4 then do;
         if bafrac(j)= bactr(i,k) &  bafrac(j)=100  & BA=BAR11 then chkpro4(j)=1;
         if asfrac(j)= asctr(i,k) &  asfrac(j)=100  & AA=AAR10 then chkpro4(j)=1;
         end;    
        end;
       end;    
      end;
    end;
 end;

do I=(&O) to (&i);
  do J=(&O) to (&j);
    do K=(&O) to (&K);
       if bafrac(j)=100 & bactr(i,k)=100 &   ba>-4 & baR12>-4  then chkpro4a(j)=1;
       if asfrac(j)=100 & asctr(i,k)=100 &   AA>-4 & aar12>-4  then chkpro4a(j)=1;
    end;
  end;
end;
if pubid = 4223 then chkpro41=1;
if pubid in (  4457 5131 5480 5802 6173 6692 7952   4446  ) then  chkpro41 =0;

do J=(&O) to 3;
if chkpro4(j)=1 & bafrac(j)=100 then  bafrac(j)=-4;
if chkpro4(j)=1 & asfrac(j)=100 then  asfrac(j)=-4;
end;

 if pubid= 2045 then do;
 asfrac1=-4;
 bafrac1=100;
end;
 
if pubid in ( 5802 )  then  bafrac1=-3;

if BA=-4 & AA=-4  then do;  /* no cases */
   do  J=(&O) to (&j);
   if (asfrac(j)=100 |  bafrac(j)=100 ) & e23450(j) in (2,999) then check1=1;
   if check1=1 then do;
   if asfrac(j)=100 then asfrac(j)=-4;
   if bafrac(j)=100 then bafrac(j)=-4;
   end;
 end;
end;  
endsas;