Maybe something like this:
data read;
length system_defect $ 200;
input system_defect &;
system=scan(system_defect,1);
defect=left(tranwrd(system_defect,trimn(system),''));
cards;
Cardiovascular Atheroscelorosis
Neurology Vertigo
Cardiovascular Myocardialinfaction
Nephrology Renal Failure
Gastroenterology Gastritis
Gastroenterology Jaundice
Gastroenterology Gastritis
Cardiovascular Myocardialinfaction
;run;
proc sort;
by system defect;
run;
data result;
set read(drop=system_defect);
by system defect;
if first.defect then count=0;
count+1;
run;
Regards,
Rens, SAS NL
... View more