Usando switch/select no data step

Usando switch/select no data step
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
data Heart / view=Heart;
    set sashelp.heart;
    select (Smoking_Status);
       when ('Non-smoker')        Smoking_Cat=1;
       when ('Light (1-5)')       Smoking_Cat=2;
       when ('Moderate (6-15)')   Smoking_Cat=3;
       when ('Heavy (16-25)')     Smoking_Cat=4;
       when ('Very Heavy (> 25)') Smoking_Cat=5;
       otherwise                  Smoking_Cat=.;
    end;
run;