dm 'log;clear;output;clear'; 
options nodate nocenter pageno=1 ls=78 ps=55;
OPTIONS FORMCHAR="|----|+|---+=|-/\<>*";
ODS listing; ods graphics off; *ods noresults;

title1 "EXST 700X Assignment 02"; 
title2 "James P Geaghan, SECTION 0"; 

***EXST 700X***********;
*** Assignment 02   ***;
*** James P Geaghan ***;
*** SECTION 0       ***;
***********************;

data GRADE; 
   input NAME $ EXAM LABAVG SECTION ID;
   label exam = 'Scores for Exam 1'
         SECTION = 'Lab section'
         labavg = 'Mean lab % score';
datalines; 
Kyle 95 90 2 4414
David 90 85 1 7477
Mike 82 91 2 8164
Sam 85 88 2 8361
Jacob 77 78 3 8466
Monica 79 69 2 9135
Beth 72 75 3 2082
Jamie 87 92 1 8308
Casey 99 98 3 3564
Shelly 78 74 3 7746
Kelly 94 90 1 2602
Amy 88 85 3 8946
Ryan 83 90 1 9628
Ann 90 84 1 0221
Carol 78 83 2 3189
Susan 82 76 1 6194
Joe 91 87 3 1753
Bruce 80 67 1 2256
Bill 92 95 3 1067
Karl 76 73 2 4722
;
run;

proc print data=GRADE; 
   Title3 'Data listing from PROC PRINT';
   Title4 'Without a by statement';
run; 

proc sort data=GRADE; by SECTION; 
   Title3 'This title wont print because the sort does not produce output';
run;
proc print data=GRADE; by SECTION; 
   Title3 'Data listing from PROC PRINT';
   Title4 'With a by statement';
run; 

proc sort data=GRADE out=SORTEDGRADE;
   by SECTION descending EXAM;
run;
proc print data=SORTEDGRADE; by SECTION; 
   Title3 'Data listing from PROC PRINT - only 2 variables';
   Title4 'Sorted by two variables (second one descending)';
   var EXAM name;
run;

proc univariate data=grade plot;
   var Exam;
   Title3 'PROC UNIVARIATE output';
run;

proc means data=GRADE;
   class SECTION;
   var EXAM LABAVG;
   Title3 'PROC MEANS output';
run;

proc plot data=GRADE;
   plot EXAM * LABAVG = name;
   Title3 'PROC PLOT presentation';
run;