%let options=options ps=1000 mtrace mprint symbolgen;
&options.;;
*PRINT COMMENTS TO STANDARD OUTPUT;
%MACRO comment(text);
options nostimer nofullstimer nosource nonotes ps=1000 nomtrace nomprint nosymbolgen;
PROC printto log=stdout;run;
%put &text.;
PROC printto log=log;run;
&options. source notes stimer;;
%mend comment;
%comment(Processing request...
);
*default values;
%let cntys=0;
%let from=100;
%let to=500;
%let by=10;
&sysparm.;;
%comment(RecFIN);
%comment(SAS
);
%comment(- This process is number &pid.);
%comment(
- This program is &program..sas);
%comment(
- The sas path is &saspath.);
%comment(
- The log path is &logpath.);
%comment(
- The output path is &logpath.);
%comment(
- The SAS server is &server.
);
run;
libname int '/usr/mrfss/intercept2/pc';
%macro plots;
%comment();
proc printto print=stdout;
run;
data i3;
set int.i3_934;
where st=41;
lcat=lngth/&by.;
run;
proc chart data=i3;
hbar lcat;
run;
%comment(
);
proc printto print=print;
run;
%mend plots;
%plots;run;
%comment(.)