options pagesize=59 linesize=120 nocenter;
data;
infile 'C:newschcode.dat' lrecl=10;
input
 R3776700  2.
 R5299900  2.
 R5300000  2.
 R5341800  4.
 ;
array chrrlst R3776700 -- R5341800;
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 R3776700 = "NEWSCHOOL SCHCODE (ROS ITEM) L1 1999";
label R5299900 = "NEWSCHOOL SCHCODE (ROS ITEM) L1 2000";
label R5300000 = "NEWSCHOOL SCHCODE (ROS ITEM) L2 2000";
label R5341800 = "PUBID (SYMBOL) 2000";
proc means;
run;