data fail;
 infile 'faildat.txt';
 input fde 1-4 
       dc 5-8 prog $ 9-14;
run;
proc print;
run;
proc reg;
 model fde=dc;
 output out=new1 
        r=resid;     
run;
proc univariate normal;  
 var resid;
run;