PROC IMPORT OUT= WORK.heart
            DATAFILE= "Z:\764-F11\data\heart.txt" 
            DBMS=TAB REPLACE;
     GETNAMES=YES;
     DATAROW=2; 
RUN;

DATA X;
  SET heart;
  IF (Famhist eq "Present") THEN Fhx = 1;
  ELSE Fhx = 0;
  DROP CHD Famhist;
RUN;

PROC PRINCOMP DATA=X OUT=P;
RUN;

DATA heart2;
  MERGE P heart;
RUN;

PROC GENMOD DATA=heart2;
  MODEL CHD = Prin1 Prin2 Prin3 Prin4 / DIST=BIN;
RUN;