完美獲得SAS檢視原始碼

我們知道,如果在SAS裡定義一個檢視,而檢視的原始碼太多時,你通過describe語句把原始碼輸出到日誌的時候

會發現輸出資訊會自動給你換行,這樣導致你從日誌裡複製出來的原始碼必須經過修改才能用

 

而下面這個程式碼就是解決這個問題,可以直接把SAS SQL檢視的原始碼直接輸出到檔案,輸出的SQL語句可以直接複製出執行而不會給你亂換行

 

 

%let viewname=你的檢視名字;
%let outfile=d:/1.sas;
options linesize=80;
filename out temp;
proc printto log=out new;
proc sql;
describe view &viewname;
quit;
proc printto;
run;
options linesize=max;
data _null_;
infile out truncover;
file "&outfile" lrecl=20000;
input line $char80.;
if index(line, 'NOTE:') then do;
    input;
    do until (line = ' ');
       input line $80.;
   if line ne ' ' then do;
   put line @@;
   /*如果讀取的位元組數沒有超過80,說明其是一個獨立的行,則直接換行輸出,否則不換行輸出*/
   if length(line)^=80 then put  ;
    end;
   end;
end;
put ;
run;