如何用宏更改逻辑库下面所有SAS数据集名？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

有兴趣的请笑纳。特别是做ETL的朋友。

LIBNAME TEST "D:\TESTDATA";

%LET RPT=RPT_TEMP;

proc sql;
    create table test.change as
    select
    memname
    from dictionary.tables
    where libname eq "TEST";
quit;

%MACRO CHANGE();
    %LET DSID=%SYSFUNC(OPEN(test.change));
    %IF &DSID GT 0 %THEN %DO;
    %LET NOBS=%SYSFUNC(ATTRN(&DSID,NOBS));
    %DO I=1 %TO &NOBS;
        %LET RC=%SYSFUNC(FETCHOBS(&DSID,&I));
        %LET VARNUME=%SYSFUNC(VARNUM(&DSID,MEMNAME));
        %LET TABLE=%SYSFUNC(GETVARC(&DSID,&VARNUME));
        PROC DATASETS LIB=TEST;
        CHANGE &TABLE=&RPT._T&I.;
        QUIT;
    %END;
    %LET DSID=%SYSFUNC(CLOSE(&DSID));
   %END;
%MEND CHANGE;

%CHANGE;

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：sas数据集 如何用 逻辑库 数据集 Dictionary

nkwilling 发表于 2009-12-2 09:21
有兴趣的请笑纳。特别是做ETL的朋友。

LIBNAME TEST "D:\TESTDATA";

%LET RPT=RPT_TEMP;

proc sql;
    create table test.change as
    select
    memname
    from dictionary.tables
    where libname eq "TEST";
quit;

%MACRO CHANGE();
    %LET DSID=%SYSFUNC(OPEN(test.change));
    %IF &DSID GT 0 %THEN %DO;
    %LET NOBS=%SYSFUNC(ATTRN(&DSID,NOBS));
    %DO I=1 %TO &NOBS;
        %LET RC=%SYSFUNC(FETCHOBS(&DSID,&I));
        %LET VARNUME=%SYSFUNC(VARNUM(&DSID,MEMNAME));
        %LET TABLE=%SYSFUNC(GETVARC(&DSID,&VARNUME));
        PROC DATASETS LIB=TEST;
        CHANGE &TABLE=&RPT._T&I.;
        QUIT;
    %END;
    %LET DSID=%SYSFUNC(CLOSE(&DSID));
   %END;
%MEND CHANGE;

%CHANGE;

Here are general comments to who would like to learn SAS and SAS macro.

It is always good idea to avoid macro if there are other simple ways. Good macro programming needs a lot good think , such as , dynamic, robust, and efficent. After all SAS macro is simply a text generator. The necessary condistion for a good macro programmer is a good SAS(DATA STEP/SQL) BASE programmer. To learn how to walk is before how to run.

This will be much simpler and more readable.

data t1 t2 t3;
  do i = 1 to 1e1;
  end;
run;

%LET RPT=RPT_TEMP;

proc sql noprint;
    select cats(memname,"=&RPT._",memname) into: rdsnlist separated by ' '
    from dictionary.tables
    where libname eq "WORK";
quit;

PROC DATASETS LIB=work;
        CHANGE &rdsnlist
        ;
RUN;
QUIT;