|
If you don't mind using a character variable
as an id then you can use the format and the
put function directly to generate the id.
data a;
length id $ 6 animal sire dam $ 8;
input animal sire dam;
id=put(_n_,z6.);
lines;
jan xx xx
eileen xx xx
kees xx xx
doreen xx xx
charles jan eileen
mary jan eileen
andy charles doreen
;
data cntlin;
set a(rename=(animal=start id=label));
retain fmtname 'ANIMAL' type 'C';
end=start;
keep fmtname type start end label;
run;
proc format cntlin=cntlin;
run;
data b;
set a;
sire_id=put(sire,animal.);
dam_id=put(dam,animal.);
run;
proc print;
run;
|
