* /home/jma7/Documents/lab04.part1.sas;
* Author: J. Abowd;
* Date: February 20, 2005;

dm "log" clear;
dm "output" clear;

libname solution "/home/jma7/Documents/" ;
libname lab4 "/space/courses/info747/lab4/" ;

proc freq data=lab4.pumsbxak;
  tables rectype;
run;

data solution.hrec solution.prec;
  set lab4.pumsbxak;
  if rectype="H" then output solution.hrec;
  else if rectype="P" then output solution.prec;
  else put "ERROR" _n_;
run;

proc datasets library=solution;
  modify hrec;
    index create serialno;
  quit;
run;