@Ksharp
Nice program. I like the idea of sorting by hospnm bthwt. But I think further simplification is achieveable:
data have (drop=imax i rand);
retain imax;
set have;
by hospnm bthwt;
if first.bthwt then do;
if bthwt='VLBW' then imax=3; else
if bthwt='LBW' then imax=10; else
if bthwt='Normal' then imax=25;
i=0;
end;
i+1;
if i<=imax;
run;
... View more