SAS Course Notes

data final;

infile cards;
input prov $ amount;
cards;
ONT 123
ONT 234
ONT 445
QUE 234
QUE 421
ONT 123
ONT 234
ONT 445
QUE 234
QUE 421
ONT 123
ONT 234
ONT 445
QUE 234
QUE 421
ONT 123
ONT 234
ONT 445
QUE 234
QUE 421
;


proc freq data=final noprint;
table prov / out=tabreg(keep=prov) ;
run;


data _null_;
set tabreg end=eof;
call symputx(cats("REG",_n_),prov);

                if eof=1 then do ;
                call symputx("total",_n_);
                end;
putlog _all_;
run;

%macro loop;
    %do i=1 %to &total;

    proc print data=final;
    where prov="&&reg&i";
    title "Report for ...";
    %end;
%mend;



%loop