data jdp;
 input life @@;
 cards;
1993 1993 1984 1997 1995 1991 1984 1996 1989 2001
;
run;
* This gives the test for (a);
proc ttest data=jdp sides=2 h0=1987.714;
 var life;
run;
* And this for (b);
proc ttest data=jdp sides=L h0=1991;
 var life;
run;