OPTIONS LINESIZE=88 PAGESIZE=53 NOCENTER NODATE NONUMBER NOFMTERR;
*******************************************************************;
*    PROJECT NAME:  Data Management and Statistical Computing 691f ;
*          PROGRAM NAME        DATE       PROGRAMMER               ;
TITLE1 "Source:dmes99p1.SAS   9/16/99  by  Ed Stanek  "            ;
* Description:                                                     ;
*     Example of Program From Cody and Smith, p7 4th edition       ;
*       for calculating homework average grades                    ;
*                                                                  ;
*******************************************************************;
LIBNAME old  "c:\temp\";
LIBNAME save "c:\temp\new";

DATA example;
  INPUT subject
        gender   $
        exam1
        exam2
        hwgrade  $;
  final=(exam1+exam2)/2;
  IF        final GE  0 AND final LT 65 THEN grade='F';
    ELSE IF final GE 65 AND final LT 75 THEN grade='C';
    ELSE IF final GE 75 AND final LT 85 THEN grade='B';
    ELSE IF final GE 85                 THEN grade='A';
DATALINES;
10 M 80 84 A
 7 M 85 89 A
 4 F 90 86 B
20 M 82 85 B
25 F 94 94 A
14 F 88 84 C
;

PROC SORT DATA=example;
  BY subject;

PROC PRINT DATA=example;
  ID subject;
  VAR exam1 exam2 final hwgrade grade;
  TITLE2 "Table 1.  Roster in Student Number Order";

PROC MEANS DATA=example N MEAN STD STDERR MAXDEC=1;
  VAR exam1 exam2 final;
  TITLE2 "Table 2.  Descriptive statistics";

PROC FREQ DATA=example;
  TABLES gender hwgrade grade;
  TITLE2 "Table 3.  Frequency distribution of Gender and grades";

RUN;