/* Lesson 9-5 */
 /*    File Name = anke07.sas   06/19/97   */

options linesize=72 pagesize=24;

data gakusei;
  infile 'taikaku.dat';
  input seibetsu $ shintyou taijyuu kyoui;

proc format;
  value clshin low-<150='   -149'
               150-<160='150-159'
               160-<170='160-169'
               170-high='170-   '
               other   ='missing';
run;

proc print data=gakusei(obs=10);
run;
proc freq data=gakusei;
  tables shintyou;
  format shintyou clshin.;
run;
proc sort data=gakusei;
  by seibetsu;
run;
proc freq data=gakusei;
  tables shintyou;
  format shintyou clshin.;
  by seibetsu;
run;

proc freq data=gakusei;
  tables shintyou*seibetsu;
  format shintyou clshin.;
run;