/* Lesson 6-01 */
 /*    File Name = les0601round.sas   11/07/07   */
options linesize=72 pagesize=20;

data naikaku;
  infile 'naikaku0611.prn'
    firstobs=2;
  input name $11. 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;