options pagesize=59 linesize=120 nocenter;
data;
infile 'C:\sch_eh.dat' lrecl=593;
input
 R0000100  4.
 R8770000  2.
 R8770100  2.
 R8770200  2.
 R8770300  2.
 R8770400  2.
 R8770500  2.
 R8770600  2.
 R8770700  2.
 R8770800  2.
 R8770900  2.
 R8771000  2.
 R8771100  2.
 R8772500  2.
 R8772600  2.
 R8772700  2.
 R8772800  2.
 R8772900  2.
 R8773000  2.
 R8773100  2.
 R8773200  2.
 R8773300  2.
 R8773400  2.
 R8773500  2.
 R8773600  2.
 R8775000  2.
 R8775100  2.
 R8775200  2.
 R8775300  2.
 R8775400  2.
 R8775500  2.
 R8775600  2.
 R8775700  2.
 R8775800  2.
 R8775900  2.
 R8776000  2.
 R8776100  2.
 R8777500  4.
 R8777600  4.
 R8777700  4.
 R8777800  4.
 R8777900  4.
 R8778000  4.
 R8778100  4.
 R8778200  4.
 R8778300  4.
 R8778400  4.
 R8778500  4.
 R8778600  4.
 R8780000  4.
 R8780100  4.
 R8780200  4.
 R8780300  4.
 R8780400  4.
 R8780500  4.
 R8780600  4.
 R8780700  4.
 R8780800  4.
 R8780900  4.
 R8781000  4.
 R8781100  4.
 R8782500  4.
 R8782600  4.
 R8782700  4.
 R8782800  4.
 R8782900  4.
 R8783000  4.
 R8783100  4.
 R8783200  4.
 R8783300  4.
 R8783400  4.
 R8783500  4.
 R8783600  4.
 R8785000  3.
 R8785100  3.
 R8785200  3.
 R8785300  3.
 R8785400  3.
 R8785500  3.
 R8785600  3.
 R8785700  3.
 R8785800  3.
 R8785900  3.
 R8786000  3.
 R8786100  3.
 R8787500  3.
 R8787600  3.
 R8787700  3.
 R8787800  3.
 R8787900  3.
 R8788000  3.
 R8788100  3.
 R8788200  3.
 R8788300  3.
 R8788400  3.
 R8788500  3.
 R8788600  3.
 R8790000  3.
 R8790100  3.
 R8790200  3.
 R8790300  3.
 R8790400  3.
 R8790500  3.
 R8790600  3.
 R8790700  3.
 R8790800  3.
 R8790900  3.
 R8791000  3.
 R8791100  3.
 R8898800  2.
 R8898900  2.
 R8899000  2.
 R8899100  2.
 R8899200  2.
 R8899300  2.
 R8899400  2.
 R8899500  2.
 R8899600  2.
 R8899700  2.
 R8899800  2.
 R8899900  2.
 R8900000  2.
 R8900100  4.
 R8900200  4.
 R8900300  4.
 R8900400  4.
 R8900500  4.
 R8900600  4.
 R8900700  4.
 R8900800  4.
 R8900900  4.
 R8901000  4.
 R8901100  4.
 R8901200  4.
 R8901300  3.
 R8901400  3.
 R8901500  3.
 R8901600  3.
 R8901700  3.
 R8901800  3.
 R8901900  3.
 R8902000  3.
 R8902100  3.
 R8902200  3.
 R8902300  3.
 R8902400  3.
 R8902500  2.
 R8996700  2.
 R8996800  2.
 R8996900  2.
 R8997000  2.
 R8997100  2.
 R8997200  2.
 R8997300  2.
 R8997400  2.
 R8997500  2.
 R8997600  2.
 R8997700  2.
 R8997800  2.
 R8997900  4.
 R8998000  4.
 R8998100  4.
 R8998200  4.
 R8998300  4.
 R8998400  4.
 R8998500  4.
 R8998600  4.
 R8998700  4.
 R8998800  4.
 R8998900  4.
 R8999000  4.
 R8999100  3.
 R8999200  3.
 R8999300  3.
 R8999400  3.
 R8999500  3.
 R8999600  3.
 R8999700  3.
 R8999800  3.
 R8999900  3.
 R9000000  3.
 R9000100  3.
 R9000200  3.
 R9037400  2.
 R9037500  2.
 R9037600  2.
 R9037700  2.
 R9037800  2.
 R9037900  4.
 R9038000  4.
 R9038100  4.
 R9038200  4.
 R9038300  4.
 R9038400  3.
 R9038500  3.
 R9038600  3.
 R9038700  3.
 R9038800  3.
 ;
array chrrlst R0000100 -- R9038800;
do over chrrlst;
  if chrrlst = -5 then chrrlst = .A;
  if chrrlst = -4 then chrrlst = .B;
  if chrrlst = -3 then chrrlst = .C;
  if chrrlst = -2 then chrrlst = .D;
  if chrrlst = -1 then chrrlst = .E;
  end;
label R0000100 = "PUBID - YTH ID CODE 1997";
label R8770000 = "1997 SCH: ENROLLMENT STATUS L1";
label R8770100 = "1997 SCH: ENROLLMENT STATUS L2";
label R8770200 = "1997 SCH: ENROLLMENT STATUS L3";
label R8770300 = "1997 SCH: ENROLLMENT STATUS L4";
label R8770400 = "1997 SCH: ENROLLMENT STATUS L5";
label R8770500 = "1997 SCH: ENROLLMENT STATUS L6";
label R8770600 = "1997 SCH: ENROLLMENT STATUS L7";
label R8770700 = "1997 SCH: ENROLLMENT STATUS L8";
label R8770800 = "1997 SCH: ENROLLMENT STATUS L9";
label R8770900 = "1997 SCH: ENROLLMENT STATUS L10";
label R8771000 = "1997 SCH: ENROLLMENT STATUS L11";
label R8771100 = "1997 SCH: ENROLLMENT STATUS L12";
label R8772500 = "1998 SCH: ENROLLMENT STATUS L1";
label R8772600 = "1998 SCH: ENROLLMENT STATUS L2";
label R8772700 = "1998 SCH: ENROLLMENT STATUS L3";
label R8772800 = "1998 SCH: ENROLLMENT STATUS L4";
label R8772900 = "1998 SCH: ENROLLMENT STATUS L5";
label R8773000 = "1998 SCH: ENROLLMENT STATUS L6";
label R8773100 = "1998 SCH: ENROLLMENT STATUS L7";
label R8773200 = "1998 SCH: ENROLLMENT STATUS L8";
label R8773300 = "1998 SCH: ENROLLMENT STATUS L9";
label R8773400 = "1998 SCH: ENROLLMENT STATUS L10";
label R8773500 = "1998 SCH: ENROLLMENT STATUS L11";
label R8773600 = "1998 SCH: ENROLLMENT STATUS L12";
label R8775000 = "1999 SCH: ENROLLMENT STATUS L1";
label R8775100 = "1999 SCH: ENROLLMENT STATUS L2";
label R8775200 = "1999 SCH: ENROLLMENT STATUS L3";
label R8775300 = "1999 SCH: ENROLLMENT STATUS L4";
label R8775400 = "1999 SCH: ENROLLMENT STATUS L5";
label R8775500 = "1999 SCH: ENROLLMENT STATUS L6";
label R8775600 = "1999 SCH: ENROLLMENT STATUS L7";
label R8775700 = "1999 SCH: ENROLLMENT STATUS L8";
label R8775800 = "1999 SCH: ENROLLMENT STATUS L9";
label R8775900 = "1999 SCH: ENROLLMENT STATUS L10";
label R8776000 = "1999 SCH: ENROLLMENT STATUS L11";
label R8776100 = "1999 SCH: ENROLLMENT STATUS L12";
label R8777500 = "1997 SCH: TYPE AND TERM/GRADE L1";
label R8777600 = "1997 SCH: TYPE AND TERM/GRADE L2";
label R8777700 = "1997 SCH: TYPE AND TERM/GRADE L3";
label R8777800 = "1997 SCH: TYPE AND TERM/GRADE L4";
label R8777900 = "1997 SCH: TYPE AND TERM/GRADE L5";
label R8778000 = "1997 SCH: TYPE AND TERM/GRADE L6";
label R8778100 = "1997 SCH: TYPE AND TERM/GRADE L7";
label R8778200 = "1997 SCH: TYPE AND TERM/GRADE L8";
label R8778300 = "1997 SCH: TYPE AND TERM/GRADE L9";
label R8778400 = "1997 SCH: TYPE AND TERM/GRADE L10";
label R8778500 = "1997 SCH: TYPE AND TERM/GRADE L11";
label R8778600 = "1997 SCH: TYPE AND TERM/GRADE L12";
label R8780000 = "1998 SCH: TYPE AND TERM/GRADE L1";
label R8780100 = "1998 SCH: TYPE AND TERM/GRADE L2";
label R8780200 = "1998 SCH: TYPE AND TERM/GRADE L3";
label R8780300 = "1998 SCH: TYPE AND TERM/GRADE L4";
label R8780400 = "1998 SCH: TYPE AND TERM/GRADE L5";
label R8780500 = "1998 SCH: TYPE AND TERM/GRADE L6";
label R8780600 = "1998 SCH: TYPE AND TERM/GRADE L7";
label R8780700 = "1998 SCH: TYPE AND TERM/GRADE L8";
label R8780800 = "1998 SCH: TYPE AND TERM/GRADE L9";
label R8780900 = "1998 SCH: TYPE AND TERM/GRADE L10";
label R8781000 = "1998 SCH: TYPE AND TERM/GRADE L11";
label R8781100 = "1998 SCH: TYPE AND TERM/GRADE L12";
label R8782500 = "1999 SCH: TYPE AND TERM/GRADE L1";
label R8782600 = "1999 SCH: TYPE AND TERM/GRADE L2";
label R8782700 = "1999 SCH: TYPE AND TERM/GRADE L3";
label R8782800 = "1999 SCH: TYPE AND TERM/GRADE L4";
label R8782900 = "1999 SCH: TYPE AND TERM/GRADE L5";
label R8783000 = "1999 SCH: TYPE AND TERM/GRADE L6";
label R8783100 = "1999 SCH: TYPE AND TERM/GRADE L7";
label R8783200 = "1999 SCH: TYPE AND TERM/GRADE L8";
label R8783300 = "1999 SCH: TYPE AND TERM/GRADE L9";
label R8783400 = "1999 SCH: TYPE AND TERM/GRADE L10";
label R8783500 = "1999 SCH: TYPE AND TERM/GRADE L11";
label R8783600 = "1999 SCH: TYPE AND TERM/GRADE L12";
label R8785000 = "1997 SCHOOL: ID L1";
label R8785100 = "1997 SCHOOL: ID L2";
label R8785200 = "1997 SCHOOL: ID L3";
label R8785300 = "1997 SCHOOL: ID L4";
label R8785400 = "1997 SCHOOL: ID L5";
label R8785500 = "1997 SCHOOL: ID L6";
label R8785600 = "1997 SCHOOL: ID L7";
label R8785700 = "1997 SCHOOL: ID L8";
label R8785800 = "1997 SCHOOL: ID L9";
label R8785900 = "1997 SCHOOL: ID L10";
label R8786000 = "1997 SCHOOL: ID L11";
label R8786100 = "1997 SCHOOL: ID L12";
label R8787500 = "1998 SCHOOL: ID L1";
label R8787600 = "1998 SCHOOL: ID L2";
label R8787700 = "1998 SCHOOL: ID L3";
label R8787800 = "1998 SCHOOL: ID L4";
label R8787900 = "1998 SCHOOL: ID L5";
label R8788000 = "1998 SCHOOL: ID L6";
label R8788100 = "1998 SCHOOL: ID L7";
label R8788200 = "1998 SCHOOL: ID L8";
label R8788300 = "1998 SCHOOL: ID L9";
label R8788400 = "1998 SCHOOL: ID L10";
label R8788500 = "1998 SCHOOL: ID L11";
label R8788600 = "1998 SCHOOL: ID L12";
label R8790000 = "1999 SCHOOL: ID L1";
label R8790100 = "1999 SCHOOL: ID L2";
label R8790200 = "1999 SCHOOL: ID L3";
label R8790300 = "1999 SCHOOL: ID L4";
label R8790400 = "1999 SCHOOL: ID L5";
label R8790500 = "1999 SCHOOL: ID L6";
label R8790600 = "1999 SCHOOL: ID L7";
label R8790700 = "1999 SCHOOL: ID L8";
label R8790800 = "1999 SCHOOL: ID L9";
label R8790900 = "1999 SCHOOL: ID L10";
label R8791000 = "1999 SCHOOL: ID L11";
label R8791100 = "1999 SCHOOL: ID L12";
label R8898800 = "1997 SCH: IMPUTATION STATUS";
label R8898900 = "2000 SCH: ENROLLMENT STATUS L1";
label R8899000 = "2000 SCH: ENROLLMENT STATUS L2";
label R8899100 = "2000 SCH: ENROLLMENT STATUS L3";
label R8899200 = "2000 SCH: ENROLLMENT STATUS L4";
label R8899300 = "2000 SCH: ENROLLMENT STATUS L5";
label R8899400 = "2000 SCH: ENROLLMENT STATUS L6";
label R8899500 = "2000 SCH: ENROLLMENT STATUS L7";
label R8899600 = "2000 SCH: ENROLLMENT STATUS L8";
label R8899700 = "2000 SCH: ENROLLMENT STATUS L9";
label R8899800 = "2000 SCH: ENROLLMENT STATUS L10";
label R8899900 = "2000 SCH: ENROLLMENT STATUS L11";
label R8900000 = "2000 SCH: ENROLLMENT STATUS L12";
label R8900100 = "2000 SCH: TYPE AND TERM/GRADE L1";
label R8900200 = "2000 SCH: TYPE AND TERM/GRADE L2";
label R8900300 = "2000 SCH: TYPE AND TERM/GRADE L3";
label R8900400 = "2000 SCH: TYPE AND TERM/GRADE L4";
label R8900500 = "2000 SCH: TYPE AND TERM/GRADE L5";
label R8900600 = "2000 SCH: TYPE AND TERM/GRADE L6";
label R8900700 = "2000 SCH: TYPE AND TERM/GRADE L7";
label R8900800 = "2000 SCH: TYPE AND TERM/GRADE L8";
label R8900900 = "2000 SCH: TYPE AND TERM/GRADE L9";
label R8901000 = "2000 SCH: TYPE AND TERM/GRADE L10";
label R8901100 = "2000 SCH: TYPE AND TERM/GRADE L11";
label R8901200 = "2000 SCH: TYPE AND TERM/GRADE L12";
label R8901300 = "2000 SCHOOL: ID L1";
label R8901400 = "2000 SCHOOL: ID L2";
label R8901500 = "2000 SCHOOL: ID L3";
label R8901600 = "2000 SCHOOL: ID L4";
label R8901700 = "2000 SCHOOL: ID L5";
label R8901800 = "2000 SCHOOL: ID L6";
label R8901900 = "2000 SCHOOL: ID L7";
label R8902000 = "2000 SCHOOL: ID L8";
label R8902100 = "2000 SCHOOL: ID L9";
label R8902200 = "2000 SCHOOL: ID L10";
label R8902300 = "2000 SCHOOL: ID L11";
label R8902400 = "2000 SCHOOL: ID L12";
label R8902500 = "SCH: R ATTENDS >ONE PER MONTH";
label R8996700 = "2001 SCH: ENROLLMENT STATUS L1";
label R8996800 = "2001 SCH: ENROLLMENT STATUS L2";
label R8996900 = "2001 SCH: ENROLLMENT STATUS L3";
label R8997000 = "2001 SCH: ENROLLMENT STATUS L4";
label R8997100 = "2001 SCH: ENROLLMENT STATUS L5";
label R8997200 = "2001 SCH: ENROLLMENT STATUS L6";
label R8997300 = "2001 SCH: ENROLLMENT STATUS L7";
label R8997400 = "2001 SCH: ENROLLMENT STATUS L8";
label R8997500 = "2001 SCH: ENROLLMENT STATUS L9";
label R8997600 = "2001 SCH: ENROLLMENT STATUS L10";
label R8997700 = "2001 SCH: ENROLLMENT STATUS L11";
label R8997800 = "2001 SCH: ENROLLMENT STATUS L12";
label R8997900 = "2001 SCH: TYPE AND TERM/GRADE L1";
label R8998000 = "2001 SCH: TYPE AND TERM/GRADE L2";
label R8998100 = "2001 SCH: TYPE AND TERM/GRADE L3";
label R8998200 = "2001 SCH: TYPE AND TERM/GRADE L4";
label R8998300 = "2001 SCH: TYPE AND TERM/GRADE L5";
label R8998400 = "2001 SCH: TYPE AND TERM/GRADE L6";
label R8998500 = "2001 SCH: TYPE AND TERM/GRADE L7";
label R8998600 = "2001 SCH: TYPE AND TERM/GRADE L8";
label R8998700 = "2001 SCH: TYPE AND TERM/GRADE L9";
label R8998800 = "2001 SCH: TYPE AND TERM/GRADE L10";
label R8998900 = "2001 SCH: TYPE AND TERM/GRADE L11";
label R8999000 = "2001 SCH: TYPE AND TERM/GRADE L12";
label R8999100 = "2001 SCHOOL: ID L1";
label R8999200 = "2001 SCHOOL: ID L2";
label R8999300 = "2001 SCHOOL: ID L3";
label R8999400 = "2001 SCHOOL: ID L4";
label R8999500 = "2001 SCHOOL: ID L5";
label R8999600 = "2001 SCHOOL: ID L6";
label R8999700 = "2001 SCHOOL: ID L7";
label R8999800 = "2001 SCHOOL: ID L8";
label R8999900 = "2001 SCHOOL: ID L9";
label R9000000 = "2001 SCHOOL: ID L10";
label R9000100 = "2001 SCHOOL: ID L11";
label R9000200 = "2001 SCHOOL: ID L12";
label R9037400 = "2002 SCH: ENROLLMENT STATUS L1";
label R9037500 = "2002 SCH: ENROLLMENT STATUS L2";
label R9037600 = "2002 SCH: ENROLLMENT STATUS L3";
label R9037700 = "2002 SCH: ENROLLMENT STATUS L4";
label R9037800 = "2002 SCH: ENROLLMENT STATUS L5";
label R9037900 = "2002 SCH: TYPE AND TERM/GRADE L1";
label R9038000 = "2002 SCH: TYPE AND TERM/GRADE L2";
label R9038100 = "2002 SCH: TYPE AND TERM/GRADE L3";
label R9038200 = "2002 SCH: TYPE AND TERM/GRADE L4";
label R9038300 = "2002 SCH: TYPE AND TERM/GRADE L5";
label R9038400 = "2002 SCHOOL: ID L1";
label R9038500 = "2002 SCHOOL: ID L2";
label R9038600 = "2002 SCHOOL: ID L3";
label R9038700 = "2002 SCHOOL: ID L4";
label R9038800 = "2002 SCHOOL: ID L5";

proc means;
run;