data crackman;
input num names $ age height@;
datalines;
23 crack 18 180
24 man   19 170
25 woody 20 160
26 man   21 174
;
run;
proc print;
run;
data crackman1;
length stand 8.;
if _n_=1 then do;
declare hash sub();
sub.definekey("names");
sub.definedata("stand");
sub.definedone();
call missing(names,stand);
sub.add(key:'crack',data:100);
sub.add(key:'man',data:120);
sub.add(key:'woody',data:90);
end;
set crackman;
sub.find();
diff=height-stand;
run;
proc print;
run;