data A;
input x @@;
if x>77 and x<=87 then a='(77,87]';
else if x>87 and x<=97 then a='(87,97]';
else if x>97 and x<=1077 then a='(97,107]';
else if x>107 and x<=117 then a='(107,117]';
else if x>117 and x<=127 then a='(117,127]';
agroup=int((a-79)*5/(125-79)-0.01)+1;
cards;
79 84 84 88 92 93 94 97 98 99 100 101 101 102 102 108 110 113 118 125
;
proc freq;
tables a;
run;