SAS建立本地文件夾

SAS建立文件夾：用sas建立數據集市時，通常要生成每日數據并保留起來。

今天分享一段程序，SAS生成每日文件夾、模塊文件夾及主題表文件夾并保留每日運行的日志，在下一期，分享日志檢測程序

%let job=d:\job;

/*在job文件夾下每天建立一個日期年月日的文件夾*/

data time;

format t $8.;

t=compress(year(today())*10000+month(today())*100+day(today()));

call symput('t',t);

run;

/*建立文件夾*/

data _null_;

new=dcreate("&t.","&job.");

new1=dcreate("main","&job.\&t.");

new2=dcreate("log","&job.\&t.");

new3=dcreate("ods","&job.\&t.");

new4=dcreate("dds","&job.\&t.");

new5=dcreate("job","&job.\&t.");

new6=dcreate("canshu","&job.\&t.");

run;

/*定義存放錯誤數據集位置的文件位置*/

%let canshu=&job.\&t.\canshu;

/*抽取增量后存放基礎層的位置*/

%let ods=&job.\&t.\ods;

/*加載數據后存放整理層的位置*/

%let dds=&job.\&t.\dds;

/*日志存放的位置*/

%let log=&job.\&t.\log;

/*存放確定結果數據集的位置*/

%let main=&job.\&t.\main;

/*生成主日志*/

/*proc printto*/

/*? log="&log.\main.txt" new;*/

/*run;*/

DM 'LOG; log; FILE "&log.\main.txt." replace;';

run;

DM 'log; "clear";';

/*創建邏輯庫*/

libname main "&main.";

libname canshu "&canshu.";

libname ods "&ods.";

libname dds "&dds.";

/*將excel表格輸入到sas數據集*/

proc import out=sysinfo

datafile="&job.\z.xls";

sheet=sheet1;

getnames=yes;

run;

/*在ods層和dds層建立主題表文件夾*/

data a;

set sysinfo(keep=sys_nm);

run;

%macro test;

%let dsid=%sysfunc(open(work.a,i));

%put &dsid;

%let rc=%sysfunc(fetch(&dsid));

%do %while(&rc=0);

%let zhuti=%sysfunc(trim(%sysfunc(left(%sysfunc(getvarc(&dsid,1))))));

data _null_;

new=dcreate("&zhuti.","&ods.");

new=dcreate("&zhuti.","&dds.");

run;

%let rc=%sysfunc(fetch(&dsid));

%put &rc;

%end;

%let rc=%sysfunc(close(&dsid));

%mend;

%test;

z是數據集市的各個主題表名，格式如下：

最后生成的文件夾及問價如下：

完 謝謝觀看

總結

以上是生活随笔為你收集整理的mysql导入sas文件夹_SAS建立本地文件夹的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。