*dividing by zero throws an exception, so is very slow*;

Data d1;
   Set d1;
   f = divide(x/y);
run;

*divide does not write to log*;
*divide is as efficicent as:  if y>0 then f=x/y*;