论坛币悬赏sas编程提问

昨天问了个问题，有热心的坛友帮忙解决https://bbs.pinggu.org/thread-4150000-1-1.html
但是我昨天忽略了问题，要分层。
具体要求是

如上图，要对480个人进行实验对照分组，按顺序4人一组，试验组：对照组=3：1。这四个人的处理方式随机分配，比如1到4号分组试验组，对照组，对照组，对照组，对照组；5-8号分组 对照组，对照组，对照组，试验组 。
具体要求如下：

接下来就是分层了，480人分配到五个中心中，每个中心人数不一样，如图，

和昨天的要求一样，要保证病人的顺序从1到480，然后试验，对照按3:1进行随机分配。
if rand_code in(1 2 4) then do;ARM=0;TRT="试验组";end;
   else do;ARM=1;TRT="对照组";end;  昨天的代码好像硬性规定了1 2 4 为试验组。
多谢大神指导！

昨天的回答，好像没有种子数

好像没人搞定