/* Lesson 6-1 */
 /*    File Name = les0601round.sas   05/27/04   */
options linesize=72 pagesize=20;

data naikaku;
  infile 'naikaku0310.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;