/* module 2, problem 1 (2.3) */
                  /* a */
filename handinj 'Handinj.dat';
data one;
infile handinj;
input id $ 1-5 type $ 7-11 worklost 13-14 cost 16-19;
cost_us = cost*1.54;
run;
proc print data=one;
run;
                  /* b */
proc sort data=one;
by descending cost_us;
run;
proc print data=one;
run;
                  /* c */
data two;
set one;
if type = 'work';
run;
proc sort data=two;
by descending worklost;
run;
proc print data=two;
run;
                  /* d */
data three;
set one;
if cost_us>500;
run;
proc sort data=three;
by descending worklost;
run;
proc print data=three;
run;

/* module 2, problem 2 (2.4) */

filename airplane 'airplanes.dat';
data five;
infile airplane dlm=',';
input design $ paper $ time;
run;
proc sort data=five;
by time;
run;
proc print data=five;
run;