出身背景

我正在运行下面的宏来导出循环中的许多数据集。不幸的是,其中一些数据集有额外的变量。我的目的是以相同的格式导出所有文件,其中 不存在的列作为空白提供 .

数据

这可以用以下数据集来说明。

dataA

varA varB
1    3
2    3
3    3

dataB

varA varB
9    4
9    4
9    4

dataC

varA varB varC
2    5    6
2    5    6
2    5    6

我希望我的CSV文件如下所示:

dataA.CSV

varA varB varC
1    3    .
2    3    .
3    3    .

dataB.CSV

varA varB varC
9    4    .
9    4    .
9    4    .

dataC.CSV

varA varB varC
2    5    6
2    5    6
2    5    6

宏

%macro export_data(dsnms);
    * Get observations count;
    PROC SQL;
        SELECT COUNT(*) INTO :obscount
            FROM &dsnms;
    QUIT;

    * Export all available files in the loop;
    %Local D;

    %DO D = 1 %TO &obscount;

        * Print progress message;
        sysecho "Progressing through &D of &obscount";

        * Get table name;
        PROC SQL;
            SELECT COMPRESS(MEMNAME) INTO: Table
                FROM &dsnms
                    WHERE rownum=&D;
        QUIT;

        * Extra spaces in file name are removed via cmpres call;
        PROC EXPORT DBMS=CSV DATA=SASLIBWITHSTUFF.&Table
            OUTFILE="/mystuff/%cmpres(&Table).csv";
        RUN;

        * Inform about succesful export;
        sysecho "Created &Table..csv export file.";
    %END;
%mend;

总结

换句话说,我想修改 proc export 创建 NonExistingVar 如果在 Kepp = . 当然,这将失败 sashelp.class 没有 不存在VaR 但这是我想效仿的行为。

proc export data=sashelp.class (keep =  name
                                        sex
                                        NonExistingVar)
   outfile="/stuff/proc_test.csv"
   dbms=csv
   replace;
run;