data Bonuses;
   set prog2.Salary2;
   Bonus=.10*GrossPay;
run;

proc print data=Bonuses noobs;
   title 'Results from automatic conversion';
run;

data Bonuses;
   set prog2.Salary2;
   Bonus=.10*input(GrossPay,comma6.);
run;

proc print data=Bonuses noobs;
   title 'Results from conversion using the INPUT function';
run;

data Bonuses(drop=CharGross);
   set prog2.Salary2(rename=(GrossPay=CharGross));
   GrossPay=input(CharGross,comma6.);
   Bonus=.10*GrossPay;
run;

proc contents data=Bonuses;
   title1 'Descriptor portion of BONUSES';
   title2 'GROSSPAY variable is numeric';
run;

proc print data=Bonuses noobs;
   title1 'Data portion of BONUSES';
   title2 'GROSSPAY variable is numeric';
run;