禁用XCMD时，SAS批量导入CSV文件的call execute报错排查

需要扫描目标目录，将所有CSV文件导入SAS，同时用独立宏修复SAS不兼容的文件名。由于XCMD已禁用，无法使用管道方案，当前代码的call execute行存在问题，请求修复。

用户尝试代码：

%let path=my_dir

%macro fixname(badname);
    %if %datatyp(%qsubstr(&badname,1,1))=NUMERIC
        %then %let badname=_&badname;
    %let badname=
        %sysfunc(compress(
            %sysfunc(translate(&badname,_,%str( ))),,kn));
    %substr(&badname,1,%sysfunc(min(%length(&badname),32)))
%mend fixname;

%macro importcsv(file);
    options nonotes nosource;
    proc import
        datafile="%superq(file)"
        out=%fixname(%scan(&file,-2,.\)) replace
        dbms=csv;
    run;
options notes source;
%mend importcsv;

filename folder "&path";

data FilesInFolder;
    length Line 8 File $300;
    List = dopen('folder');
    do Line = 1 to dnum(List);
        File = trim(dread(List,Line));
        output;
    end;
    drop list line;
run;

proc sql noprint;
    select * into :file1-
        from FilesInFolder
            where File like '%.csv'
    ;
quit;

%macro loop;

    %do i=1 to &sqlobs;
        call execute(cats('%importcsv('&path.\&&file&i')'));
    %end;

%mend loop;
%loop;

问题分析 #

1. call execute语法错误：直接拼接路径与宏变量时，引号和宏解析顺序冲突，导致路径拼接错误，且未处理路径中的特殊字符（如空格）。
2. 语法细节遗漏：%let path=my_dir缺少分号；%datatyp是拼写错误，应为%datatype。
3. 文件名提取逻辑缺陷：%scan(&file,-2,.\)的分隔符组合会导致路径中包含.时，无法正确提取文件名主体。

修复方案 #

以下是修正后的完整代码，关键修改点已标注：

%let path=my_dir; /* 补充分号，修正语法错误 */

%macro fixname(badname);
    %if %datatype(%qsubstr(&badname,1,1))=NUMERIC /* 修正datatyp为datatype */
        %then %let badname=_&badname;
    %let badname=
        %sysfunc(compress(
            %sysfunc(translate(&badname,_,%str( ))),,kn));
    %substr(&badname,1,%sysfunc(min(%length(&badname),32)))
%mend fixname;

%macro importcsv(file);
    options nonotes nosource;
    proc import
        datafile="%superq(file)"
        /* 先通过\提取文件名，再通过.去掉后缀，避免路径含.时出错 */
        out=%fixname(%scan(%scan(&file,-1,\),1,.)) replace
        dbms=csv;
    run;
options notes source;
%mend importcsv;

filename folder "&path";

data FilesInFolder;
    length Line 8 File $300;
    List = dopen('folder');
    if List > 0 then do Line = 1 to dnum(List);
        File = trim(dread(List,Line));
        if upcase(File) like '%.CSV' then output; /* 提前过滤CSV文件，减少后续处理 */
    end;
    drop list line;
run;

proc sql noprint;
    select File into :file1-
        from FilesInFolder;
quit;

%macro loop;
    %if &sqlobs > 0 %then %do i=1 to &sqlobs;
        %let full_path=&path.\&&file&i;
        /* 用%nrstr延迟宏解析，%superq处理特殊字符，确保路径正确传递 */
        call execute("%nrstr(%importcsv(%superq(full_path)));");
    %end;
%mend loop;
%loop;

关键修改说明 #

• call execute部分：使用%nrstr延迟宏解析，避免宏变量提前展开导致的语法错误；%superq用于处理路径中的空格、特殊字符，确保完整路径正确传递给%importcsv。
• 文件名提取逻辑：%scan(%scan(&file,-1,\),1,.)先通过\提取路径的最后一段（即文件名），再通过.提取后缀前的主体部分，避免路径中包含.时的解析错误。
• 提前过滤CSV文件：在数据步中直接判断文件后缀，减少SQL步骤的处理数据量。
• 语法修正：补充缺失的分号，修正%datatype的拼写错误。

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