Below code should work but is untested because you didn't provide sample data in a usable format.
proc sort
data=&input_dataset(keep=tel_number full_name)
out=intermediate
nodupkey;
by tel_number full_name;
run;
data &output_dataset;
set intermediate;
by tel_number;
if first.tel_number then name_count=1;
else name_count+1;
if last.tel_number and name_count>1 then
do;
&message=catx(' ','Telephone : ',tel_number,'Suspicious.... to', name_count,'people...');
....
output;
end;
run;
For future questions please post your data and code as text and not as screenshots. Use icons
to do so.
Would you have been happy if I'd posted my reply as picture?