/* Lesson 9-2 */
 /*    File Name = chart02.sas   06/19/97   */

options linesize=72 pagesize=24;

data kodukai;
  infile 'kodukai.dat';
  input seibetsu $ jitaku $ kodukai;

proc print data=kodukai(obs=10);
run;                            
proc sort data=kodukai; 
  by jitaku;                    
run;                            
proc chart data=kodukai;        
  hbar kodukai;                 
  by jitaku;                     
run;                            
proc chart data=kodukai;        
  vbar kodukai;                 
  by jitaku;                     
run;