最近工作忙sas比较多，新手，有很多问题不明白，请教各位神：

一段宏中有如下的代码：

proc sql;                                                                                                                                                                                                                                               
create table f as                                                                                                                                                                                                                                      
select count(id) as g_1 from &survival_data. where &strata.=1;                                                                                                                                                                                       

create table g as                                                                                                                                                                                                                                      
select count(id) as g_2 from &survival_data. where &strata.=2;                                                                                                                                                                                       
quit;                                                                                                                                                                                                                                                   

data _null_;                                                                                                                                                                                                                                            
set f;                                                                                                                                                                                                                                                
call symput("g_1",left(compress(trim(g_1))));                                                                                                                                                                                                         
run;                                                                                                                                                                                                                                                   

data _null_;                                                                                                                                                                                                                                            
set g;                                                                                                                                                                                                                                                
call symput("g_2",left(compress(trim(g_2))));                                                                                                                                                                                                         
run;            


这里&strata有两个组，生成两个数字g_1和g_2，有时候会有3个组，我还要再添加一个g_3，请问各位神，有没有什么方法可以自动根据strata生成相应的g_i数的？