/* Lesson 11-04 */
 /*    File Name = les1104.sas  12/21/21   */

options nocenter linesize=78 pagesize=30;
options locale='en_US';
/* options locale='ja_JP'; */
proc printto print = 'StatM21/les1104-Results.txt' new;

data dragons;
  infile 'StatM21/Dragons21.csv'
    firstobs=8 dlm=',' dsd missover 
    encoding=sjis termstr=crlf;
  input No $ Name : $24. Pos $ DoBY DoBM DoBD
        shintyou taijyuu tou $ da $ bikou $;

proc format;
  value cl_shin  low-<170='   -170'
                 170-<175='170-175'
                 175-<180='175-180'
                 180-<185='180-185'
                 185-<190='185-190'
                 190-<195='190-195'
                 195-<200='195-200'
                 200-high='200-   '
                 other   ='missing';
run;

proc print data=dragons(obs=10);
run;

proc freq data=dragons;
  table shintyou;
  table shintyou*tou;
  format shintyou cl_shin.;
run;