已解决，非常感谢！

值得学习！

You can leverage SAS byte function by mapping random number to ascii number.

1-10   --> ascii table 48-57  
11-36  --> ascii table 65 - 90
   

data demo;
        length string $4;
    array p[4];

    do i=1 to 100;
        do j=1 to 4;
           p[j]=int(ranuni(123)*36)+1;
           p[j]=ifn(p[j]<=10, p[j]+47, p[j]+54);   
         end;
                 string=catt(byte(p1),byte(p2),byte(p3),byte(p4));
         output;      
        end;
    run;

There are two functions can be used for simplification and effectness in this context.


%let n=300000;

data demo(keep=string);
    dic="0123456789ABCDEFGHIGKLMNOPQRSTUVWXYZ";
    retain string  '    ';
    do i=1 to &n;
        do j=1 to 4;
               p=int(ranuni(123)*36)+1; /*modified*/
               SUBSTR(string,j,1)=char(dic,p);
            end;
    output;
    end;
    run;

很巧妙啊。谢谢。

所有计算机生成的随机数都是伪随机数吗？