%let N=4843; 
data a; drop ctlow cthi nlow nhi up down li; 
input i cut ctlow nlow cthi nhi; 
up = i*(&N/20); down=(i-1)*(&N/20);
decile = 5*i; 

if nlow ne nhi then do;  
  pctresp = 
  100*((cut-down)*(ctlow/nlow)+
     (up-cut)*(cthi/nhi))/(.05*&N); 
end;
else pctresp=100*(cthi/nhi);  

lift = (pctresp/100)/(2421/&N);
gain=100*(Lift-1); output; 
cards;
1    188   115 188  1216 2112
2     .   1216 2112 1216 2112
9   2300  1216 2112  254  472
10    .    254  472  254  472
12  2772   254  472  836 2071
13    .    836 2071  836 2071
 ; 
proc print; run;