应该是一种密码的算法

6楼的学习了 很简洁

You can ask for 2400 obs instead of 10 in below.

38   data _null_;
39      array x (26) $1  ('A' 'B' 'C' 'D' 'E' 'F'
40                           'G' 'H' 'I' 'J' 'K' 'L'
41                           'M' 'N' 'O' 'P' 'Q' 'R'
42                            'S' 'T' 'U' 'V' 'W' 'X' 'Y' 'Z');
43      seed = 1234;
44      do n=1 to 10;
45         call ranperk(seed, 6, of x1-x26);
46         put  @5 'n=' n  ' x= ' x1-x6;
47      end;
48   run;

    n=1  x= G D L F J A
    n=2  x= G F M B J O
    n=3  x= M X Z T L J
    n=4  x= I N M C E A
    n=5  x= C S M J F L
    n=6  x= U F S P N V
    n=7  x= I G U O S Y
    n=8  x= M A D E H T
    n=9  x= F J G I Q B
    n=10  x= A S K D C V
NOTE: DATA statement used (Total process time):
      real time           0.00 seconds
      cpu time            0.00 seconds

6# soporaeternus   这是高手啊！！佩服佩服，不过，我有一个疑问ranuni（0）这个函数，每次运行时得到的随机数都不一样啊，这样结果就没有办法重新再现了，呵呵 我改成ranuni（20100323）不管几时打开运行程序都可以，这样可以么？不会影响重复吧?

0和非0的区别就是每次运行结果是否相同

9# bobguy
都是好人啊 ，厉害啊 ，谢谢啦

9# bobguy
好方法，效率很好，学习了

call ranperk
很实用 学习了

进来学习学习~~~~

6# soporaeternus

to :soporaeternus ,谢谢您的程序 ，很实用，但是我有个疑问，
data Cde;
        do Cde=1 to 26 by 1;
                Des=byte(Cde+64);
                if Des not in ("G","I","J","O","Q") then output;
        end;

run;
proc sql;
        select Des into:Des separated by '' from Cde;
quit;
%put &Des;  

以上这两段程序主要是产生字母序列吧。我是否可以就有一个语句 des=‘ABCDEFHKLMNPRSTUVWXY’来代替那两段程序呢?

16# liubing408
是的，就是为了生成这个字母序列，我比较懒，不想一个个敲

probably a silly question...
but what does this line mean:

%put &Des;


----creating a global macro variable Des?


Thanks a lot

6# soporaeternus

看看宏变量&Des是什么样子的，纯粹调试的时候用，应用的时候可以注释掉

楼上是强人 可惜不能继续共事了...

u guys work in the same company? where do u guys work?

20# 醉_清风

got it. thanks a lot!

19# soporaeternus