data a;
if _n_<11 then g=1;else g=2;
input x $ @@;
y=dif(x);
cards;
07 08 09 12 13 14 15 19 21 22 23 24 29 30 31 32 36
;run;

data c;
   length result $100;
   retain result;
   flag=0;
   do until(y>1 or last.g);
      set a;
          by g x;
          if first.g then result=x;
          if y=1 then do;flag=1; tmp=x;end;
   end;
   if flag=1 then do;
        result=catx("-",result,tmp);
        if not last.g or y>1 then result=catx(", ",result,x);
          end;
   else result=catx(", ",result,x);

   if last.g then output;
   keep g result;
run;

比较常规的方法：
data a;
if _n_<8 then g=1;else g=2;
input x $ @@;
y=dif(x);
cards;
07 12 13 14 15 19 22 23 24 29 30 31 32 36
;run;

data b;
   set a;
   by g;
   length result $100 tmp $8;
   retain flag 0 tmp result;
   if first.g then do; result=x; flag=0; tmp=" "; end;
   else do;
       if y ne 1 then do;
               if flag=0 then result=catx(", ",result,x);
                           else if flag=1 then result=catx(", ",catx("-",result,tmp),x);
                           flag=0;
                        end;
       else if y=1 then do;
               flag=1;
               tmp=x;
                           if last.g then result=catx("-",result,tmp);
            end;
   end;
   if last.g;
   keep g result;
run;

谢谢pobel，需要很强的逻辑。

有个问题有点疑惑，可能还是涉及到PDV的问题，

在第一个loop里面，set a在do until里面和在do until之外有什么区别呢？

能不能麻烦讲讲其中的逻辑呢？

是不是第一个do loop就是把flag的值按照y的值全部赋值好以后，然后再进行下面的if else的语句呢

其实，在看你的那个常规方法的时候，那种疑惑更大，
尤其是在那个else do的循环里面，能不能麻烦仔细讲讲那个循环里面的逻辑呢