/******************************************************************************************************* ** Created Variables: ** ** ------------------------------------------------------------------------- ** ** Name in program Name on CD ** ** ------------------- ---------------------------------------- ** asfrac1-asfrac8 CV_ASSOC_CREDITS.01- CV_ASSOC_CREDITS.08 ** bafrac1-bafrac8 CV_BA_CREDITS.01 - CV_BA_CREDITS.08 ** ** ** ** --------------------------------------------------------------------------- ** ** ** Variables Used in the Program ** ** ** ** Name in Program Name on CD Question Name/Label ** ** --------------- ------------- ------------------------------------- ** ** ** ** Prior Round Variables: ** ** ------------------------ ** ** ** variables in the program variables in the Gator /* e3112 YSCH-3112 */ /* e3113 YSCH-3113 */ /* e4846M YSCH-4846~M */ /* e4846Y YSCH-4846~Y */ /* e1600 YSCH-1600 */ /* e69371 YSCH-6937.01 */ /* e69372 YSCH-6937.02 */ /* e69373 YSCH-6937.03 */ /* e273371 YSCH-27337.01 */ /* e273372 YSCH-27337.02 */ /* e273373 YSCH-27337.03 */ /* e273374 YSCH-27337.04 */ /* e252971 YSCH-25297.01 */ /* e252972 YSCH-25297.02 */ /* e252973 YSCH-25297.03 */ /* e252974 YSCH-25297.04 */ /* e256541 YSCH-25654.01 */ /* e162001 YSCH-16200.01 */ /* e269311 YSCH-26931.01 */ /* e269312 YSCH-26931.02 */ /* e269313 YSCH-26931.03 */ /* e269314 YSCH-26931.04 */ /* e269321 YSCH-26932.01 */ /* e269322 YSCH-26932.02 */ /* e269323 YSCH-26932.03 */ /* e269324 YSCH-26932.04 */ /* e269401 YSCH-26940.01 */ /* e269402 YSCH-26940.02 */ /* e269403 YSCH-26940.03 */ /* e269404 YSCH-26940.04 */ /* e269451 YSCH-26945.01 */ /* e269452 YSCH-26945.02 */ /* e269453 YSCH-26945.03 */ /* e269454 YSCH-26945.04 */ /* e273881 YSCH-27388.01 */ /* e273882 YSCH-27388.02 */ /* e273883 YSCH-27388.03 */ /* e273884 YSCH-27388.04 */ /* e228001 YSCH-22800.01 */ /* e228002 YSCH-22800.02 */ /* e228003 YSCH-22800.03 */ /* e230001 YSCH-23000.01 */ /* e230002 YSCH-23000.02 */ /* e230003 YSCH-23000.03 */ /* e232001 YSCH-23200.01 */ /* e232002 YSCH-23200.02 */ /* e232003 YSCH-23200.03 */ /* e233601 YSCH-23360.01 */ /* e233602 YSCH-23360.02 */ /* e233701 YSCH-23370.01 */ /* e233702 YSCH-23370.02 */ /* e234001 YSCH-23400.01 */ /* e234002 YSCH-23400.02 */ /* e234003 YSCH-23400.03 */ /* e234501 YSCH-23450.01 */ /* e234502 YSCH-23450.02 */ /* e234601M YSCH-23460.01~M */ /* e234601Y YSCH-23460.01~Y */ /* e234602M YSCH-23460.02~M */ /* e234602Y YSCH-23460.02~Y */ /* e69991 YSCH-6999.01 */ /* e69992 YSCH-6999.02 */ /* e69993 YSCH-6999.03 */ /* e69994 YSCH-6999.04 */ /* e70001 YSCH-7000.01 */ /* e70002 YSCH-7000.02 */ /* e70003 YSCH-7000.03 */ /* e70004 YSCH-7000.04 */ /* SCODE1 NEWSCHOOL_SCHCODE.01 */ /* SCODE2 NEWSCHOOL_SCHCODE.02 */ /* SCODE3 NEWSCHOOL_SCHCODE.03 */ /* SCODE4 NEWSCHOOL_SCHCODE.04 */ /* SCHID_1 NEWSCHOOL_PUBID.01 */ /* SCHID_2 NEWSCHOOL_PUBID.02 */ /* SCHID_3 NEWSCHOOL_PUBID.03 */ /* SCHID_4 NEWSCHOOL_PUBID.04 */ /* left1 NEWSCHOOL_LEFT.01 */ /* left2 NEWSCHOOL_LEFT.02 */ /* left3 NEWSCHOOL_LEFT.03 */ /* left4 NEWSCHOOL_LEFT.04 */ /* 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 asctr14_1 CV_ASSOC_CREDITS.01_2010 asctr14_2 CV_ASSOC_CREDITS.02_2010 asctr14_3 CV_ASSOC_CREDITS.03_2010 asctr14_4 CV_ASSOC_CREDITS.04_2010 bactr14_1 CV_BA_CREDITS.01_2010 bactr14_2 CV_BA_CREDITS.02_2010 bactr14_3 CV_BA_CREDITS.03_2010 bactr14_4 CV_BA_CREDITS.04_2010 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 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 CHIDR1 EWSCHOOL_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 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 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 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 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 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 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 SCHIDR6_1 NEWSCHOOL_PUBID.01_2002 SCHIDR6_2 NEWSCHOOL_PUBID.02_2002 SCHIDR6_3 NEWSCHOOL_PUBID.03_2002 SCHIDR6_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 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 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 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 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 SCHIDR9_1 NEWSCHOOL_PUBID.01_2005 SCHIDR9_2 NEWSCHOOL_PUBID.02_2005 SCHIDR9_3 NEWSCHOOL_PUBID.03_2005 SCHIDR9_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 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 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 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 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 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 e27337R13_1 YSCH-27337.01_2009 e27337R13_2 YSCH-27337.02_2009 e27337R13_3 YSCH-27337.03_2009 e27388R13_1 YSCH-27388.01_2009 e27388R13_2 YSCH-27388.02_2009 e27388R13_3 YSCH-27388.03_2009 SCHIDR13_1 NEWSCHOOL_PUBID.01_2009 SCHIDR13_2 NEWSCHOOL_PUBID.02_2009 SCHIDR13_3 NEWSCHOOL_PUBID.03_2009 e23360R14_1 YSCH-23360.01_2010 e23360R14_2 YSCH-23360.02_2010 e23360R14_3 YSCH-23360.03_2010 e23360R14_4 YSCH-23360.04_2010 e27337R14_1 YSCH-27337.01_2010 e27337R14_2 YSCH-27337.02_2010 e27337R14_3 YSCH-27337.03_2010 e27337R14_4 YSCH-27337.04_2010 e27388R14_1 YSCH-27388.01_2010 e27388R14_2 YSCH-27388.02_2010 e27388R14_3 YSCH-27388.03_2010 e27388R14_4 YSCH-27388.03_2010 SCHIDR14_1 NEWSCHOOL_PUBID.01_2010 SCHIDR14_2 NEWSCHOOL_PUBID.02_2010 SCHIDR14_3 NEWSCHOOL_PUBID.03_2010 SCHIDR14_1 NEWSCHOOL_PUBID.01_2010 SCHIDR14_2 NEWSCHOOL_PUBID.02_2010 pubid PUBID /************************************************************************************************** */ /** REMEMBER TO MERGE VARIABLE HSD AND GED, TO THE DATA SET BEFORE RUNNING IT. **/ /****************************************************************************************************** */ %let i=14; /* R14 */ %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_2010 from Round2-R14; */ array asctr (14,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 asctr14_1-asctr14_8; /* Fraction of credits earned for BA_2010 from Round2-R14; */ array bactr (14,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 bactr14_1-bactr14_8; /* Total credits needed for graduation, from Round2-R14; */ array e27388r (14,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 e27388r14_1-e27388r14_8; /* Total credits (not fraction) earned with DLI schools, Round2-R13; */ array tasctr(14,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 tasctr14_1-tasctr14_8; array tbactr(14,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 tbactr14_1-tbactr14_8; /* School public id for Round2-R14; */ array schidr (14,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 schidr14_1-schidr14_8; array e27337r (14,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 schidr14_1-schidr14_8; /*Total credits needed for graduation to Round13; */ array e23360r (14,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 e23360r14_1-e23360r14_8; /*** Arrays for Round 15;*/ 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_2010 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_2010/BA_2010 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.; */ 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.;*/ array int_year{14} cv_interview_date_Y_1997 cv_interview_date_Y_1998 cv_interview_date_Y_1999 cv_interview_date_Y_2000-cv_interview_date_Y_2010; do i=(&O) to (&i); if int_year{i} ~= -5 then DLI=i; 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_2010/Assoc degrees for previous rounds, that is tasctr2-r14 and tbactr2-r14; */ 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 .;*/ /*** 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 15 match with any SCHID in Round2-R15; same(j)=i;*/ do I=(&O) to (&i); /* i: r1-r14*/ 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 15 */ 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 (-40 & 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 (-40 & 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, e23400 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 */ /*********** Sometimes the degree working t /*** Case (d); (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).;*/ 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, 11,12,13,999) then bafrac(j)=-4; /* added at r15 */ if e27337(j)in (2, 3,4,5, 6 ,7,8,9,10,999,11,12,13) 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; /*********** 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.; 0 case in round 15. ********************************************************************/ /* 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. */ array chkpro1(&j); array left(&j); outcount=0; new_sch=0; do J=(&O) to 3; if SCHID_(j)>1500 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) ; do J=(&O) to (&j); if ((AA>-4) & -4< asfrac(j)<100 & AA_2010=-4 | BA>-4 & -4-4 then asfrac(j)=100; if bafrac(j)>-4 then bafrac(j)=100; end; end; end; /*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. */ 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 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 & BA_2010>-4) |( AA>-4 & AA_2010>-4) then do; do I=(&O) to 14; 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_2010=BA then chkpro4(j)=1; if asfrac(j)= asctr(i,k) & asfrac(j)=100 & AA_2010=AA then chkpro4(j)=1; 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_2010>-4 & BA>-4 then chkpro4a(j)=1; if asfrac(j)=100 & asctr(i,k)=100 & AA_2010>-4 & AA>-4 then chkpro4a(j)=1; end; end; end; 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 BA=-4 & AA=-4 then do; 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; do i=1 to 4; do j=1 to 4; if SCHID_(i) >0 & SCHID_(j)>0 & i ne j & SCHID_(i)=SCHID_(j) then chkid=1; end; end;