Try this：
data perm3c10;
        n=10; r=3;  
        do k1 = 1 to n - (r-1);              
           do k2 = k1+1 to n - (r-2);         
                     do k3 = k2+1 to n - (r-3);              
                           perm=catx(',', k1, k2, k3);
                           put perm=;
                           output;  
                      end;
            end;
         end;
         keep perm;
run;