1

私は単純なことをしようとしています - PROC REPORT プロシージャを DATA センテンス内に書きます。私の主なアイデアは、データ ステップの条件が true の場合は PROC REPORT を実行し、false の場合は PROC REPORT を実行しないことです。何か案は？コードは今のところエラーなしで実行されますが、条件が満たされていないにもかかわらず、IF ステートメントの条件が適用されず、PROC REPORT が実行されていることがわかります。

前もって感謝します。

%let DATO    =  13062016;

PROC IMPORT OUT= WORK.auto1 DATAFILE= "C:\Users\BC1554\Desktop\andel.xlsx"
DBMS=xlsx REPLACE;
SHEET="sheet1"; 
GETNAMES=YES;
RUN;


data want;
set WORK.auto1;
rownum=_n_;
run;

DATA tbl2;
SET want;
if (rownum => 1 and rownum <=6 ) then output work.tbl2  ;
RUN;

ODS NORESULTS;
ods LISTING close;
ODS RTF FILE="C:\Users\BC1554\Desktop\Statistik_andel_&DATO..rtf";
title "Statistics from monthly run of DK shares of housing companies (andelsboliger)";
 data Tbl21 ;
 set work.Tbl2; 
 where (DKANDEL='Daekning_pct_24052016' or DKANDEL='Daekning_pct_18042016') ;
 difference = dif(Andel);
 difference1 = dif(Total);
 run;
 data Tbl211 ;
set work.Tbl21; 
where (DKANDEL='Daekning_pct_18042016') ;
run;
data Tbl2111 ;
set work.Tbl211; 
where (DKANDEL='Daekning_pct_18042016') ;
if abs(difference) > 10 and abs (difference1) > 107 then ;
run; 

proc report data= work.Tbl2 spanrows;

columns DKANDEL Andel Total Ukendt  ; 
title2 "-";
title3 "We REPORT numbers on p.4-5".;
title4 "-";
title5 "The models coverage";
title6 "Run date &DATO.";
footnote1 "Assets without currency code not included";
define DKANDEL / order;
define Andel   / order;
define Total   / order;
define Ukendt  / order;
define DKANDEL/ display;
define Andel  / display;
  Compute DKANDEL;
   call define (_col_,"style","style={background=orange}");
    endcomp;
Compute Andel;
        call define (_col_,"style","style={background=red}");
endcomp;
run; title; footnote1;
ODS RTF close;
ODS LISTING;
title;
       run;
4

2 に答える 2

2

トムの答えは良いものであり、おそらく私がしたいことです。ただし、質問で提案したより正確な代替案も適切なようです。

データ ステップで PROC REPORT を実行する (またはデータ ステップでデータ ステップ以外のコードを実行する) 方法は、call execute. を使用call executeしてマクロを実行したり、コードの文字列だけを実行したりできます。どのように処理するかはあなた次第です。開発がはるかに簡単になるので、私はそれをマクロにします (マクロは通常のコードと同じように記述でき、独立してテストできます)。

これは、Tom が答えた内容に類似した簡単な例です。

%macro print_report(data=);
  proc report data=&data.;
  run;
%mend print_report;


data _null_;
  set sashelp.class ;
  if age=13 then do;
    call execute('%print_report(data=sashelp.class)');
    stop;  *prevent it from donig this more than once;
  end;
run;
于 2016-06-17T14:07:22.073 に答える