*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

dm "output;clear;log;clear";

***   c01s2d01   ***;

data work.fltat1;

infile 'C:\_SasCourse2006\Course2\SAS_Data\fltat1.dat';

input @1 EmpID $5. @7 HireDate date9. @17 Salary 5.;

   Bonus=Salary*.05;

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s4d01   ***;

proc contents data=work.fltat1;

run;

proc print data=work.fltat1;

title 'Default List Report of WORK.FLTAT1 Data Set';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s4d02   ***;

proc print data=work.fltat1 noobs;

title 'List Report NOOBS Option';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s4d03   ***;

proc print data=work.fltat1 noobs;

format Salary Bonus dollar7. HireDate mmddyy10.;

title 'Add a FORMAT Statement';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s4d04   ***;

proc print data=work.fltat1 noobs;

var EmpID Bonus Salary;

format Salary Bonus dollar7. HireDate mmddyy10.;

title 'Use VAR to Display Only Three Variables';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s5d01   ***;

Libname Course2 "C:\_SasCourse2006\Course2\SAS_Data";  

proc print data=Course2.test noobs;

title 'List Report of Prog2.Test Data Set';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s5d02   ***;

data Course2.fltat1;

infile 'C:\_SasCourse2006\SAS_Data\fltat1.dat';

input @1 EmpID $5. @7 HireDate date9. @17 Salary 5.;

   Bonus=salary*.05;

run;

proc print data=Course2.fltat1 noobs;

format Salary Bonus dollar7. HireDate mmddyy10.;

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s5d02   ***;

dm "output;clear;log;clear";

Libname Course2 "C:\_SasCourse2006\Course2\SAS_Data";  

proc print data=Course2.test noobs; run;

proc contents data=Course2.test; run;

data fnlgrades;

length Grade $ 6;

drop Score;

set Course2.test;

if Score>=.7 then Grade='Pass';

else grade='Failed';

run;

proc print data=fnlgrades noobs;

var LName Grade;

title 'List Report of FNLGRADES';

run;

*---+----1----+----2----+----3----+----4----+----5----+----6----+---;

***   c01s5d03   ***;

dm "output;clear;log;clear";

Libname Course2 "C:\_SasCourse2006\Course2\SAS_Data";  

data passed;

set Course2.test;

if Score>=.7;

run;

proc print data=passed noobs;

title 'Students Who Passed the Final Exam';

run;