/*  Chapter7.sas */

/*  C07S1D01.sas */

filename newroute 'newrout1.dat';

data ia.RouteChanges(bufsize=25256);
   infile newroute;
   input @1 RouteID $7.
         @8 RouteStart $3.
         @11 RouteDestination $3.
         @14 RouteDistance 8.
         @24 ScheduledDepartureTime time5.
         @32 ScheduledArrivalTime time5.;
run;

proc print data=ia.RouteChanges(bufno=3);
   title 'Route Changes from FAA';
run;

/*  C07S1D02.sas  */

filename newroute 'newrout1.dat';

data ia.RouteChanges (bufsize=25256 bufno=5);
   infile newroute;
   input @1 RouteID $7.
         @8 RouteStart $3.
         @11 RouteDestination $3.
         @14 RouteDistance 8.
         @24 ScheduledDepartureTime time5.
         @32 ScheduledArrivalTime time5.;
run;

proc print data=ia.RouteChanges(bufno=3);
   title 'Route Changes from FAA';
run;

/*  C07S1D03.sas  */

filename newroute 'newrout1.dat';

data _null_;
   infile newroute sharebuffers;
   input @24 ScheduledDepartureTime time5.
         @32 ScheduledArrivalTime time5.;
   ScheduledDepartureTime+300;
   ScheduledArrivalTime+300;
   file newroute;
   put @24 ScheduledDepartureTime time5.
       @32 ScheduledArrivalTime time5.;
run;

/*  C07S1D04.sas  */

/*  SASFILE is a V8.1 (8e) statement and cannot be run with  */
/*  prior releases of SAS.                                                      */

sasfile ia.SalesSummary load;

proc means data=ia.SalesSummary(where=(Year='1999'));
   var SalesRevenueFirstClass SalesRevenueBusiness
       SalesRevenueEconomy;
run;

proc tabulate data=ia.SalesSummary format=dollar14.0;
   class year;
   var SalesRevenueFirstClass SalesRevenueBusiness
       SalesRevenueEconomy;
   tables year, SalesRevenueFirstClass SalesRevenueBusiness
          SalesRevenueEconomy All;
run;

sasfile ia.SalesSummary close;

/*  C07S2D01.sas */

options NOERRORABEND;

proc delete data=schedule;
run;

proc sort data = ia.Schedule out = shcedule;
   by FlightNumber ScheduledDate;
run;

proc print data = schedule;
   title 'Schedule for International Airlines';
run;

options ERRORABEND;

proc delete data=schedule;
run;

proc sort data = ia.Schedule out = shcedule;
   by FlightNumber ScheduledDate;
run;

proc print data = schedule;
   title 'Schedule for International Airlines';
run;

/*  C07S2D02.sas  */

options ERRORCHECK=NORMAL;

proc sort data = ia.Schedule out = schedule;
                by FlightNumber ScheduledDate;
run;

proc print data = schedule;
                title 'Schedule for International Airlines';
run;

options ERRORCHECK=STRICT;

proc sort data = ia.Schedule out = schedule;
                by FlightNumber ScheduledDate;
run;

proc print data = schedule;
                title 'Schedule for International Airlines';
run;

/*  C07S2D03.sas  */

options ERRORS=1;
filename newroute 'newroute.dat';

data ia.RouteChanges;
                infile newroute;
                input @1 RouteID $7.
                               @8 RouteStart $3.
                               @11 RouteDestination $3.
                               @14 RouteDistance 8.;
run;

/*  C07S2D04.sas  */

options fmterr;

proc print data=ia.SalesSummary;
   title 'Sales Summary';
   format SalesRevenueCargo SalesRevenueFirstClass
          SalesRevenueBusiness
          SalesRevenueEconomy salesfmt25.;
run;

options nofmterr;

proc print data=ia.SalesSummary;
   title 'Sales Summary';
   format SalesRevenueCargo SalesRevenueFirstClass
          SalesRevenueBusiness
          SalesRevenueEconomy salesfmt25.;
run;

/*  C07S3D01.sas */

options NOREPLACE;

data ia.Schedule;
                set ia.schedule(drop = FlightNumber);
run;


/*  C07S3D02.sas */

options DATASTMTCHK = COREKEYWORDS;

data Schedule
   set ia.schedule;
run;

options DATASTMTCHK = ALLKEYWORDS;
filename newroute 'newrout1.dat';

data ia.RouteChanges
   infile newroute;
   input @1 RouteID $7.
         @8 RouteStart $3.
         @11 RouteDestination $3.
         @14 RouteDistance 8.;
run;

/*  C07S4D01.sas  */

/* First SAS Session: */

        options NOWORKTERM;

        proc sql;
        create table schedule as
                select *
                        from ia.Schedule
        ;
quit;

/* Second SAS Session: */

        sas -NOWORKINIT

        proc print data = schedule;
        run;

/*  C07S5D01.sas */

sas -ASYNCHIO