SAS宏开发求助：合并分段宏变量ACC_1至ACC_i

我编写了一段SAS宏代码，用于将大量ID存储到宏变量中，但受限于宏变量最大65534字符的长度，不得不把ID拆分到多个ACC_i宏变量里（每个约存65k字符的ID）。现在需要创建一个宏变量，把ACC_1到ACC_i的内容全部整合起来，方便在后续代码中一次性调用。

原代码如下：

%MACRO LOOP();
proc sql; select Count(*) as CNT ,MAX(LENGTH(Column1)) FORMAT 2.0 as LEN into: CNT, :LEN from table
; quit;
%put &CNT. &LEN.;

%let RUNS = %sysfunc(CEIL(&CNT./(65534/&LEN.)));
%LET OBS = %sysfunc(FLOOR(((65534/&LEN.))));

data TEST;
set &table.;
run;

%put &RUNS.;
%put &OBS.;
%let ACC = .;
%global i;
%DO i = 1 %to &RUNS.;
    %global ACC_&i.;
    proc sql inobs=&OBS.; 
        select input(&ID.,16.) FORMAT 16. as ACC_&i. into: ACC_&i. SEPARATED BY " ," 
        from TEST 
    ;quit;

    data TEST;
    set TEST nobs=count;
    if _n_ <= &OBS. then delete;
    run;

    
%END;
%mend;
%LOOP();

解决方案 #

要整合所有ACC_i宏变量，只需在宏循环结束后，新增一段循环拼接逻辑，把每个分段的内容合并到一个全局宏变量中（比如ALL_ACC）：

修改后的完整宏代码 #

%MACRO LOOP();
proc sql; 
    select Count(*) as CNT, MAX(LENGTH(Column1)) FORMAT 2.0 as LEN 
    into :CNT, :LEN 
    from table; 
quit;
%put &CNT. &LEN.;

%let RUNS = %sysfunc(CEIL(&CNT./(65534/&LEN.)));
%LET OBS = %sysfunc(FLOOR((65534/&LEN.)));

data TEST;
set &table.;
run;

%put &RUNS.;
%put &OBS.;
%global ALL_ACC; /* 声明全局总宏变量 */
%let ALL_ACC = ; /* 初始化总宏变量为空 */
%global i;
%DO i = 1 %to &RUNS.;
    %global ACC_&i.;
    proc sql inobs=&OBS.; 
        select input(&ID.,16.) FORMAT 16. 
        into :ACC_&i. SEPARATED BY ", " 
        from TEST; 
    quit;

    /* 每次循环将当前ACC_i拼接到总宏变量ALL_ACC中 */
    %let ALL_ACC = &ALL_ACC. &&ACC_&i.;

    data TEST;
    set TEST nobs=count;
    if _n_ <= &OBS. then delete;
    run;
%END;

/* 可选：输出总宏变量的内容和长度，验证效果 */
%put 整合后的总宏变量内容：&ALL_ACC.;
%put 总宏变量长度：%sysfunc(LENGTH(&ALL_ACC.));
%mend;
%LOOP();

关键说明 #

• 新增%global ALL_ACC;声明全局总宏变量，确保在宏外部也能访问
• 在每次%DO循环中，用%let ALL_ACC = &ALL_ACC. &&ACC_&i.;拼接当前分段的宏变量内容：&&ACC_&i.是SAS宏的间接引用语法，用于动态调用ACC_1、ACC_2等变量
• 如果原ACC_i的分隔符是" ,"，拼接后会自动保持所有ID的分隔一致性，无需额外处理

注意事项 #

• 如果所有ID的总长度超过65534字符，无法将所有内容存入单个宏变量（这也是你最初拆分的原因），此时建议直接在代码中循环调用各个ACC_i，而不是强行整合
• 原代码中&table.和&ID.是未定义的宏变量，需要确保在调用%LOOP()前已赋值，比如%let table=你的表名; %let ID=你的ID列名;

内容的提问来源于stack exchange，提问作者Tim