/* Lesson 5-01r */
 /*    File Name = les0501round.sas   11/01/06   */
options linesize=72 pagesize=20;

data naikaku;
  infile 'naikaku0512.prn'
    firstobs=2;
  input name $10. posit $ sex $ tochi 
        yotyokin total honnin kasituke kariire
;

tot1000=round(total,1000);

proc print data=naikaku;
run;

proc univariate data=naikaku plot;
  var total tot1000;
run;