* Example ProcPrint2
  Use user defined formats to
  print automobile information;

options ls=70 nodate pageno=1;
data car_survey;
   input age sex income color $;
   datalines;
19 1 14000 Y
45 1 65000 Y
72 2 35000 B
31 1 44000 Y
58 2 83000 W
;

proc format;
   value gender   1='Male' 2='Female';
   value agegroup 13 - <20 = 'Teen'
                  20 - <65 = 'Adult'
                  65 - HIGH = 'Senior';
   value $col     'W' = 'Moon White'
                  'B' = 'Sky Blue'
                  'Y' = 'Sunburst Yellow'
                  'G' = 'Slate Grey';

proc print data=car_survey;
   var age sex income color;
   format sex gender. age agegroup. 
          income dollar8. color $col.; 
   title 'Survey Results Printed';
   title2 'with User Defined Formats';

run;
quit;