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

*** c08s1d1.sas ***;

dm "output;clear;log;clear";

Libname ia "C:\_SasCourse2006\Course1\SAS_Data"; 

data na1;

length Name $ 6 Gender $ 1 JobCode $ 3;

input Name $ Gender $ JobCode;

datalines;

TORRES M NA1

LANG F NA1

SMITH F NA1

run;

data na2;

length Name $ 6 Gender $ 1 JobCode $ 3;

input Name $ Gender $ JobCode;

cards;

LISTER M NA2

TORRES F NA2

run;

data newhires;

set na1 na2;

run;

proc print;

run;

data fa1;

length Name $ 6 Gender $ 1 JobCode $ 3;

input Name $ Gender $ JobCode;

cards;

KENT F fa1

HELD M fa1

JONES F fa1

run;

data fa2;

length Name $ 6 JCode $ 3 Gender $ 1;

input Name $ JCode $ Gender $;

cards;

LOPEZ fa2 F

GRANT fa2 F

run;

data newfa;

set fa1 fa2;

run;

proc print; run;

data newfa;

set fa1 fa2(rename=(JCode=JobCode));

run;

proc print; run;

data newfa (rename=(JCode=JobCode));

set fa1 fa2;

run;

proc print; run;

data work.allemp;

set ia.romeemp

        ia.miamiemp

       ia.parisemp;

by descending ID ;

run;

proc print; run;

proc sort data=fa1;

by Name;

run;

proc sort data=fa2;

by Name;

run;

data newfa;

set fa1 fa2(rename=(JCode=JobCode));

by Name;

run;

proc print; run;

data newfa;

set fa1 fa2(rename=(JCode=JobCode));

*by Name;

run;

proc sort data=newfa;

by Name;

run;

proc print; run;

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

*** c08s1d2.sas ***;

data fa1;

length Name $ 6 Gender $ 1 JobCode $ 3;

input Name $ Gender $ JobCode;

cards;

KENT F fa1

HELD M fa1

JONES F fa1

run;

data fa2;

length Name $ 6 JCode $ 3 Gender $ 1;

input Name $ JCode $ Gender $;

cards;

LOPEZ fa2 F

GRANT fa2 F

run;

data newfa;

set fa1 fa2;

run;

proc print; run;

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

*** c08s1d3.sas ***;

data newfa;

set fa1 fa2(rename=(JCode=JobCode));

run;

proc print; run;

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

*** c08s1d4.sas ***;

data work.allemp;

set ia.miamiemp

       ia.parisemp

       ia.romeemp;

by ID;

run;

proc print; run;

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

*** c08s1d5.sas ***;

proc sort data=fa1;

by Name;

run;

proc sort data=fa2;

by Name;

run;

data newfa;

set fa1 fa2(rename=(JCode=JobCode));

by Name;

run;

proc print; run;

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

*** c08s2d1.sas ***;

dm "output;clear;log;clear";

Libname ia "C:\_SasCourse2006\Course1\SAS_Data"; 

data ia.compare;

merge ia.performance ia.goals;

by Month;

   Difference=Sales-Goal;

run;

proc print data=ia.compare;

title 'Sales Performance';

run;

proc sort data=ia.gersched out=work.gersched;

by EmpID;

run;

data work.nextweek;

merge ia.gercrew work.gersched;

by EmpID;

run;

proc print data=work.nextweek;

run;

proc sort data=ia.gersched out=work.gersched;

by EmpID;

run;

data work.nextweek;

merge ia.gercrew

         work.gersched(in=InSched);

by EmpID;

if InSched=1;

run;

proc print data=work.nextweek;

run;

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

*** c08s2d2.sas ***;

proc sort data=ia.gersched out=work.gersched;

by EmpID;

run;

data work.nextweek;

merge ia.gercrew work.gersched;

by EmpID;

run;

proc print data=work.nextweek; run;

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

*** c08s2d3.sas ***;

proc sort data=ia.gersched out=work.gersched;

by EmpID;

run;

data work.nextweek;

merge ia.gercrew

         work.gersched(in=InSched);

by EmpID;

if InSched=1;

run;

proc print data=work.nextweek; run;

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

*** c08s3d1.sas ***;

dm "output;clear;log;clear";

Libname ia "C:\_SasCourse2006\Course1\SAS_Data"; 

data ia.allcompare;

merge ia.allsales ia.allgoals;

by Month;

   Difference=Sales-Goal;

run;

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

*** c08s3d2.sas ***;

data ia.allcompare2;

merge ia.allsales2 ia.allgoals2;

by Month;

   Difference=Sales-Goal;

run;