* Bulls Example
  Display Chicago Bulls roster information.
  Display pos with a user defined format;

options linesize=70 nodate noobs pageno=1;
data bulls;
   infile 'c:/datasets/bulls-roster-1213.txt' pad firstobs=5;
   input number 1-2 name $ 4-22 pos $ 24-25 age 27-28 ht 30 ht_in 
      32-33 wt 35-37 college $ 39-53 @54 salary COMMA12.;
   if college = '' then college = 'None';
   meter = 2.54 * (ht * 12 + ht_in) / 100;
   kilo = wt / 2.20462;
   drop ht ht_in wt;

proc format;
   value $POS
      'C'  = 'Center'
      'PF' = 'Power Forward'
      'PG' = 'Point Guard'
      'SF' = 'Small Forward'
      'SG' = 'Shooting Guard';
      
proc print;
   format pos $POS. salary DOLLAR11. meter 5.3 kilo 5.1;
   id name;

run;
quit;