data personnes;
input nom :$20. sexe $ ddn :ddmmyy. taille;
attrib ddn
    label="date de naissance"
    format=nldate.;
cards;
Alice F 22/11/80 1.71
Bob M 23/12/83 1.83
Carol F 21/10/90 1.61
Dioclétien M 2/1/72 1.74
;

run;
proc print label noobs data=personnes;
title "Table des personnages";
run;


data personnes2;
set personnes;
attrib age
    label="age_en_années"
    length=3
;
age=floor(yrdif(ddn, today()));
run;


proc print label noobs data=personnes2;
run;

data personnes3;
set personnes2;
attrib poidsth
    label="Poids"
    length=5
;

alpha=0;
if (sexe = "M") then do;
    alpha=4;
end;
else alpha=2.5;
taillecm = taille*100;
poidsth= (taillecm-100)-((taillecm-150)/alpha);
run;
proc print label noobs data=personnes3;
run;