Solution needed with both datastep and report procedure

[West26]

Input:

21

22

21

21

23

22

21

21

22

23

22

Needed ouput:

distinct   times

21           5

22           4

23           2

[West26]

Sorry, I need the total for time too.
Needed ouput:

distinct times

21 5

22 4

23 2
Total 11

[Shmuel]

data test;

     input var;

datalines;

21

22

21

21

23

22

21

21

22

23

22

;run;

1) proc freq data=test; table var; run;      

2) proc means data=test;

    class;

    var var;

    output out=test1 N=;

    run;

   I haven't run it so check it carefully.

[Astounding · Accepted solution]

Getting the total should be just for reporting purposes and not part of the data itself.  One way:

proc freq data=have;

tables distinct / noprint out=counts (keep=distinct count rename=(count=times));

run;

proc print data=counts;

var distinct times;

sum times;

run;