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

** c07s1d1.sas ***;

dm "output;clear;log;clear";

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

** c06s2d1.sas ***;

*** create the permanent SAS dataset DFWLAX ***;

data IA.dfwlax;

infile 'C:\_SasCourse2006\Course1\SAS_Data\dfwlax.dat';

input @1 Flight $3. @4 Date mmddyy8.

         @12 Dest $3. @15 FirstClass 3.

         @18 Economy 3.;

run;

proc print data=IA.dfwlax;

format Date date9.;

run;

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

*** create the temporary SAS dataset ONBOARD ***;

data onboard;

set ia.dfwlax;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

** c07s1d2.sas ***;

data onboard;

set ia.dfwlax;

   Total=sum(FirstClass,Economy);

run;

proc print data=onboard;

format Date date9.;

run;

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

** c07s1d3.sas ***;

data onboard;

set ia.dfwlax;

   Total=FirstClass+Economy;

   DayOfWeek=weekday(Date);

run;

proc print data=onboard;

var Flight Dest Total DayOfWeek Date;

format Date weekdate.;

run;

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

** c07s1d4.sas ***;

data onboard;

set ia.dfwlax;

drop FirstClass Economy;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

*** c07s2d1.sas ***;

dm "output;clear;log;clear";

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

data flightrev;

set ia.dfwlax;

   Total=sum(FirstClass,Economy);

if Dest='LAX' then

      Revenue=sum(2000*FirstClass,1200*Economy);

else if Dest='DFW' then

      Revenue=sum(1500*FirstClass,900*Economy);

run;

proc print data=flightrev;

format Date date9.;

run;

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

*** c07s2d2.sas ***;

data flightrev;

set ia.dfwlax;

   Total=sum(FirstClass,Economy);

if upcase(Dest)='LAX' then

      Revenue=sum(2000*FirstClass,1200*Economy);

else if upcase(Dest)='DFW' then

      Revenue=sum(1500*FirstClass,900*Economy);

run;

proc print data=flightrev;

format Date date9.;

run;

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

*** c07s2d3.sas ***;

data flightrev;

set ia.dfwlax;

   Total=sum(FirstClass,Economy);

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=flightrev;

var Dest City Flight Date Revenue;

format Date date9.;

run;

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

*** c07s2d4.sas ***;

data flightrev;

set ia.dfwlax;

length City $ 11;

   Total=sum(FirstClass,Economy);

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=flightrev;

var Dest City Flight Date Revenue;

format Date date9.;

run;

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

*** c07s2d5.sas ***;

data over175;

set ia.dfwlax;

length City $ 11;

   Total=sum(FirstClass,Economy);

if Total le 175 then delete;

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=over175;

var Dest City Flight Date Total Revenue;

format Date date9.;

run;

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

*** c07s2d6.sas ***;

data over175;

set ia.dfwlax;

length City $ 11;

   Total=sum(FirstClass,Economy);

if Total gt 175;

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=over175;

var Dest City Flight Date Total Revenue;

format Date date9.;

run;

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

*** c07s2d7.sas ***;

data over175;

set ia.dfwlax;

length City $ 11;

   Total=sum(FirstClass,Economy);

if Total gt 175 and Date lt '14dec2000'd;

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=over175;

var Dest City Flight Date Total Revenue;

format Date date9.;

run;

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

*** c07s2d8.sas ***;

data over175;

infile 'C:\_SasCourse2006\Course1\SAS_Data\dfwlax.dat';

input @1 Flight $3. @4 Date mmddyy8.

         @12 Dest $3. @15 FirstClass 3.

         @18 Economy 3.;

length City $ 11;

   Total=sum(FirstClass,Economy);

if Total gt 175 and Date lt '14dec2000'd;

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=over175;

var Dest City Flight Date Total Revenue;

format Date date9.;

run;

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

*** c07s2d9.sas ***;

data over175;

set ia.dfwlax;

where Date lt '14dec2000'd;

length City $ 11;

   Total=sum(FirstClass,Economy);

if Total gt 175;

if upcase(Dest)='DFW' then do;

      Revenue=sum(1500*FirstClass,900*Economy);

      City='Dallas';

end;

else if upcase(Dest)='LAX' then do;

      Revenue=sum(2000*FirstClass,1200*Economy);

      City='Los Angeles';

end;

run;

proc print data=over175;

var Dest City Flight Date Total Revenue;

format Date date9.;

run;

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

*** c07s2d1.sas ***;

dm "output;clear;log;clear";

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

data onboard(drop=FirstClass Economy);

set ia.dfwlax;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

*** c07s2d2.sas ***;

data onboard;

drop FirstClass Economy;

set ia.dfwlax;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

*** c07s2d1.sas ***;

dm "output;clear;log;clear";

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

data onboard(drop=FirstClass Economy);

set ia.dfwlax;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

*** c07s2d2.sas ***;

data onboard;

drop FirstClass Economy;

set ia.dfwlax;

   Total=FirstClass+Economy;

run;

proc print data=onboard;

format Date date9.;

run;

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

*** c07s4d1.sas ***;

dm "output;clear;log;clear";

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

proc import out=work.dfwlaxdates

datafile='C:\_SasCourse2006\Course1\SAS_Data\datefields.xls'

dbms=excel2000 replace;

run;

proc print data=work.dfwlaxdates;

run;

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

*** c07s4d2.sas ***;

proc import out=work.dfwlaxdatetimes

datafile='C:\_SasCourse2006\Course1\SAS_Data\datetimefields.xls'

dbms=excel2000 replace;

  usedate=no;

run;

proc print data=work.dfwlaxdatetimes;

run;