Thank you for the suggestion but I think that is essentially what I am already doing, without the call execute. I am not much of a macro guy, most of my time is doing statistical analysis and they are one shot programs. I did put a similar code into production that compiled data by course for a given semester but even selecting one course left me with more than one data point in each of the pulls. The loops work great for creating the data output, but the graphs are simply not what, all I am trying to do is generate a pretty version of proc timeplot such as this:
Individual min max
Pharmacy Law 1 4
Grade Weight *-------------------------------------------------------------*
3.70 | *-------A |
*-------------------------------------------------------------* |
|
Here is my current code, I apologize for the lack of comments but I have always worked alone and never had a need.
/*Macro Code for doing loops through procedures*/
PROC SQL;
create table num_courses as
select distinct full_name
from enroll_comb_new;
QUIT;
DATA _null_; set num_courses end=last;
if last then call symput("numids",compress(put(_n_,12.)));
RUN;
%PUT &numcrs;
PROC SQL noprint;
select distinct full_name
into :E1 - :E&numids
from num_courses;
QUIT;
/*(goptions reset=all device=javaimg xpixels=130 ypixels=250;*/
%MACRO OUTDATA;
%DO I=1 %TO 2/*&numids*/;
%let pds=%STR(G:\APPE_PRE_Dashboard\Dashboard_prototypes\);
ods pdf file="&pds.&&E&I.._Pre_APPE_Dashboard.pdf" startpage=no;
options nobyline;
title'Pre-APPE Worksheet for P3 Students';
proc sort data=enroll_comb_new;by full_name;
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
label full_name='Student Name';label id_num = 'Student Id';label class_cde = 'Student Class Level';
var /*full_name id_num*/ class_cde/ style(data)={just=c};
where full_name ="&&E&I";
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var calc_traffic law_traffic pcoa_traffic / style={background=sigb. width=200 just=center} ;
where full_name ="&&E&I";
ods text='1 denotes within one standard error, 2 is within two standard errors, 3 is three or more standard errors';
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var Calculations_first_attempt / style={background=calc. width=150 just=center};
var Calc_avg/style(header)=[just=center color=black fontsize=8PT] style(column)={width=150};
where full_name ="&&E&I";
/*ods text='Summary of Student work on Pharmacy Calculations';*/
/*
proc sgplot data=enroll_comb_new (where=(full_name="&&E&I."));
band x=Calculations_first_attempt upper=86 lower=1;
series x=Calculations_first_attempt y=calc_avg;
*/
proc timeplot data=enroll_comb_new;
plot Calculations_first_attempt=full_name/ ref=87.49 refchar='*' joinref axis=1 to 100 by 2;
where full_name ="&&E&I";
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var pharmacy_law_grade / style={background=$law. width=200 just=center};
var Law_median_grade /style(header)=[just=center color=black fontsize=8PT] style(column)={width=150};
where full_name ="&&E&I";
/*ods text='Summary of Student work in Pharmacy Law';*/
proc timeplot data=enroll_comb_new;
plot Law_grade_weight=full_name/ ref=3.30 refchar='*' joinref axis=1 to 4 by .05;
where full_name ="&&E&I";
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var Overall_SS/ style={background=pcoa. width=200 just=center};
var Overall_SS_mean Overall__ile Overall__ile_median/ style(header)=[just=center color=black fontsize=8PT] style(column)={width=150};
where full_name ="&&E&I";
/*ods text='Summary of Student work on the PCOA Overall';*/
proc timeplot data=enroll_comb_new;
plot Overall_SS=full_name/ ref=340.41 refchar='*' joinref axis=1 to 700 by 14;
where full_name ="&&E&I";
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var Area_1_SS Area_1_SS_mean Area_1__ile Area_1__ile_median/ style(header)=[just=center color=black fontsize=8PT] style(column)={width=200};
where full_name ="&&E&I";
/*ods text='Summary of Student work on the PCOA Area 1';*/
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var Area_2_SS Area_2_SS_mean Area_2__ile Area_2__ile_median/ style(header)=[just=center color=black fontsize=8PT] style(column)={width=200};
where full_name ="&&E&I";
/*ods text='Summary of Student work on the PCOA Area 2';*/
proc print data=enroll_comb_new noobs label STYLE(Header)={just=c};
var Area_3_SS Area_3_SS_mean Area_3__ile Area_3__ile_median/ style(header)=[just=center color=black fontsize=8PT] style(column)={width=200};
where full_name ="&&E&I";
/*ods text='Summary of Student work on the PCOA Area 3';*/
run;
ods pdf close;
run;
%END;
%MEND;
%OUTDATA;
run;
Thank you for the assistance,
George
