Data XyZ ;
Input ID $ tot cost;
cards;
ABC 10 100
XYZ 20 200
;
RUN;
Data ABC ;
Input ID $ tot cost;
cards;
ABC 0 0
XYZ 0 0
;
RUN;
%Macro A(dsn) ;
proc sql noprint;
select sum(tot) into : totsum from &dsn;
quit;
%if (&totsum) > 0 %then %do;
proc print data = &dsn ;run;
%end ;
%else %do ;
data _null_;
file print notitle ls=80;;
Put @50 "Data Set &DSN has zero Total Cost.";
Run;
%end;
%Mend A;
%A(xyz) ;
%A(ABC) ;
... View more